|
出来ました。
ありがとうございました。
参考までに、下記へ記述を添付します。
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
|
|