اذهب الي المحتوي
أوفيسنا

طلب تعديل على كود listbox


M.NHAKAMI
إذهب إلى أفضل إجابة Solved by الرائد77,

الردود الموصى بها

السلام عليكم 

استفسار عندي الكود التالي يجلب البيانات من الشيبت من الصف الأول إلى أخر صف به نص في العمود

طلبي انا اريده لو تكرمتم مالتعديل الذي اجريه عالكود بحيث يظهر لي بيانات الشيت في 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

رابط هذا التعليق
شارك

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

  • Thanks 1
رابط هذا التعليق
شارك

اخ رائد توجد مشكله بسيطه بالكود عند الضغط على الزر مره اخري او اضغط زر اخر لاظهار شيت ثاني تزيد المساحات الفارغه اسفل الليست بوكس هل ممكن اضافه سطر مسبق لحلقة الدوران حيث يعمل لليست بوكس مسح محتويات ثم يضيف المحتويات الجديده لان البيانات احتاج جلبها اكثر من شيت  الملف المرفق فيه اظهار اكثر من شيت 

المصنف1.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة
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

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information