Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13207 / 76807

←次へ　｜　前へ→


	【69108】Re:コンボボックス１の結果によって、次のコンボボックスの参照範囲を変えたい

なるち - 11/5/17(火) 16:17 -


	引用なし

	パスワード

出来ました。
ありがとうございました。

参考までに、下記へ記述を添付します。
refシートのAA1へ、コンボボックスで選択されたリストが入力されています。

Private Sub ComboBox1_Change()

　　Sheets("ref").Select
　　Selection.Value = ComboBox1

''houkokuを宣言
　　Dim houkoku As String
　　　　　　houkoku = Worksheets("ref").Range("AA1").Value

''項目1を選択した場合
　　If houkoku = "項目1" Then
　　
　　Dim lRow As Long
　　　　With Worksheets("ref")
　　　　　　lRow = .Range("A" & Rows.Count).End(xlUp).Row
　　　　End With
　　　　With ComboBox2
　　　　　　.ColumnCount = 3
　　　　　　.ColumnWidths = "50;50;50"
　　　　　　.RowSource = "ref!A2:A" & lRow
　　　　End With
　　
''項目2を選択した場合
　　ElseIf houkoku = "項目2" Then
　　
　　Dim lRow2 As Long
　　　　With Worksheets("ref")
　　　　　　lRow2 = .Range("B" & Rows.Count).End(xlUp).Row
　　　　End With
　　　　With ComboBox2
　　　　　　.ColumnCount = 3
　　　　　　.ColumnWidths = "50;50;50"
　　　　　　.RowSource = "ref!B2:B" & lRow2
　　　　End With
　　　　
　　End If

1 hits

▼

【69105】コンボボックス１の結果によって、次のコンボボックスの参照範囲を変えたい なるち 11/5/17(火) 15:21