Excel VBA質問箱 IV

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

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


13586 / 76732 ←次へ | 前へ→

【68649】Re:コンボボックスのドロップダウンについて
発言  UO3  - 11/4/1(金) 11:17 -

引用なし
パスワード
   ▼レッズ命 さん:

すこしトンチンカンな(?)レスをしたようです。
まず、コードをよく見ましたが、ユーザーフォームのコンボボックスでしたね。
で、質問は、ドロップダウンしたいのにされないということにたいするもの
だったんですね。

失礼しました。

ところで、

>コンボボックス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

1 hits

【68643】コンボボックスのドロップダウンについて レッズ命 11/3/31(木) 22:36 質問
【68647】Re:コンボボックスのドロップダウンについて UO3 11/4/1(金) 10:04 発言
【68648】Re:コンボボックスのドロップダウンについて UO3 11/4/1(金) 10:41 回答
【68649】Re:コンボボックスのドロップダウンについて UO3 11/4/1(金) 11:17 発言
【68650】Re:コンボボックスのドロップダウンについて kanabun 11/4/1(金) 12:10 発言
【68652】Re:コンボボックスのドロップダウンについて レッズ命 11/4/1(金) 13:13 お礼

13586 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free