اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

تم تعديل بواسطه 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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information