Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10182 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼だるま さん：
こんにちは

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

お陰様で、希望通りうまくできました。
今後とも、よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10182 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free