التنقل بين صفوف الليست بوكس

[محمدعبدالعزيز]

بعد اذن الاساتذه المحترميين مطلوب كود تنقل بين صفوف الليست بوكس وعرض رقم الصف

TEST.xlsm

[الرائد77]

تفضل مع ان ملفك يفتقد الى البيانات

Private Sub ListBox1_Click()
TEXT1.Value = ListBox1.ListIndex + 2
SpinButton1.Value = ListBox1.ListIndex
End Sub

Private Sub SpinButton1_Change()

    If SpinButton1.Value = 0 Then SpinButton1.Value = ListBox1.ListCount - ListBox1.ListCount + 1
    
    ListBox1.ListIndex = ListBox1.ListCount - SpinButton1.Value
   TEXT1.Value = ListBox1.ListIndex + 2
    

End Sub
 

Private Sub UserForm_Initialize()
 
    
    SpinButton1.Max = ListBox1.ListCount
    SpinButton1.Min = 0
    
    SpinButton1.Value = 10
    
End Sub

 

TEST.xlsm

[محمدعبدالعزيز]

كل الشكر والتقدير للاستاذ الرائد77