[[20060224095216]]　『マクロ実行前にYES、NOを聞いたうえで実行するやａx（F）　ページの最後に飛ぶ

『マクロ実行前にYES、NOを聞いたうえで実行するやりかたって』（F）

マクロの実行前にYESなら実行　NOならキャンセルという事をやりたいのですが過去ログなどを検索した結果

    Dim Ans As Long
         Ans = MsgBox("メッセージ", vbYesNo)
         If Ans = vbYes Then
             MsgBox "「はい」が選択された"
         Else
             MsgBox "「いいえ」が選択された"
         End If
上のようなコードが見つかり実行したところ　YESでもNOでも実行されてしまいました。
どうすればYESなら実行、NOならキャンセル　といったようなことができるのでしょうか？
よろしくお願いします。

    Dim Ans As Long
         Ans = MsgBox("メッセージ", vbYesNo)
         If Ans = vbYes Then
             MsgBox "「はい」が選択された"
         Else
             MsgBox "「いいえ」が選択された"
             End
         End If

 こういうことですか？(seiya)

OK又はキャンセル

 Sub Macro1()
    If MsgBox("実行する場合はＯＫ、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。", vbOKCancel) = vbCancel Then
        End
    End If
 'この後に実行するマクロ文を入れてください
 End Sub
 これでどうでしょうか
(shota)

うまくいきました、コメントしてくれた方々ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060224095216]] 『マクロ実行前にYES、NOを聞いたうえで実行するやａx（F） ページの最後に飛ぶ

[[20060224095216]]　『マクロ実行前にYES、NOを聞いたうえで実行するやａx（F）　ページの最後に飛ぶ