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

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


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


الرئيسية
منتدى الاكسيل
اكسيل اسئله واجابات
مطلوب اختصار هذا الكود



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

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


لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد


subject icon مطلوب اختصار هذا الكود
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 الشخصية
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


لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد


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

« مشكلة في الدالة subtotal | تكرار فتح الفورم »

 










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

الساعة الآن 05:01 صباحا
Privacy Policy | سياسة الخصوصية