ahmed mubarak
عدد المساهمات : 21
تاريخ التسجيل : 31/05/2021
العمر : 55
الموقع : الجمهورية اليمنية
 |  موضوع: مراجعة كود التعديل  الأربعاء يونيو 22, 2022 11:04 am | |
| السلام عليكم ورحمة الله وبركاتة
مساء الخير الاستاذ مجدي
ارفقت لك ملف الاكسل في برنامج لحلاقات المطلوب
مراجعة كود التعديل يضهر فيه خطاء ترحيل في خلاياء غير الخلايا المطلوبه
اريد اضهار عناوين الليست بوكس
اريد البيانات في ليبل الحلقة النشطه تنتقل مباشره في الكمبوبكس رقم 2 حتى لو استبدل الكمبوبكس بليبل اخر هذا وتقبل خالص تحياتي
https://mega.nz/file/mpAEgJTA#MLR5KRQTUDllb-ndmgNvduU_3449n_YlbFNsWtSD_1E
هذا الرابط وفيه صورة البرنامج
https://mega.nz/file/b8ASETDL#Bx-s4feSBVOgn5vXGLz0ZjVjlQxiEi80YoPXRONDHDw
عدل سابقا من قبل ahmed mubarak في الأربعاء يونيو 22, 2022 8:57 pm عدل 2 مرات (السبب : الملف شغال ومرتب استاذ مجدي الي ارسلته عبرMEGA ليست الصورة البرنامج الي رسالته لك) | |
|
مجدى يونس
Admin
عدد المساهمات : 3777
تاريخ التسجيل : 22/02/2013
العمر : 69
| | موضوع: رد: مراجعة كود التعديل الأربعاء يونيو 22, 2022 8:21 pm | |
| الاخ احمد
حملت الملف للاسف الشغل فيه ملخبط
عند عمل فورم لابد من تساسل التكست وتسلسل الكمبوبوكس
انظر الصورة عملت المطلوب  انظر الكود المفروض التكست يبدأ ب 1 الى اخره او يبدأ ب aa1 الى aa12 مثلا الكود - الكود:
-
Private Sub ListBox1_Click()
TextBox18.Value = ListBox1.List(ListBox1.ListIndex, 0)
TextBox19.Value = ListBox1.List(ListBox1.ListIndex, 1)
TextBox20.Value = ListBox1.List(ListBox1.ListIndex, 2)
TextBox21.Value = ListBox1.List(ListBox1.ListIndex, 3)
TextBox35.Value = ListBox1.List(ListBox1.ListIndex, 4)
TextBox37.Value = ListBox1.List(ListBox1.ListIndex, 5)
ComboBox137.Value = ListBox1.List(ListBox1.ListIndex, 6)
ComboBox144.Value = ListBox1.List(ListBox1.ListIndex, 7)
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 8
Dim c As Long
c = Cells(Rows.Count, "a").End(xlUp).Row
ListBox1.List = Range("a1:h" & c).Value
End Sub _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
