Excel VBA質問箱 IV

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

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


10163 / 13646 ツリー ←次へ | 前へ→

【23381】コンボボックスとイベント mitu 05/3/20(日) 11:51 質問[未読]
【23382】Re:コンボボックスとイベント だるま 05/3/20(日) 13:20 回答[未読]
【23384】Re:コンボボックスとイベント mitu 05/3/20(日) 14:41 お礼[未読]

【23381】コンボボックスとイベント
質問  mitu  - 05/3/20(日) 11:51 -

引用なし
パスワード
   コンボボックスで、Clicイベントを用いてデータを取得して、次のジョブをさせています。

この時、コンボボックスの選択データが、前回選択した値のままであると、イベントが発生せず、次に進みません。一度別のデータを選択してから、再度選択しなおせば解決するのですが・・・

良い方法をお教えねがいます。

【23382】Re:コンボボックスとイベント
回答  だるま  - 05/3/20(日) 13:20 -

引用なし
パスワード
   ▼mitu さん:
>コンボボックスで、Clicイベントを用いてデータを取得して、次のジョブをさせています。
>
>この時、コンボボックスの選択データが、前回選択した値のままであると、イベントが発生せず、次に進みません。一度別のデータを選択してから、再度選択しなおせば解決するのですが・・・
>
>良い方法をお教えねがいます。

こんにちは

DropButtonClickイベントを利用してみてはいかがですか。^d^

Option Explicit

Private DropCount As Boolean

Private Sub UserForm_Initialize()
  DropCount = False
End Sub

Private Sub ComboBox1_DropButtonClick()
  If DropCount Then
    MsgBox "ComboBox1_DropButtonClick"
  End If
  DropCount = Not DropCount
End Sub

【23384】Re:コンボボックスとイベント
お礼  mitu  - 05/3/20(日) 14:41 -

引用なし
パスワード
   ▼だるま さん:
こんにちは

早速のご教授ありがとうございました。

お陰様で、希望通りうまくできました。
今後とも、よろしくお願いします。

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