kmaal قام بنشر يوليو 7, 2012 مشاركة قام بنشر يوليو 7, 2012 (معدل) سؤالي انا املك في ملفي 8 قوائم combobox واريد تطبيق الكود على كل واحد من القوائم بالتتالي عملت الكود اسفله ويطلع لي خطأ . وهل من الممكن جعل قيمة H تساوي رقم الاختيار للـListindex dim combo as combobox Dim i As Integer Dim h As Integer For i = 1 To 8 combo = combo & ( i ) h = combo.listindex وجزاكم الله خيراً على التعاون . (مرفق الملف للتوضيح) month.rar تم تعديل يوليو 7, 2012 بواسطه kmaal رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 7, 2012 مشاركة قام بنشر يوليو 7, 2012 السلام عليكم استفسار حسب سعة وقتكم ليس عنوان لموضوعك وهذا مخالف لقواعد المشاركة هذه المرة تحذير واخرى سيتم اغلاق او حذف الموضوع ================================== بالنسبة لطلبك هكذا تستخدم الكنترول في بدلالة الاسم Me.Controls("ComboBox" & i) مثال : Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 8 MsgBox Me.Controls("ComboBox" & i).Value Next i End Sub رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يوليو 7, 2012 مشاركة قام بنشر يوليو 7, 2012 وهذه اضافة الى كود الاستاذ عبد الله حفظه الله حتى يكتمل المطلوب Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 8 MsgBox Me.Controls("ComboBox" & i).Value Sheets("2").Cells(3, i).Value = Sheets("1").Cells(i + 1, 1).Value Next i End Sub رابط هذا التعليق شارك More sharing options...
kmaal قام بنشر يوليو 9, 2012 الكاتب مشاركة قام بنشر يوليو 9, 2012 شكراً جزيلاً رابط هذا التعليق شارك 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.