はい・いいえ・キャンセルで処理を分ける

dim answer as variant
answer = MsgBox("印刷プレビューを表示しますか。いいえでまとめて印刷します", vbYesNoCancel)

Select Case answer

Case vbYes
A.printpreview

Case vbNo
B.Printout

Case vbCancel
Sheets(1).Activate
MsgBox "キャンセルしました"

Exit Sub



End Select
スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

とも

Author:とも
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
QRコード
QR