Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13392 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5617】コンボボックスのChangeイベント時にドロップダウンを消す方法ありますか？ まこさん 03/5/22(木) 11:39 質問
【5620】Re:コンボボックスのChangeイベント時にドロ... ichinose 03/5/22(木) 12:50 発言
【5622】Re:ichinoseさんありがとうございました。解... まこさん 03/5/22(木) 13:22 お礼
【5617】コンボボックスのChangeイベント時にドロ...
質問  まこさん  - 03/5/22(木) 11:39 -
引用なし
パスワード
   ご覧いただきありがとうございます。
ＶＢＡを使い始めて半年くらいです。今回以下のようなことでつまづき先に進むことができません。宜しくお願いします。
コンボボックスで値を選択し、changeイベントでコンボボックスの該当する値についてMSGBOX関数を表示させているのですが、MSGBOXが表示された段階でまだドロップダウンしている状態です。当然ドロップダウンリストで他の値を選択できます。そこで選んでしまった値は本来MSGBOXを表示させる値でないため矛盾が起きてしまいます。changeイベントが発生した瞬間にドロップダウンを消して選べなくしたいのですが何か良い方法がないでしょうか。よろしくご教授のほどお願いいたします。
【5620】Re:コンボボックスのChangeイベント時にド...
発言  ichinose  - 03/5/22(木) 12:50 -
引用なし
パスワード
   ▼まこさん さん：
こんにちは。
>ご覧いただきありがとうございます。
>ＶＢＡを使い始めて半年くらいです。今回以下のようなことでつまづき先に進むことができません。宜しくお願いします。
>コンボボックスで値を選択し、changeイベントでコンボボックスの該当する値についてMSGBOX関数を表示させているのですが、MSGBOXが表示された段階でまだドロップダウンしている状態です。当然ドロップダウンリストで他の値を選択できます。そこで選んでしまった値は本来MSGBOXを表示させる値でないため矛盾が起きてしまいます。changeイベントが発生した瞬間にドロップダウンを消して選べなくしたいのですが何か良い方法がないでしょうか。よろしくご教授のほどお願いいたします。

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

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

他にも方法があるでしょうか？
【5622】Re:ichinoseさんありがとうございました。...
お礼  まこさん  - 03/5/22(木) 13:22 -
引用なし
パスワード
   ▼ichinose さん：
無事解決できました。
これでＶＢの作成が先に進みます。本当にありがとうございました。
また、機会がございましたらぜひよろしくお願いいたします。

>▼まこさん さん：
>こんにちは。
>>ご覧いただきありがとうございます。
>>ＶＢＡを使い始めて半年くらいです。今回以下のようなことでつまづき先に進むことができません。宜しくお願いします。
>>コンボボックスで値を選択し、changeイベントでコンボボックスの該当する値についてMSGBOX関数を表示させているのですが、MSGBOXが表示された段階でまだドロップダウンしている状態です。当然ドロップダウンリストで他の値を選択できます。そこで選んでしまった値は本来MSGBOXを表示させる値でないため矛盾が起きてしまいます。changeイベントが発生した瞬間にドロップダウンを消して選べなくしたいのですが何か良い方法がないでしょうか。よろしくご教授のほどお願いいたします。
>
>現象確認しました。知りませんでした（メモメモ・・）。
>'==================================================
>Private Sub ComboBox1_Change()
>With ComboBox1
>　.Enabled = False
>　MsgBox .Value
>　.Enabled = True
>　End With
>End Sub
>
>だと、ドロップダウンリストが消えました。
>他には、ユーザーフォームを使用して、自作のメッセージボックスを作った場合は、
>ユーザーフォーム呼び出しただけで消えました。
>
>他にも方法があるでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13392 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free