• ベストアンサー

Excel 2000 2003での MSGBOXについて教えて下さい。

VBAのなかで、 ans = msgbox("「x説明とデータ が入りますx」") などと表示するのですが、 msgboxで表示される部分(ここでは「 」の部分)をフォントを大きくしたり、色表示したりしたいのですが、どうすればいいのですか? よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.1

こんばんは。 MsgBox の文字列などの変更は、 デスクトップのプロパティ 画面のプロパティ-デザインで変えるはずです。 だから、Office VBAなどでは、文字の大きさを変えたり、色をつけるなど、文字の表現力をつけたいときは、UserForm で Labelを貼り付けるなどして作ることになります。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • surin
  • ベストアンサー率60% (6/10)
回答No.2

No.1の方の回答のように UserFormを使用するのが一般的だそうですが ご自身で使用するだけであれば との但し書き付きで 下記のURLで 変更の方法が出ています

参考URL:
http://www.geocities.jp/happy_ngi/YNxv9a82.html
全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

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

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

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

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

  • 連続印刷中のMsgBox

    エクセルVBAで作業をしています iをFor・・・Nextで回し50枚程度の印刷を行うのですが、 途中15枚程度で続行か中止かをMsgBoxで振り分けを行いたいのですが プリントOUT処理の後 If i = 10 Then     ans2 = MsgBox("15枚印刷しましたまだ続けますか?", vbYesNo + vbInformation, "印刷実行")     Select Case ans2      Case vbYes     Select Case ans2      Case vbNo      Exit For      End Select Next i  End With  End Select End Sub 書くとNextに対するFORがありませんと出ました どうすれば良いでしょうか

  • VBSの「MsgBox」について

    こんにちは。 VBSをかじり始めなので、的外れだったらご容赦を。 例えば、 MsgBox"こんにちは" を実行したとき、 「こんにちは」の部分を 太字にしたり、色をつけたり、等、目立つような表示に することは可能なのでしょうか? (また、画像を挿入したりとか) よろしくお願いします。

  • 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 VBA msgboxについて

    メッセージボックスを表示させた際 OKボタンや、YES/NOボタン上にポインタを移動させるコードを教えて頂けませんか? 「VBA msgbox ポインタ 移動」などで検索したのですが どうしてもヒットしませんでした。 どうぞよろしくお願いいたします。

  • MsgBoxについて

    MsgBoxに表示させる文字の大きさや文字の色(赤)を指定する方法を教えて下さい、

  • アクセスのmsgboxでフォントを指定したい

    アクセス97です。 msgboxで記述するテキストのフォントを指定したいのですが、 やり方が分かりません。 フォントの種類や文字のサイズ、色、背景など変更できるのでしょうか? よろしくお願いします。

  • エクセルVBAのMsgBox関数について

    エクセルVBAのMsgBox関数で項目1と項目2の値を表示して 問題なければデータベースに登録するといったコードを作りたいです。 今のところ以下のような感じです。 MsgBox("項目1" & 項目1.Value & vbCrLf & "項目2" & 項目2 & vbCrLf & "以上の内容で登録してよろしいですか?", 36 + 256, "確認,") これでは 項目1XXXX (XXXX 項目1の値) 項目2XXXX (XXXX 項目2の値) 以上の内容で登録してよろしいですか? のように表示され、項目1と項目1の値の間にスペースがないため 見栄えが悪いです。そこでスペースを表示して、尚且つ項目1の値と 項目2の値を右端を揃えて表示したいのですが、文字数が不定なので スペースを決まった数入力すれば解決するということではありません。 誰かVBAに詳しい方、ご教授願えませんでしょうか。

  • Msgboxで使用するフォントの指定は可能?

    お世話になります。 VB6のMsgboxで、表示する文字のフォントの種類を指定することは可能でしょうか? よろしくお願いします。

このQ&Aのポイント
  • TM10UE621を中古で購入し、ubereatsの受注レシートを印刷したいです。可能なのか、複数台のタブレットとの接続方法も知りたいです。
  • 購入したTM10UE621を使用してubereatsの受注レシートを印刷する方法を教えてください。また、複数のタブレットとの接続方法も知りたいです。
  • TM10UE621を中古で購入し、ubereatsの受注レシートの印刷方法を教えてください。また、複数のタブレットとの接続についても教えてください。
回答を見る

専門家に質問してみよう