أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


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





مطلوب اختصار هذا الكود

السلام عليكم الرجاء اختصار هذا الكود باستخدام الحلقات التكرارية او اى طريقة اخري حيث انه كود طويل جدا وهذا جزء منه [co ..



24-12-2020 09:56 مساء
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

السلام عليكم
الرجاء اختصار هذا الكود 
باستخدام الحلقات التكرارية او اى طريقة اخري
حيث انه كود طويل جدا وهذا جزء منه 

UserForm.TextBox1 = ThisWorkbook.Sheets("Committees").[AB2]
UserForm.TextBox2 = ThisWorkbook.Sheets("Committees").[AC2]
UserForm.ComboBox1 = ThisWorkbook.Sheets("Committees").[AD2]
UserForm.TextBox3 = ThisWorkbook.Sheets("Committees").[AE2]
UserForm.TextBox4 = ThisWorkbook.Sheets("Committees").[AF2]
UserForm.TextBox5 = ThisWorkbook.Sheets("Committees").[AG2]

UserForm.TextBox6 = ThisWorkbook.Sheets("Committees").[AB3]
UserForm.TextBox7 = ThisWorkbook.Sheets("Committees").[AC3]
UserForm.ComboBox2 = ThisWorkbook.Sheets("Committees").[AD3]
UserForm.TextBox8 = ThisWorkbook.Sheets("Committees").[AE3]
UserForm.TextBox9 = ThisWorkbook.Sheets("Committees").[AF3]
UserForm.TextBox10 = ThisWorkbook.Sheets("Committees").[AG3]

UserForm.TextBox11 = ThisWorkbook.Sheets("Committees").[AB4]
UserForm.TextBox12 = ThisWorkbook.Sheets("Committees").[AC4]
UserForm.ComboBox3 = ThisWorkbook.Sheets("Committees").[AD4]
UserForm.TextBox13 = ThisWorkbook.Sheets("Committees").[AE4]
UserForm.TextBox14 = ThisWorkbook.Sheets("Committees").[AF4]
UserForm.TextBox15 = ThisWorkbook.Sheets("Committees").[AG4]

UserForm.TextBox16 = ThisWorkbook.Sheets("Committees").[AB5]
UserForm.TextBox17 = ThisWorkbook.Sheets("Committees").[AC5]
UserForm.ComboBox4 = ThisWorkbook.Sheets("Committees").[AD5]
UserForm.TextBox18 = ThisWorkbook.Sheets("Committees").[AE5]
UserForm.TextBox19 = ThisWorkbook.Sheets("Committees").[AF5]
UserForm.TextBox20 = ThisWorkbook.Sheets("Committees").[AG5]

--------------------------
وشكرا لحضراتكم

24-12-2020 10:40 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif مطلوب اختصار هذا الكود
وعليكم السلام ورحمه الله وبركاته
هل من الممكن لطفا
ان ترفق ملف
حتي يتسنى لمن يريد مساعدتك فهم المطلوب

25-12-2020 01:31 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif مطلوب اختصار هذا الكود
جزاكم الله خيرا جميعا
تم ايجاد حل لاختصار الكود السابق 

    Dim i As Long, j As Long, k As Long
    j = 1: k = 1
    For i = 2 To 51
        Committees_1st_2nd.Controls("TextBox" & j) = ThisWorkbook.Sheets("Committees").Range("AB" & i)
        Committees_1st_2nd.Controls("TextBox" & j + 1) = ThisWorkbook.Sheets("Committees").Range("AC" & i)
        Committees_1st_2nd.Controls("ComboBox" & k) = ThisWorkbook.Sheets("Committees").Range("AD" & i)
        Committees_1st_2nd.Controls("TextBox" & j + 2) = ThisWorkbook.Sheets("Committees").Range("AE" & i)
        Committees_1st_2nd.Controls("TextBox" & j + 3) = ThisWorkbook.Sheets("Committees").Range("AF" & i)
        Committees_1st_2nd.Controls("TextBox" & j + 4) = ThisWorkbook.Sheets("Committees").Range("AG" & i)
        j = j + 5: k = k + 1
    Next i




الكلمات الدلالية
مطلوب ، اختصار ، الكود ،


 










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

الساعة الآن 05:01 صباحا