محمدعبدالعزيز قام بنشر يوليو 25, 2020 مشاركة قام بنشر يوليو 25, 2020 بعد اذن الاساتذه المحترميين مطلوب كود تنقل بين صفوف الليست بوكس وعرض رقم الصف TEST.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة الرائد77 قام بنشر يوليو 25, 2020 أفضل إجابة مشاركة قام بنشر يوليو 25, 2020 تفضل مع ان ملفك يفتقد الى البيانات 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 1 1 رابط هذا التعليق شارك More sharing options...
محمدعبدالعزيز قام بنشر يوليو 26, 2020 الكاتب مشاركة قام بنشر يوليو 26, 2020 كل الشكر والتقدير للاستاذ الرائد77 رابط هذا التعليق شارك 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.