EXCEL VBA ユーザーフォームコンボボックスのRowSourceの設定方法について

質問

EXCEL　VBAのユーザーフォーム内のコンボボックスのRowSourceの設定方法について質問があります。
基本的な質問かもしれませんが、うまく検索できませんでした。

「リスト一覧」シートに
　　　　A１　　B1　　　C１
１行　りんご　ばなな　ぶどう
２行　100円　　200円 300円
３行　110円　　210円　310円
という値を入れる。
ユーザーフォーム内にコンボボックスを２つ設置し、
コンボボックス１の値が「リスト一覧」シートの１行の値と同じときに
コンボボックス２のRowSourceを同じ列の２行、３行に設定する。

Private Sub ComboBox1_Change()
Dim i As Integer
　i = 1
　　Do Until Sheets("リスト一覧").Cells(1, i) = ComboBox1.Value
　　　i = i + 1
　　Loop
ComboBox2.RowSource = i列の２行目及び３行目.Address
End Sub
というコードになると思うのですが、うまくいきません。
どうぞよろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

＞りんご　ばなな　ぶどう
の選択で得られるListIndex値を利用して、

Private Sub ComboBox1_Change()
Dim i As Integer

ComboBox2.ListIndex = -1
i = ComboBox1.ListIndex

ComboBox2.RowSource = Cells(2, i + 1).Resize(2).Address(0, 0)
End Sub

こんなとか？

お礼

返事が遅くなりましてすいません。
教えていただいたとおりにやってみたら出来ました。
Resize()という使い方を知らなかったので勉強になりました。
また何かありましたらよろしくお願いいたします。