|
▼レッズ命 さん:
すこしトンチンカンな(?)レスをしたようです。
まず、コードをよく見ましたが、ユーザーフォームのコンボボックスでしたね。
で、質問は、ドロップダウンしたいのにされないということにたいするもの
だったんですね。
失礼しました。
ところで、
>コンボボックス1を空白にした時にのみドロップダウンするようなのですが
と書いておられますが本当ですか?
逆ではないのですか?
アップされたコードにインデントをつけて、骨格のみ抜きだしますと
以下となりますが、Me.ComboBox2.DropDown を記述しているブロックは
ComboBox1.Value = "" 【ではない場合】ですよね。
いずれの場合でもドロップダウンということなら記述する場所は、しの下の
End If のさらに下ではないでしょうか?
それと、上でアップしたレスで申し上げましたように2003では、この
ComboBox2.DropDown で、その瞬間はドロップダウンされますが、
このプロシジャを抜けると(End Sub) また閉じられます。
2007では、そこが改善されているのでしょうか。
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
|
|