|
コンボボックス1の値によって、
コンボボックス2の選択肢を変えていて、
コンボボックス1を選択した時に
コンボボックス2をドロップダウンさせたくて、
下記のようなVBAをかきました。
コンボボックス1を空白にした時にのみドロップダウンするようなのですが、
どこがおかしいのでしょうか?
教えてください。 Excel2007を使用しています。
Private Sub ComboBox1_Change()
Set Rng1 = Columns("A").Find(What:="雑貨", lookat:=xlWhole)
Set Rng4 = Columns("A").Find(What:=ComboBox1.Value, lookat:=xlWhole)
Set Rng5 = Rng4.Offset(1, 0)
Set Rng10 = Rng4.End(xlDown)
With ComboBox2
.BackColor = &H80000005
.Enabled = True
.Locked = False
If ComboBox1.Value = "" Then
Rng7 = Cells(1, 2).Address & ":" & Cells(1, 2).Address
Else
If Rng5.Value = "" Then
Set Rng6 = Rng4.End(xlDown).Offset(-1, 0)
If Rng10.Value <> "雑貨" Then
Rng7 = Cells(Rng4.Row, 2).Address & ":" _
& Cells(Rng6.Row, 2).Address
Else
Rng7 = Cells(Rng4.Row, 2).Address & ":" _
& Cells(Rng1.Row - 3, 2).Address
End If
Else
Set Rng6 = Rng4
Rng7 = Cells(Rng4.Row, 2).Address & ":" _
& Cells(Rng6.Row, 2).Address
End If
Me.ComboBox2.DropDown
End If
.RowSource = "買い物リスト!" & Rng7
End With
End Sub
|
|