logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil لا تميز خلال هذه الفترة اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





31-03-2023 04:21 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 177
الجنس :
تاريخ الميلاد : 3-7-1969
الدعوات : 1
قوة السمعة : 292
الاعجاب : 0
السادة الخبراء

عندى ملف لجدول الحصص به هذه المعادله هى طفيف لجلب اسم المدرس و اليوم و لكن تجعل الملف تقيل جدا عند التغيير

=IFERROR(INDEX(Data2;MATCH(BL7;Day;0);MATCH($B$6;$B$6:$G$6;0));"")

فها ممكن تحويلها لكود

جزاكم الله كل خيرا

مرفق ملف العمل
 
 
  جدوب حصص.rar   تحميل rar مرات التحميل :(1)
الحجم :(541.002) KB





look/images/icons/i1.gif تحويل معادله لكود
  02-04-2023 05:23 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
وعليكم السلام ورحمة الله وبركاته
استخدم هذا
CODE
 Sub MyIndexMatch()
    Range("B7").Formula = "=IFERROR(INDEX(Data2,MATCH(BL7,Day,0),MATCH(B6,B6:G6,0)),"""")"
End Sub 

أو هذا الكود
CODE
 Sub MyIndexMatch()
    Dim Data2 As Range
    Dim Day As Range
    Dim Result As Variant
    Dim Match1 As Variant
    Dim Match2 As Variant
    
    Set Data2 = Range("Data2") ' تعيين مجال البيانات Data2
    Set Day = Range("Day") ' تعيين مجال البيانات Day
    
    Match1 = Application.Match(Range("BL7"), Day, 0) ' العثور على الصف الذي يتطابق مع BL7
    Match2 = Application.Match(Range("B6"), Range("B6:G6"), 0) ' العثور على العمود الذي يتطابق مع B6
    
    If Not IsError(Match1) And Not IsError(Match2) Then ' التأكد من وجود تطابق في الصف والعمود
        Result = Application.Index(Data2, Match1, Match2) ' إرجاع القيمة المطلوبة باستخدام INDEX و MATCH
        Range("B7").Value = Result ' وضع القيمة المحسوبة في الخلية B7
    Else
        Range("B7").Value = "" ' في حالة عدم العثور على تطابق، يتم وضع قيمة فارغة في الخلية B7
    End If
End Sub 


تم تحرير المشاركة بواسطة :نصر الإيمان بتاريخ:02-04-2023 05:26 صباحاً





اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحويل معادله لكود gemy2010
1 15 gemy2010
تحويل الشهادات الي pdf saad mohamed
1 133 saad mohamed
طلب كود VBA لتحويل المعادلة في خلية ما الى قيمة ثابتة بشرط ادخال بيانات في خلية اخرى منير 75
1 135 منير 75
تحويل لون خط الرقم الى الاسود مع الابقاء على لون الخط بالون الاحمر وليد 99999
4 1162 وليد 99999
تحويل المعادلات إلى أكواد Convert Formulas To VBA YasserKhalil
26 5120 YasserKhalil

الكلمات الدلالية
تحويل ، معادله ، لكود ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:46 AM