استفسار حسب سعة وقتكم

[kmaal]

سؤالي انا املك في ملفي 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

[عبدالله باقشير]

السلام عليكم

استفسار حسب سعة وقتكم ليس عنوان لموضوعك

وهذا مخالف لقواعد المشاركة

هذه المرة تحذير واخرى سيتم اغلاق او حذف الموضوع

==================================

بالنسبة لطلبك

هكذا تستخدم الكنترول في بدلالة الاسم

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

[محمد يحياوي]

وهذه اضافة الى كود الاستاذ عبد الله حفظه الله حتى يكتمل المطلوب

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

[kmaal]

شكراً جزيلاً