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

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


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





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

السلام عليكم الرجاء اختصار هذا الكود باستخدام الحلقات التكرارية او اى طريقة اخري حيث انه كود طويل جدا وهذا جزء منه [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
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 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




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


 










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

الساعة الآن 09:29 صباحا