سعيد 1428 قام بنشر يناير 29, 2019 مشاركة قام بنشر يناير 29, 2019 (معدل) أيها الإخوة السلام عليكم في الملف المرفق أريد عرض البيانات في الشيت DATA من خلال LISTBOX وإجراء التعديل على هذه الببانات من خلالها وشكرا listBox.xlsm تم تعديل يناير 29, 2019 بواسطه سعيد 1428 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يناير 29, 2019 مشاركة قام بنشر يناير 29, 2019 وعليكم السلام من فضلك انظر الى الصورة ويمكنك عمل ذلك بنفسك وكما تشاء رابط هذا التعليق شارك More sharing options...
سعيد 1428 قام بنشر يناير 29, 2019 الكاتب مشاركة قام بنشر يناير 29, 2019 أخي/ أحمد شكرا على الاهتمام المشكلة ليست في حجم الاعمدة وإنما : في أن الاعمدة في شيت 12 والذي يظهر في اليست بوكس هو 9 فقط ثم أنه عند اختيار صف من اليست لعرضه في الفورم يظهر رسالة الخطا المرفق وشكرا على الاهتمام listBox.xlsm رابط هذا التعليق شارك More sharing options...
سعيد 1428 قام بنشر يناير 29, 2019 الكاتب مشاركة قام بنشر يناير 29, 2019 الإخوة الكرام أريد المساعدة في معرفة الخطا في الكود التالي " Private Sub TextBox8_Change() If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub ListBox1.Clear k = 0 With Sheets("DATA") ss = ThisWorkbook.Worksheets("Data").Cells(Rows.Count, 15).End(xlUp).Row For Each C In Sheets("DATA").Range("B2:B" & ss) b = InStr(C, TextBox8) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = Sheets("DATA").Cells(C.Row, 1).Value ListBox1.List(k, 1) = Sheets("DATA").Cells(C.Row, 2).Value ListBox1.List(k, 2) = Sheets("DATA").Cells(C.Row, 3).Value ListBox1.List(k, 3) = Sheets("DATA").Cells(C.Row, 4).Value ListBox1.List(k, 4) = Sheets("DATA").Cells(C.Row, 5).Value ListBox1.List(k, 5) = Sheets("DATA").Cells(C.Row, 6).Value ListBox1.List(k, 6) = Sheets("DATA").Cells(C.Row, 7).Value ListBox1.List(k, 7) = Sheets("DATA").Cells(C.Row, 8).Value ListBox1.List(k, 8) = Sheets("DATA").Cells(C.Row, 9).Value ListBox1.List(k, 9) = Sheets("DATA").Cells(C.Row, 10).Value ListBox1.List(k, 10) = Sheets("DATA").Cells(C.Row, 11).Value ListBox1.List(k, 11) = Sheets("DATA").Cells(C.Row, 12).Value k = k + 1 End If Next C End With End Sub listBox.xlsm رابط هذا التعليق شارك More sharing options...
سعيد 1428 قام بنشر يناير 31, 2019 الكاتب مشاركة قام بنشر يناير 31, 2019 السلام عليكم ارجوا المساعدة في هذا الموضوع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.