Excel VBA質問箱 IV

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

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


75554 / 76738 ←次へ | 前へ→

【5620】Re:コンボボックスのChangeイベント時にドロップダウンを消す方法ありますか?
発言  ichinose  - 03/5/22(木) 12:50 -

引用なし
パスワード
   ▼まこさん さん:
こんにちは。
>ご覧いただきありがとうございます。
>VBAを使い始めて半年くらいです。今回以下のようなことでつまづき先に進むことができません。宜しくお願いします。
>コンボボックスで値を選択し、changeイベントでコンボボックスの該当する値についてMSGBOX関数を表示させているのですが、MSGBOXが表示された段階でまだドロップダウンしている状態です。当然ドロップダウンリストで他の値を選択できます。そこで選んでしまった値は本来MSGBOXを表示させる値でないため矛盾が起きてしまいます。changeイベントが発生した瞬間にドロップダウンを消して選べなくしたいのですが何か良い方法がないでしょうか。よろしくご教授のほどお願いいたします。

現象確認しました。知りませんでした(メモメモ・・)。
'==================================================
Private Sub ComboBox1_Change()
With ComboBox1
 .Enabled = False
 MsgBox .Value
 .Enabled = True
 End With
End Sub

だと、ドロップダウンリストが消えました。
他には、ユーザーフォームを使用して、自作のメッセージボックスを作った場合は、
ユーザーフォーム呼び出しただけで消えました。

他にも方法があるでしょうか?
0 hits

【5617】コンボボックスのChangeイベント時にドロップダウンを消す方法ありますか? まこさん 03/5/22(木) 11:39 質問
【5620】Re:コンボボックスのChangeイベント時にドロ... ichinose 03/5/22(木) 12:50 発言
【5622】Re:ichinoseさんありがとうございました。解... まこさん 03/5/22(木) 13:22 お礼

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