vbメッセージボックスの「はい」「いいえ」などのボタンを、自分で指定したボタン名に変更できないでしょうか？やりたいことは、「言語を選択してください」という質問メッセージを表示して、これから行うアクションを、例えば、「日本語 つまり、MsgBox関数の返り値を使いません。VBAのルールでは、返り値を使わないとき、引数を括弧で囲みません。反対に、上記のように「ユーザーが、どのボタンをクリックしたか」を知るためには、MsgBox関数の返り値を調べなければなりません。
メッセージボックスに表示されるはい、いいえ、キャンセルのボタンのテキストを自由に変更したいのですが何か良い方法があったら教えてください。フォームを作ってメッセージボックスと同じものを作る方法ではなく、MsgBox関数で表示され 実行すると、[OK]ボタンが1つだけある小さなメッセージボックスが表示されます。 このMsgBox関数は、ほかにもいろいろな使い方ができます。 ここでは、VBAの定番のMsgBox関数の使い方をご紹介します。 EXCEL VBAコード（プログラム）を作成する上で、メッセージを表示させる事は、いろんな場面で利用されます。内容に応じて「Yes・No」などの判定をすることもできます。それでは、Msgboxの利用方法をサンプルプログラムを使い説明をいたします。 MsgBox関数の使い方（2） - ユーザーが選択したボタンの処理｜Excel VBA: ... Sub Sample5() Dim rc As Long rc = MsgBox("処理を続けますか？", vbYesNo + vbQuestion) MsgBox "クリックされたボタンは" & rc & "です" End Sub. MsgBoxとは、メッセージを表示する機能と、問合せを行い返事を返す機能がある関数です。ボタンの種類 アイコンの種類 デフォルトボタン 返り値 問合せを行う 引数のprompt・buttons・titleを指定しています。返り値はIF文で判定しています。メッセージの改行位置に「vbCrLf」か「vbNewLine」を挿入します メッセージを表示するダイアログボックス（小さな画面）を表示します。ユーザーに選択（「はい」「いいえ」や「OK」「CANCEL」等）してもらい、その選択結果を受け取る事も出来ます。マクロVBAでメッセージボックスを表示するにはMsgBox関数を使います。 「標準ボタン」とはユーザーが Enterキーを押したときに押下されるボタンのことです。また、vbMsgBoxRtlReadingなどは日本版（？）では使用できないようです。 3．ユーザーの選択を取得する ユーザーの選択したボタンは MsgBox関数の戻り値となります。 任意のボタンを選択された状態にするには、第2パラメータに「vbDefaultButtonX（Xはボタンの番号）」を追加します。 たとえば、2つめのボタンを選択された状態にするには「vbDefaultButton2」を追加します。 MsgBox("実行しますか？", vbDefaultButton2 + vbYesNo) #8951-0 Msgbox関数のボタンのCaptionは変更できる？ ももどん 2000-03-25(土) 15:54 #8952-0 RE#8951:Msgbox関数のボタンのCaptionは変更できる？ ぜんちゃん 2000-03-25(土) 16:17 #8953-0 RE#8952:Msgbox関数のボタンのCaptionは変更できる？ ももどん 2000-03-25(土) 17:00 エクセル住所録で住所変更した時に「 MsgBox”データ変更しますか？ ” 」とVBAコードを書いてもいいのですが、どうせならば「Aさんの住所録を変更しますか？ 」って表示出来たら分かりやすいですよね。 Sub Sample1() MsgBox "モーグへようこそ！" End Sub. 「MsgBox」関数 では 最大3択のボタンを表示することが出来ます そのボタンによって対話型のより複雑な処理分岐が可能になります （MsgBoxの基本の使い方についてはこちら） また2択ではIf分岐を使用しましたが、ここでは Select分岐を使用します

MsgBox に表示できるボタンは、「はい」「キャンセル」「再試行」などの決められた文字列・組み合わせしか利用できません。 しかし、この方法を使えばこんなメッセージボックスを利用できます。 もちろん MsgBox の利点の一つである IfMsgBox も利用可能です。 メッセージを表示する時に セルの値と組み合わせて表示 出来たら便利だと思いませんか ？. キャンセルボタンや ボタン、未入力の場合の処理コード例 Sub インプットボックスメソッド() Dim 文字列 As Variant 文字列 = Application.InputBox("お名前を入力してください") If 文字列 = False Then MsgBox "キャンセルします。