
excel VBA YESNO付きのメッセージボックスが2回出てしまいます。
VBA初心者です。上記の解決策を教えて頂きたいです。
ユーザーフォーム上のテキストボックスの入力値がexcelsheet上の表に無い場合に注意文が出るようにしました。
「"注意:テキストボックス1 リストに無い値です。この表示を無視しますか? >Yes or No」
Yes:そのまま処理が進む
No:処理停止
としたい感じです。
↓コードを書いたのですが、YesやNoボタンを1回押してももう1回メッセージボックスが出てしまい、2回ボタンを押さなければならない状態です。
----------------------------------------
Dim keyword As String
keyword = TextBox1
Dim Result As Long
Result = MsgBox("注意:テキストボックス1" & vbCrLf & "リストに無い値です" & vbCrLf & "この表示を無視しますか?", vbYesNo + vbExclamation)
If WorksheetFunction.CountIf(Worksheets("test").UsedRange, keyword) = 0 Then
MsgBox "注意:テキストボックス1" & vbCrLf & "リストに無い値です" & vbCrLf & "この表示を無視しますか?", vbYesNo + vbExclamation
If Result = vbNo Then
Exit Sub
End If
End If
---------------------------------------
上記どこが悪いでしょうか。
教えて頂けますと有り難いです。
何卒よろしくお願い申し上げます。
No.1ベストアンサー
- 回答日時:
そりゃMsgBoxを2回呼んでるからです。
試しに、下の方のMsgBoxの文字列の「注意」を「ごちゅうい」にでも変えてみれば、同じメッセージが2回出ているのではない、ということがわかるでしょう。
さて、上の方のMsgBoxは、"リストに無い値"であるかどうかとは関係なく常にメッセージを出すから、全く余計です。一方、下の方のMsgBoxは"リストに無い値"である場合にだけメッセージを出すけれども、Resultに値を返さないんでダメ。
というわけで、下の方の"MsgBox"以下をみんな削除して、そこに、上の方のMsgBoxの一行を丸々移動すればいいんです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
メッセージを1度だけ表示したい。
Visual Basic(VBA)
-
エクセルVBA ブックを閉じる前に確認メッセージを表示したい
Excel(エクセル)
-
VBA 2回実行してしまう?
Windows 7
-
-
4
メッセージボックス 1度だけ表示したい
Excel(エクセル)
-
5
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
UserForm1.Showでエラーになります。
工学
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
10
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
11
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
14
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
15
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
18
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
19
エクセルVBA 連続してメッセージで判断
Access(アクセス)
-
20
エクセル TABキーの動きをマクロで
Excel(エクセル)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
血小板増加について
-
検便についてです。 便は取れた...
-
首吊りどこ締めるの
-
Excel 数値の前の「 ' 」を一括...
-
レインボーシックスシージをし...
-
エクセルで空白セルを含む列の...
-
腕を見たら黄色くなってる部分...
-
VLOOKUP関数を使用時、検索する...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
病院側から早く来てくださいと...
-
勃起する時って痛いんですか? ...
-
エクセルのラベルの値(文字列...
-
彼女のことが好きすぎて彼女の...
-
Excel条件付書式(残業45時間以...
-
リンク先のファイルを開かなく...
-
エクセルで数式の答えを数値と...
-
MIN関数で空白セルを無視したい...
-
値が入っている一番右のセル位...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
検便についてです。 便は取れた...
-
値が入っているときだけ計算結...
-
彼女のことが好きすぎて彼女の...
-
尿検査前日に自慰行為した時の...
-
VLOOKUP関数を使用時、検索する...
-
Excel 数値の前の「 ' 」を一括...
-
精液の落とし方を教えてください
-
【Excelで「正弦波」のグラフを...
-
2つの数値のうち、数値が小さい...
-
風俗店へ行く前のご飯
-
精子に血が・・・
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
-
EXCELで条件付き書式で空白セル...
-
イタリアから帰国する際、肉製...
-
excelでsin二乗のやり方を教え...
-
腕を見たら黄色くなってる部分...
-
病院側から早く来てくださいと...
-
ワードのページ番号をもっと下...
おすすめ情報