M.NHAKAMI قام بنشر أبريل 26, 2020 مشاركة قام بنشر أبريل 26, 2020 السلام عليكم استفسار عندي الكود التالي يجلب البيانات من الشيبت من الصف الأول إلى أخر صف به نص في العمود طلبي انا اريده لو تكرمتم مالتعديل الذي اجريه عالكود بحيث يظهر لي بيانات الشيت في listbox حيث يبدأ من الصف 59 الي نهاية الصفوف التي بها بيانات Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To lr - 1 b = i + 1 Me.ListBox6.AddItem Me.ListBox6.List(i, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(i, 2) = Sheets("level1").Cells(b, 2) Next i المصنف1.xlsm رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر أبريل 26, 2020 مشاركة قام بنشر أبريل 26, 2020 Private Sub CommandButton1_Click() Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 59 To lr - 1 b = i Me.ListBox6.AddItem Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2) Next i End Sub تفضل. يمكن أن تستغني عن b . و تضع i فقط. تركتها لاووضح لك التعديل على كودك. القائمة تبدأ من الصف 59. المصنف1.xlsm 1 رابط هذا التعليق شارك More sharing options...
M.NHAKAMI قام بنشر أبريل 27, 2020 الكاتب مشاركة قام بنشر أبريل 27, 2020 اخ رائد توجد مشكله بسيطه بالكود عند الضغط على الزر مره اخري او اضغط زر اخر لاظهار شيت ثاني تزيد المساحات الفارغه اسفل الليست بوكس هل ممكن اضافه سطر مسبق لحلقة الدوران حيث يعمل لليست بوكس مسح محتويات ثم يضيف المحتويات الجديده لان البيانات احتاج جلبها اكثر من شيت الملف المرفق فيه اظهار اكثر من شيت المصنف1.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة الرائد77 قام بنشر أبريل 27, 2020 أفضل إجابة مشاركة قام بنشر أبريل 27, 2020 Private Sub CommandButton1_Click() Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" Me.ListBox6.clear lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 59 To lr - 1 b = i Me.ListBox6.AddItem Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2) Next i End Sub Me.ListBox6.clear 1 رابط هذا التعليق شارك More sharing options...
M.NHAKAMI قام بنشر أبريل 27, 2020 الكاتب مشاركة قام بنشر أبريل 27, 2020 الشكر لك اخ رائد الكود تم تجربته رائع جدا رابط هذا التعليق شارك 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.