私の値を取得します。 For Eachループから

Question

私はいくつかの問題があります...私はVBAの初心者です。 だから私はコンボボックスの束を持っている小さなアプリケーションを持っている...それらのほとんどは、Excelの範囲から同じ値を持っています。 だから私は小さなコードでコンボボックスの値を取得したいと、ここで、それはそれはMe.cbox.Valueが正しくないようです...問題はこの事がうまくいかないということです

Dim rep As Range 
Dim cbox As Range 
Dim ws As Worksheet 
Dim ws2 As Worksheet 
Set ws = Worksheets("Sheet1") 
Set ws2 = Worksheets("Sheet2") 

For Each rep In ws.Range("Repere") 
    For Each cbox In ws2.Range("cboxs") 
    With Me.cbox.Value 
    .AddItem rep.Value 
    End With 
    Next cbox 
Next rep 

です。私がMe.cbox.Valueでしたいことは、Me.Combobox1、Me.Combobox2、Me.Combobox3などのようなものを持つことです...範囲cboxには、Comboboxesの名前が入ります... だから私は欲しいですすべてのコンボボックスでレンジ "Repere"からデータをロードする...（私はアプリで約40を持っています） ありがとう！

Answer 1

valueプロパティを使用しないでください。あなたはforループのコンボボックスのaddItemメソッドを使うつもりですが、Me.cbox.Valueでメソッドを呼び出そうとしています。それはする必要があります

For Each cbox In ws2.Range("cboxs") 
    Me.Controls(cbox.Value).AddItem rep.Value "<-----no need for the with bloc at all 
    End With 
Next cbox 

幸運！

Answer 2

お試しWith Me.Controls(cbox.Value)