بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
18 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه أشرف محمد السيد
-
-
في 12/16/2015 at 09:16, الصـقر said:
الاخ الحبيب بكار
أولا عايز اشكرك على طلبك هذا لانه بصراحه فنى وكتير ممكن نستخدمه فى الحياه العمليه
المهم علشان مطولش عليك انا عملت كود من اهم الاكود اللى عملتها فى حياتى ودا بالنسبه لى مش هنساه لانه صعب يتنسى الكود بسيط فى تنفيذه ولكن فكرته هى الفنيه
يعنى شربت كوباية شاى بالخمسينة والدماغ كانت رايقه وفكرة فى كيفية التنفيذ الى ان هدانى ربى الى فكره الكود اللى هتشوفه
جرب المرفق وان شاء الله هيعجبك
ولا تنسانى من صالح دعائك
تقبل تحياتى
بصراحة كود روعة الروعة و انا ابحث عن كود شبيه يكون الترحيل فيه من يوزر فورم
لكن للاسف لم تمكني امكانياتي المحدودة من اقتباس هذا الكود
فاردت ان تساعدني حضرتك في انشاء هذا الكود
http://www.fileconvoy.com/dfl.php?id=g43bfe25528830d5d9998058741de2027c98d93d0cمرفق الملف المراد
-
السلام عليكم و رحمة الله و بركاته
أريد مساعدة الأخوة في تعديل الاكواد في الملف المرفق
حيث يتم ترحيل الأسم مرة واحدة فقط علي أن يكون التكرار في المعلومات بشكل أفقي كما هو موضح بالملف المرفق -
http://www.fileconvoy.com/dfl.php?id=g3623542161e615d4999803865a83de24662ef0e43
السلام عليكم ورحمة الله و بركاته
المطلوب هو تعبئة البيانات بالشكل التي عليه في الملف الاصلي
عن طريق USER FORM كما في الملف TEST
المشكلة الأولي :-
أن الكود طويـــــــــــل جدا مما يصعب علي مراجعة الاخطاء او حتي تعديل اي شيئ يطرا علي البرنامج
فاذا كان هناك طريقة لاختصار هذا الكود سيكون مفيد لي جدا
طبقا لعقليتي كمبتدأ لدي تصورين يبدوان منطقيين و لكني لا اعرف السبيل لتنفيذهم
الاول :- لو ان هناك شيئ شبيه بالحلقات التكرارية يمكن فعله مع ال CHECK BOX و ذلك كما ورد في الموضوع الاصليالثاني :- تغيير اسلوب الادخال من CHECK BOX الي LIST BOX
أما المشكلة الثانية
هي أن الترحيل الي الشيتات التي تحمل ارقام (الايام) يكون تحت الجدول و لا اعرف سببا لهذا
أشكركم علي تعاونكم معي ومع أمثالي من الذين يحاولون تطوير أنفسهم
وادعو الله أن يبارك في علمكم
ملحوظة
هذا لن يكون الشكل الاخير فلا يزال امامي بعض الخطوات تتمثل في الدوال و يوزر فورم لمعاينة الطباعة و الطباعة
و ان شاء الله سوف ابدا فيها بعد تجاوز العقبتين سالفتي الذكر
-
http://www.fileconvoy.com/dfl.php?id=g3623542161e615d4999803865a83de24662ef0e43
السلام عليكم ورحمة الله و بركاته
المطلوب هو تعبئة البيانات بالشكل التي عليه في الملف الاصلي
عن طريق USER FORM كما في الملف TEST
المشكلة الأولي :-
أن الكود طويـــــــــــل جدا مما يصعب علي مراجعة الاخطاء او حتي تعديل اي شيئ يطرا علي البرنامج
فاذا كان هناك طريقة لاختصار هذا الكود سيكون مفيد لي جدا
طبقا لعقليتي كمبتدأ لدي تصورين يبدوان منطقيين و لكني لا اعرف السبيل لتنفيذهم
الاول :- لو ان هناك شيئ شبيه بالحلقات التكرارية يمكن فعله مع ال CHECK BOX و ذلك كما ورد في الموضوع الاصليالثاني :- تغيير اسلوب الادخال من CHECK BOX الي LIST BOX
أما المشكلة الثانية
هي أن الترحيل الي الشيتات التي تحمل ارقام (الايام) يكون تحت الجدول و لا اعرف سببا لهذا
أشكركم علي تعاونكم معي ومع أمثالي من الذين يحاولون تطوير أنفسهم
وادعو الله أن يبارك في علمكم
ملحوظة
هذا لن يكون الشكل الاخير فلا يزال امامي بعض الخطوات تتمثل في الدوال و يوزر فورم لمعاينة الطباعة و الطباعة
و ان شاء الله سوف ابدا فيها بعد تجاوز العقبتين سالفتي الذكر
-
لو ممكن ابعت اللملف علي ايميل ؟؟
-
أخواني الاعزء حاولت أكثر من مرة رفع الملف و لكني لم أستطيع
و لكن علي العموم هذا هو شكل اليوزر فورم
و هذا هو الكود
Private Sub CommandButton1_Click()
x = TextBox1.Value
Z = x + 2
Sheets(1).Activate
If CheckBox1.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox1.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox1.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox2.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox2.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox2.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox3.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox3.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox3.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox4.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox4.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox4.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox5.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox5.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox5.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox6.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox6.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox6.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox7.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox7.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox7.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox9.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox9.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox9.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox10.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox10.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox10.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox11.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox11.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox11.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox12.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox12.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox12.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox13.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox13.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox13.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox14.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox14.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox14.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox15.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox15.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox15.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox16.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox16.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox16.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox17.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox17.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox17.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox18.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox18.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox18.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox19.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox19.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox19.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox20.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox20.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox20.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox21.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox21.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox21.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox22.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox22.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox22.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox23.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox23.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox23.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox24.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox24.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox24.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox25.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox25.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox25.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox26.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox26.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox26.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox27.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox27.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox27.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox28.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox28.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox28.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox29.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox29.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox29.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox30.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox30.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox30.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox31.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox31.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox31.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox32.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox32.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox32.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox33.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox33.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox33.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox34.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox34.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox34.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox35.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox35.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox35.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox36.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox36.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox36.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox37.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox37.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox37.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox38.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox38.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox38.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox39.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox39.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox39.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfIf CheckBox41.Value = True Then
lrow = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 2).Value = CheckBox41.Caption
Range("c" & lrow + 2).Offset(0, Z).Value = "1000"
Sheets(x).Activate
Cells(5, 3).Value = ComboBox1.Value
Cells(5, 5).Value = TextBox2.Value
Row = Range("c" & Rows.Count).End(xlUp).Row
Range("c" & lrow + 1).Value = CheckBox41.Caption
Range("c" & lrow + 1).Offset(0, 1).Value = "1000"
Range("c" & lrow + 1).Offset(0, 3).Value = "2000"
End IfEnd Sub
المشكلة فقط إنه طويل جدا
-
هل يمكن عمل حلقات تكرارية لعدد 40 check box داخل userform
بحيث يكون عمل الحلقة التكرارية كالتالي
اذا كانت قيمة ال check box = true إذن استخدم ال checkbox .caption و قم بترحيله الي خلية معينة في ورقة عمل معينةثم يقوم بتكرار هذا الاجراء لكل ال check box
-
أريد كود مختصر لترحيل البينات وفقاً لشرطين
السلام عليكم ورحمة الله ة بركاته
أنا مبتدئ و احتاج للمساعدة من أهل الخبرة في هذا المنتدى الرائع في الملف المرفق توصلت بفضل الله الي تصميم يوزر فورم وقمت بعمل كود لنقل البينات من الفورم الي صفحة العمل
المشكلة ان الطريقة التي توصلت اليها ستكون اطول من اللازم ولم يقبلها البرنامج لان الكود كان طويلا جداً
حيث إنه من المفترض تتبع كل اسم علي حدي من جمالي 39 اسم حوالي 30 مرة عدد ايام الشهرما أحتاجه كود يقوم بعمل الاجراءات الاتية:-
الاجراء الاول
أن يقوم بفحص ال checkbox (عددهم 39) كل علي حدي
و إذا كانت قيمة checkbox (صحيحة) يتم ترحيل caption الخاص بال checkbox الي خلية معينة في ورقة العملعلي أن يكون ذلك الترحيل مشروط برقم مكتوب في textbox1
الاجراء الثاني
أن يرحل نفس البيانات الي صفحة اخري طبقا لرقم يمثل التاريخ عدد الصفحات 31 صفحة
لقد تم تنفيذ الكود و لكن لتأدية الوظيفة المطلوبة فإنه يتكرر 39 مرة (عدد سمء الموظفين) و لكل أسم سوف يكون هناك 31 تكرار (عدد أيام لشهر)
أشكركم و أتمني أن جد ضالتي لديكم
بارك الله قي علمكم
-
صاحب الملف
-
تمت الاضافه19 مار, 2016
-
الاقسام
-
-
كانت لدي نفس المشكلة و بحمد الله تم حلها
أشكركم علي المعلومة
بارك الله فيكم و زادكم من علمكم و بارك لكم فيه
عدم تكرار البيانات (اسماء) عند الترحيل من يوزر فورم
في منتدى الاكسيل Excel
قام بنشر · تم تعديل بواسطه أشرف محمد السيد
ارجو المساعدة علي الاقل في الطلب الأول لانه هو صلب الموضوع و مشروع البرنامج يتوقف عليه
ملحوظة
من خلال البحث في المنتدي و جدت موضوع مشابه جدا لطلبي و لكني فشلت في الاستفادة منه نظرا لقلة خبرتي و حداثة عهدي مع البرمجة و الاكواد
و لكن أعتقد إن الموضوع سوف يكون أسهل علي الأستاذة و الخبراء