ユーザーフォームのコンボボックスでINDIRECT関数を使うにはどのよ

ユーザーフォームのコンボボックスでINDIRECT関数を使うにはどのようにすればいいでしょうか？
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "sheet1!B1:C1"
ComboBox2 = "=INDIRECT(?)"
End Sub

ComboBox1で種類のリストが表示され、選んだ項目により
ComboBox2のリストが表示されるようにしたいのですが
うまくいきません。

　　1　　　2　　　　3　　　　4
A　種類　果物　　　野菜
B　果物　りんご　　たまねぎ
C　野菜　いちご　　ピーマン
D　　　　みかん　　レタス　　　（すべて名前を定義しています。）

VBAでINDIRECT関数を使うにはどのようにすればよいでしょうか？

No.1 ベストアンサー 回答者： myRange 回答日時： 2010/10/04 15:11

質問の表は、行列が逆になってます。

。(^^;;;
　

＿＿＿Ａ＿＿＿＿Ｂ＿＿＿＿Ｃ＿＿＿
１＿種＿類＿＿果＿物＿＿野＿菜＿＿
２＿果＿物＿＿りんご＿＿ハクサイ＿
３＿野＿菜＿＿みかん＿＿ダイコン＿
４＿＿＿＿＿＿ばなな＿＿キャベツ＿

　
Combo1の範囲＝（Ａ２：Ａ３）
　
（名前）
果物＝（Ｂ２：Ｂ４）
野菜＝（Ｃ２：Ｃ４）
　
　
'---------------------------------------
　
Private Sub UserForm_Initialize()
　ComboBox1.RowSource = "Sheet1!A2:A3"
End Sub
'---------------------------------------
　
Private Sub ComboBox1_Change()
　ComboBox2.List = Sheets("Sheet1").Range(ComboBox1.Value).Value
End Sub
'---------------------------------------
　

●Combobox２でRowSourceプロパティを使う場合は
　
ComboBox2.RowSource = "Sheet1!" & Sheets("Sheet1").Range(ComboBox1.Value).Address
　
以上です。
　

この回答へのお礼

行列逆でしたね…（汗）
さっそくにご回答ありがとうございました。
うまくいきました！！

お礼日時：2010/10/05 15:43

No.2 回答者： Wendy02 回答日時： 2010/10/04 15:52

>VBAでINDIRECT関数を使うにはどのようにすればよいでしょうか？

VBAでINDRECT 関数など使う必要などないはずですが……。一体、どうお使いになるつもりなのか、見当も付きません。名前で使うなら、Range(名前）にすればよいですが、VBAとしては、危ない使い方です。(と書くと、また、ここの掲示板では、困った方がいらっしゃって、屈強に反発される人もいますが、VBAと名前定義は相性が良くないのです。まあ、トラブルにあわなければ、めぐり合うまではどうでもよいことですが。）

たぶん、入力規則の「リスト」の方法を、このコンボボックスで実現したいようですが、VBAは、ワークシートの処理の延長上ではありませんから、考え方を変えたほうがよいと思います。

Private Sub UserForm_Initialize()
　Dim c As Range
　ComboBox1.RowSource = "Sheet1!A2:A3"
End Sub

Private Sub ComboBox1_Change()
Dim Rng As Range
Dim i As Long
Set Rng = Worksheets("Sheet1").Range("B2:C4")
i = ComboBox1.ListIndex
If i > -1 Then
　ComboBox2.Value = "" '特に気にならなければここは不要です。
　ComboBox2.RowSource = Rng.Columns(i + 1).Address
End If
End Sub

この回答へのお礼

入力規則のリストの方法を、コンボボックスで実現するには全く考え方が違うのですね。勉強になりました。
ご丁寧にありがとうございました。

お礼日時：2010/10/05 15:45