• ベストアンサー

msgbox について

ja7awuの回答

  • ja7awu
  • ベストアンサー率62% (292/464)
回答No.2

出来ますよ !! MggBox 関数の戻り値を利用します。 ヘルプを活用する習慣を付けましょう。 くわしぃ~く 解説していますよ。

関連するQ&A

  • [VBA]MsgBoxが消えません。

    ExcelでFormダイアログで、メインメニューを 作成しています。 今度、入力項目のエラーチェックを行うこと になったのですが、エラーを検出した場合、 メインメニューのサイズより大きなMsgBoxを 表示しています。OK/CancelでMsgBoxが消え、 メインメニューが再表示されるのですが、 メインメニューの領域外が、MsgBoxの表示 が残ったままになってしまいます。 (制御そのものはメインメニューに移っています。) このような場合でも、MsgBoxをきれいに消す にはどのようにしたらよろしいでしょうか?

  • MsgBoxで処理したい

    セル"A1"に入力した値が正しければ、セル"B5"に"○"が表示され、 正しくなければ、"×"が表示されるようにしてあります。 そこで、正しくない値が入力された場合のみ MsgBox が表示されて "はい"を選択したらそのまま"A2"に移動し、 "いいえ"を選択したら"A1"をクリアして"A1"に戻るように考えましたがうまくいきません。 下記の記述では全てクリアーされてしまいます。 どの様に記述したらよいでしょうかご教授ねがいます。 If Range("B5").Value = "×" Then MsgBox "処理を継続しますか?", vbYesNo Range("A2").Select Else Range("A1").ClearContents Range("A1").Select End If

  • MsgBoxがあるとTextBox表示が出ない

    Excel VBA 独学中の初心者です。 Sheet上にTextBox(ActiveXコントロール)を置き、TextBoxにデータを表示させた後にMsgBoxにもデータを表示させたいと思っています。(両方同時表示) 実行してみると、 a) 同時に表示されることもありますが、 b) MsgBoxには表示されるが、TextBoxはブランクのままのことが有ります。この時はメッセージを「OK」で消すと初めてTextBoxにデータが表示されます。 (1) 考えられる原因は何でしょうか。 (勝手な推定ですが、TextBoxデータの画面表示に時間がかかって、先にMsgBoxの表示が出てしまっているように見えます。) (2) 安定して同時にデータを表示させる方法は有るでしょうか。 プロシージャ例は以下です。よろしくお願い致します。 ---------------------------- Sub テスト() Worksheets("Sheet1").TextBox1.Value = Time MsgBox "Timeは" & Time & "です。" End Sub ----------------------------

  • EXCELのMSGBOXの表示位置について

    EXCELのVBAのMSGBOXについて。 MSGBOXを表示させる位置ですが、 中央以外に設定することはできませんか? よろしくお願いします。

  • msgboxの値をシリアル値で表示するには?

    お世話になります。 エクセル2010VBA初心者です。 以下の手順で msgboxの値をシリアル値で表示するには どうすればいいのでしょうか? Sub シリアル値で表示() a = InputBox("年を入力してください") b = InputBox("月を入力してください") c = InputBox("日を入力してください") d = a & "年" & b & "月" & c & "日" MsgBox d End Sub 宜しくおねがいいたします。

  • MSGBOXのフォント大きさ変更

    msgboxのフォント変更に関しては、既に質問NO.384428「フォントの大きさ」に解決策が示されています。 その回答の中の、「msgboxとそっくり同じ物はちょっと面倒ですが、フォントサイズを変えて、表示するだけでしたら、Formとラベルとボタンだけですので、そんなに難しくはないと思います。」という方法に関して、出来れば具体的に教えていただきたいのですが。

  • エクセルのセル時刻データをMsgBOX命令で正しく表示させる方法

    エクセルのセルに表示形式として、時刻を設定しています。 例えば、A1=23:30が入っていると     MsgBox "A1=" & sheets("XYZ").Range("A1") では、0.9375と表示されてしまいます。 どのようにすれば、23:30と表示させることができますか。 VBについては、あまり詳しくはありません。 よろしく教示願います。

  • Msgboxにテーブルのレコードを表示させたい。

    毎度、お世話になります。 Access2000でMsgboxに、テーブル作成クエリーで抽出したレコード名を表示させたいのです。 テーブルAのBフィールドに入っているB'というレコードです。 おわかり頂けましたでしょうか? 最終的には Msgbox(B' & "です。")としたいのですが・・・ よろしくお願いします。

  • msgboxの引数について調べているのですが・・・

    私は現在四択の選択肢のある問題を制限時間内に解答する、というようなプログラムを作成しているのですがその中で解答の途中に問題を終了し結果を表示する「終了」というボタンを作成しました。 MsgBox("テストを終了しますか?", vbYesNo, "テスト終了") 終了ボタンをクリックしたら上記のようなにメッセージボックスを表示させたいのですが、この際”いいえ”のほうが選択されているのをディフォルトで設定したいのですが上記のプログラムにvbDefaultButton2?を設定すればいいのか?設定するとしてどこに記述すればいいのかわからなくなり質問しました。 知恵をかしてくださいよろしくお願いします。

  • VBA(EXCEL97)のMSGBOX関数について

    参照設定を「MSVBVM60.DLL」に変更したところ MSGBOX関数で「~メモリを参照しました。~」と 表示されるようになりました。 [コード] MsgBox "先頭データです", vbCritical, "**エラーメッセージ**" よろしくお願いします。