| |
▼レッズ命 さん：
すこしトンチンカンな（？）レスをしたようです。
まず、コードをよく見ましたが、ユーザーフォームのコンボボックスでしたね。
で、質問は、ドロップダウンしたいのにされないということにたいするもの
だったんですね。
失礼しました。
ところで、
>コンボボックス１を空白にした時にのみドロップダウンするようなのですが
と書いておられますが本当ですか？
逆ではないのですか？
アップされたコードにインデントをつけて、骨格のみ抜きだしますと
以下となりますが、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
|
|
UO3
- 11/4/1(金) 11:17 -
