【ExcelVBA】MsgBoxのNoのときの抜け方

◎MsgBox(メッセージボックス)のNo(ノー)のときの抜け方

 

メッセージを表示するだけのMsgBoxではなく、「はい」と「いいえ」のついているMsgBoxを使う方法です。

 

’---

 

’変数の宣言
Dim ans As Integer

’ansでYesかNoを取得
ans = MsgBox("実行しますか?", Buttons:=vbYesNo, Title:="タイトルを表示")

’Noを選んだ場合
If ans = vbNo Then
   MsgBox "実行せずに終了します。"
Else
’Yesを選んだ場合
   MsgBox "実行します。"
End If

 

’---

 

 

このままおサンプルにしてもらったらいいかな、と思います。

 

 

 

ExcelVBAを実務で使い倒す技術

ExcelVBAを実務で使い倒す技術

  • 作者:高橋宣成
  • 発売日: 2017/04/20
  • メディア: 単行本
 

 

 

ではまた。