エクセルでメッセージボックスを利用して「〇〇しますか?」と問うた時に、「はい」「いいえ」を選択できますが、固定した文章ではなくセルの値によって質問内容が変更したいと思ったことありませんか?
実は簡単で文章の部分をセル番地に指定することで、自由にメッセージボックスの文章を変えることができる方法をご紹介します。
msg = MsgBox(セル番地&文字)
エクセルVBAのメッセージ機能は、単純に「OK」返答する”MsgBox”と、「はい」「いいえ」などで選択肢がある”msg=MsgBox”があります。
ここでは、セルの値を文字を組み合わせて「はい」「いいえ」の選択肢を選ぶことで次の動作を誘導するVBAコードをご紹介します。
VBAコード
Private Sub CommandButton1_Click()
msg = MsgBox(Range(“A1”) & “日目ですね”, Buttons:=vbYesNo + vbQuestion)
If msg = vbYes Then
Unload UserForm1
UserForm2.Show
End If
End Sub
解説
- コマンドボタン1がクリックされたら
- メッセージ「セルA1の値」と「日目ですね」を組み合わせて表示して、「はい」「いいえ」ボタンを表示する
- もし「はい」が選択されたら
- ユーザーフォーム1を閉じる
- ユーザーフォーム2を表示する
- Ifステートメント終了
- マクロ記録終了
波乗りアヒル
このようにRangeと&と文字を組み合わせると、意外と簡単にできるようになり、日数が増えたとしてセルA1の数字が変われば、メッセージの表示が2日目、3日目と自動的に変化してくれますよ。
関連記事
-
ラベル
2つのセルの値を足し算など加減乗除してラベル名に表示させるVBA
ユーザーフォームに配置したラベルの文字をプロパティのキャプションで指定するのではなく、セルの値を取得して表示させたいことありませんか? そしてさらに、2つのセ… -
VBA関数
もし~だったらの条件分岐エクセル関数IFをVBAで代用する方法
条件分岐というと難しいですが、もし~だったら、そうでなかったらってよくありませんか? そしてエクセル関数でも使うIF関数をエクセルVBAでも高頻度で使うので、基本… -
VBA関数
エクセルVBAのメッセージ文章をセルの値にリンクさせる簡単な方法
エクセルでメッセージボックスを利用して「〇〇しますか?」と問うた時に、「はい」「いいえ」を選択できますが、固定した文章ではなくセルの値によって質問内容が変更… -
VBA関数
エクセルINT関数をVBAで小数点以下切り捨てを繰り返し処理方法
エクセル関数を使って小数点以下を切り捨てする作業をVBAを使って複数行一括処理したいと思ったことありませんか? Application.RoundDownと繰り返し処理を合わせて使え…
紅葉スポット
-
フリーきっぷで行く12月が見頃の関東近郊の紅葉スポット
渋滞避けて電車とバスでお得なフリーパスや1日乗車券を使って、のんびり紅葉を見に行きませんか? 温暖化の影響で12月上旬でも関東南部では紅葉を見られる場所がまだま… -
日光穴場!中禅寺湖展望台へ紅葉の中禅寺湖からバスで滞在時間30分
【紅葉見頃】10月中旬~11月上旬 紅葉の見頃となる10月中旬~11月上旬になると、いろは坂から延々華厳の滝や竜頭の滝までとにかく大渋滞して混雑が当たり前ですが、い… -
2023年茨城紅葉スポットへ魅力度再び最下位!空いている穴場へ
紅葉と言えば日光や箱根が有名ですが、あえて茨城県を探すのは混雑や密を避けたいと思ったからですよね。 実は知られていないだけで探してみるとたくさん茨城紅葉スポッ… -
十勝岳望岳台へ活火山の溶岩と山頂部の雪化粧と紅葉の三段紅葉絶景
北海道のほぼ真ん中に位置して旭岳・美瑛藤・上富良野岳などが一望でき、さらに旭川市街や富良野市街までも見ることができる絶景スポットです。 標高930mの十勝岳は9月… -
フリーきっぷで行く埼玉県内の紅葉名所や穴場スポット12選
紅葉絶景めぐりといえば日光や軽井沢が人気紅葉スポットですが、人混みを避けてお得なフリーパスを使って最寄り駅からバスでゆったり紅葉を見に行ってみませんか? 埼玉… -
花貫渓谷の汐見滝吊り橋は茨城県人気紅葉スポットでライトアップは幻想的
花貫川沿いに遊歩道が整備されていて、途中に汐見滝吊り橋があり紅葉と一緒ミニられる事で撮影スポットになっていて、茨城県の人気紅葉スポットとして有名です。 紅葉の…