الصفتى قام بنشر يوليو 29, 2021 مشاركة قام بنشر يوليو 29, 2021 ممكن اعرف الخظأ فى الكود اى؟ Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة Me.ListBox1.AddItem For a = 1 To 6 Me.ListBox.List(0, a - 1) = Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 29, 2021 أفضل إجابة مشاركة قام بنشر يوليو 29, 2021 جرب هذا التعديل Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub 3 رابط هذا التعليق شارك 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.