اريد تكمله الكود و تعديله

[dozens]

السلام عليكم و رحمه الله و بركاته

هذه قائمه لتسجسل المنتجات بشكل مسلسل فهناك checkboxs داخل اليوزر فور الموضح البعض يوجد به الوان للمنتجات و الاخر يوجد به بعض الاكسسوارات فاريد تسجيل الالوان ف عمود الملاحظات مع شرط ان المنتج يمكن ان ياخذ لون واحد وهو مثلا البنى و يمكن ان ياخذ اكثر من لون فاريد عند وضع علامه صح على اللون يقوم بتسجيله فى خانه الملاحظات بهذا الشكل( بنى) و عند وضع علامه صح على لونين يقوم بوضعهم فى خانه الملاحظات بهذا الشكل (بنى+بيج )و هكذا و ايضا الاكسسوارات نفس الشئ هناك منتجات تاخذ اكسسوار واحد و هناك منتجات تاخذ اكثر من اكسسوار وهذا كله يتوقف على العميل فاريد ايضا تسجيلهم ف خانه الاكسسوار عند وضع علامه صح على نوع واحد او عند وضع علامه ع نوعين او كثر يقوم بتسجبهم بهذا الشكل (كالون+مقبض) او عند الضغط على نوع واحد من الاكسسوار يقوم بتسجيله بهذا الشكل (مقبض) فى خانه الاكسسوار واذا لم اضع اى علامات لا يقوم بتسجيل شى ....... و شكــــــــــــــــرا

New folder (3).zip

[عبدالله المجرب]

السلام عليكم 

تم تعديل كود الفورم 

Private Sub CommandButton1_Click()
LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(LastRow, 1) = ComboBox1.Value
Cells(LastRow, 2) = TextBox1.Value
Cells(LastRow, 3) = TextBox2.Value
For i = 1 To 6
If Me.Controls("CheckBox" & i) Then
Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption
T = " + "
End If
Next
For ii = 8 To 10
If Me.Controls("CheckBox" & ii) Then
Cells(LastRow, 5) = Cells(LastRow, 5) & R & Me.Controls("CheckBox" & ii).Caption
R = " + "
End If
Next
Unload Me
End Sub

 

 

New folder (3).zip

[حمادة عمر]

السلام عليكم

الاستاذ القدير العملاق / عبدالله المجرب

 

بارك الله لنا فيك

دائما نتعلم منك الكثير والكثير استاذنا الجميل

وفعلاً كود جميل جداً

جزاك الله خيرا ابو احمد

[عبدالله المجرب]

وهذا إختصار للكود (تم تعديل تسلسل خانة الاختيار الخاصة بالاكسسوارات لتحمل الرقم 7 و 8 و 9) 

Private Sub CommandButton1_Click()
LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(LastRow, 1) = ComboBox1.Value
Cells(LastRow, 2) = TextBox1.Value
Cells(LastRow, 3) = TextBox2.Value
For i = 1 To 9
If Me.Controls("CheckBox" & i) Then
If i > 6 Then
Cells(LastRow, 5) = Cells(LastRow, 5) & R & Me.Controls("CheckBox" & i).Caption
R = " + "
Else
Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption
T = " + "
End If
End If
Next
Unload Me
End Sub

 

 

New folder (3).zip

[dozens]

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

[عبدالله المجرب]

السلام عليكم

الاستاذ القدير العملاق / عبدالله المجرب

 

بارك الله لنا فيك

دائما نتعلم منك الكثير والكثير استاذنا الجميل

وفعلاً كود جميل جداً

جزاك الله خيرا ابو احمد

 

شكراً لك اخي حمادة

[عبدالله المجرب]

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

 

الاضافة هي هذه الجزئية 

For i = 1 To 6
If Me.Controls("CheckBox" & i) Then
Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption
T = " + "
End If
Next

 

السطر

For i = 1 To 6

 

حلقة تكرارية تبداء من 1 الى 6 وهي عدد خانات الاختيار للالوان

 

السطر

If Me.Controls("CheckBox" & i) Then

 

جملة شرطية اذا كانت قيمة خانة الاختيار ذات الرقم في الحلقة التكرارية صح (True) يتم تطبيق الشرط

 

السطر

Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption
T = " + "

 

تصبح قيمة الخلية التي في الصف الفاضي والعمود الرابع عبارة عن قيمة نفس الخلية بالاضافة الى العلامة +  وعنوان خانة الاختيار

 

السطر

 

End If
Next

 

نهاية الشرط ونهاية حلقة التكرار

 

========

 

الحلقة الاخرى بنفس الفكرة بالضبط

[dozens]

السلام عليكم ورحمه الله و بركاته

الف شكر على الاهتمام أستاذ عبد الله المجرب جزاك الله كل خير