Excel VBAで「はい」「いいえ」の条件分岐をする

Excel VBAでメッセージ（質問）を表示して、ユーザに「はい」「いいえ」の選択をさせて、その結果で処理を分岐させる方法です。

if文による条件分岐

条件分岐には以下のようなif文を使います。

If 条件式 Then
条件式の結果が真の場合
Else
条件式の結果が儀の場合
End If

このif文にMsgBoxを使って、はい、いいえの選択肢を表示します。

If MsgBox(“終了します。” , vbYesNo) = vbYes Then
終了処理
Else
継続処理
End If

このほかに、以下のような書き方もあります。

Dim Result As Long
Result = MsgBox(“終了します。” , vbYesNo)
If Result = vbYes Then
終了処理
Else
継続処理
End If

Excelで計算式を予め設定していたにもかかわらず、数値を入力してもそのセルに計算結果が反映されない時があります。通常、自動計算する設定になっていますが、これが手動計算に変わっていることが原因です。…続きを読む

Microsoft Excelで、セルの中で改行しているテキストを置換する方法です。以下のように、あああいいいという改行を含むテキストを「おおお」というテキストに置換します。改行を含めたテキ…続きを読む

Excel VBAでフィルタ操作をして、行を絞り込みむ方法です。コード Sub autoFilter(Retsu, Atai) Worksheets(“シート名”).Rang…続きを読む

メールに添付されたマクロ付きExcelファイルを開いたところ、「このファイルのソースが信頼できないため、Microsoftによりマクロの実行がブロックされました」と表示され、マクロが実行できなくなっ…続きを読む

Excelでボタンをクリックしたらフォルダを開くようにするVBAです。 Shell EXPLORERPATH & OPENFOLDER , vbNormalFocus EXPLORERPATH…続きを読む

CreateObject(“WScript.Shell”).Runを使って他のプログラムを実行する場合、デフォルトだと起動したプログラムの処理が終わる前に次の処理に移ってしまい…続きを読む

Excel VBAで他のプログラムを実行した際に、実行しているプログラムのウィンドウを最小化表示にする方法です。 CreateObject(“WScript.Shell”).R…続きを読む

Excel VBAからメールを送信するボタンをつくります。パスワードロックをかけたブックを利用していて、パスワードがわからなくなったらメールを送信してパスワードを教える機能を付けようと思い、調べまし…続きを読む

ExcelVBAでシート内のデータを並び替える方法です。 VBAのコード Endrow = Worksheets(SheetName).Range(“A1”).End(xlD…続きを読む

Excel VBAで、予め指定した列を非表示にします。コード hiddenColumn = Array(3, 4, 5, 6) For i = 0 To UBound(hiddenColumn) W…続きを読む

kuuur.netは管理人KUUURが気になった言葉を取り上げて調べ見識を深めるサイトです。

kuuur.netの内容には誤りがあることがあります。kuuur.netの内容を信用した結果損害等を被った場合にKUUURは責任を負うことはできません。この点をご理解の上kuuur.netをご利用ください。内容の訂正などのご意見はお問い合わせからお願いします。

kuuur.netはリンクフリーです。KUUURへの連絡も不要です。ただし次の2点についてご留意ください。(1) フレーム内表示など自分のサイトのコンテンツであるかのような表示はしないでください。(2) リンクしたページのURLは予告なく変更されることがあります。

kuuur.netのコンテンツは他に著作権が存在するものを除きすべてKUUURに帰属します。