コンボボックスの名前を変数にしたい。

シートに任意の数でコンボボックスがCombobox1～100の間で
作成されます。
たとえば、ある数Nが47になったら、Combobox47のvalueを自動的に拾い、N=20ならばCombobox20のValueを拾いたいたいのですが
合理的な方法ありますでしょうか。

（if 文であらかじめ100個作る以外に）

No.2 ベストアンサー 回答者： myRange 回答日時： 2010/01/28 17:38

次のようにOLEObjectsを使ってみてください。

myVal = Sheets("Sheet1").OLEObjects("Combobox" & N).Object.Value

以上です。
　

この回答へのお礼

ありがとうございました。
上手くできました。

お礼日時：2010/01/29 08:24

No.3 回答者： korin_ 回答日時： 2010/01/28 17:39

こんにちは。

ComboBox1～10までの値を表示するサンプルです。
こんな感じでできませんか？

　　Dim i As Integer
　　For i = 1 To 10
　　　　Dim combo As ComboBox
　　　　Set combo = Worksheets(1).OLEObjects("ComboBox" & i).Object
　　　　Call MsgBox(combo.Value)
　　Next

この回答へのお礼

ありがとうございました。
上手くできました。

お礼日時：2010/01/29 08:25

No.1 回答者： nagare 回答日時： 2010/01/28 17:32

こんな感じでしょうか?

Dim sVal1 As String
Dim sVal2 As String
Dim sComboBox As String

sVal1 = ComboBox1.Value
sComboBox = "ComboBox" & sVal1

sVal2 = Worksheets("Sheet1").OLEObjects(sComboBox).Object.Value

MsgBox sVal2

参考URL：http://www.happy2-island.com/excelsmile/smile03/ …