
EXCEL VBAでご教示頂けると嬉しいです。
個人用マクロブックに以下のようなマクロを組みました。
アクティブブックのB/Sシート、P/Lシートのデータをクリアしてから、新しいデータを張り付けるのが目的です。
************************
Dim tempSH
sub 貼付け()
tempSH = "BSシート"
Worksheets(tempSH).Select
Call シートの削除 ・・・・・・・①
Call BSデータを貼付
tempSH = "PLシート"
Worksheets(tempSH).Select
Call シートの削除
Call PLデータを貼付
End Sub
************************
「シートの削除」プロシージャでは、
msgboxのvbYesNoで削除確認を行っています。
最初の①「シートの削除」プロシージャで「キャンセル」をすると、
Exit subになるのでその「シートの削除」プロシージャは抜けられますが、
そのあとのプロシージャのmsgboxがすべて出てきてしまいます。
①でキャンセルをしたときに、そのあとのプロシージャを実行しない方法がありましたらご教示お願いいたします。

No.6ベストアンサー
- 回答日時:
シートの削除プロシージャの確認部分を以下のようにしてください。
If MsgBox("確認", vbOKCancel) = vbCancel Then
End
End If
Endが実行されるとマクロ全体が停止します。
No.4
- 回答日時:
No.3 訂正(文字抜けしてました)
「Sub …」のすぐ後に「Dim 停止 As Balloon」を作っておいて、停止したい時に「停止 = True」を実行して「Call …」のすぐ後に「If 停止 Then Exit Sub」を入れればよいのでは?
No.3
- 回答日時:
「Sub …」のすぐ後に「Dim 停止 As Balloon」を作っておいて、停止したい時に「停止 = True」を実行して「Ca
ぐ後に「If 停止 Then Exit Sub」を入れればよいのでは?No.2
- 回答日時:
「シートの削除」プロシージャで戻り値を返すようにして呼び出し元で処理が行われたのかキャンセルされたのかを判定できるようにして、呼び出し元では戻り値を判定して次の処理に行くか処理を終了するかを振り分けるのが一般的手法ですね。
No.1
- 回答日時:
「シートの削除」プロシージャで、こんな感じにしたらいかがでしょう。
ans1 = MsgBox("処理を続けますか?", vbYesNoCancel)
If ans1 = vbCancel Then Exit Sub
MsgBox ("続けます")
・・・・
・・・・
ってことじゃなくて?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAでcallで呼び出したsubを終了させる
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
8
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
9
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
10
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
13
【マクロ】名前を保存する際に、同じファイルがあった場合に、メッセージを表示
Excel(エクセル)
-
14
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
15
VBAコード実行を中止する方法は?(1プロシージャだけでなく)
Visual Basic(VBA)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
18
VBAでInputBoxの再入力をさせるには?
Visual Basic(VBA)
-
19
UserForm1.Showでエラーになります。
工学
-
20
VBA ソートすると、1、11、2,3になって・・
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのマクロでモジュールを...
-
Access VBAで行ラベルが定義さ...
-
excel/vba/public変数
-
Excel VBAで「プログラム実行」...
-
Accessでグローバル変数を宣言...
-
エクセルVBAでUserFormを起動し...
-
callで順に実行されるプロシー...
-
DBMS_OUTPUT.PUT_LINEを実行し...
-
或るプロシージャの呼び出し元判定
-
エントリ ポイントが見つかりま...
-
PL/SQLのエラーについて
-
Excel2000 セルデータ検索ウィ...
-
OutlookVBAで作成したマクロに...
-
イベントプロシージャが動作しない
-
【Excel VBA】 WorksheetやRa...
-
キャッシュを使わずにSELECTを...
-
Statement ignored というエラー
-
SQL*Loaderでのsysdate使用
-
SQLで部分的にGROUP BYしたいとき
-
重複するIDのデータを1行にま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのマクロでモジュールを...
-
Access VBAで行ラベルが定義さ...
-
callで順に実行されるプロシー...
-
エクセルVBAでUserFormを起動し...
-
【Excel VBA】 WorksheetやRa...
-
OutlookVBAで作成したマクロに...
-
Excel VBAで「プログラム実行」...
-
或るプロシージャの呼び出し元判定
-
Accessでグローバル変数を宣言...
-
DBMS_OUTPUT.PUT_LINEを実行し...
-
VBA プロシージャの名前の取得
-
エクセルVBAが対応できるプログ...
-
PL/SQLのエラーについて
-
ACCESS2007インポート時の空白...
-
Excel2000 セルデータ検索ウィ...
-
ブックオープン時にテキストボ...
-
ACCESS マクロをモジュールに変...
-
連番欠番アルゴリズム
-
DB2でのストアドプロシージャの...
-
ExcelVBAのInputBoxメソッドの...
おすすめ情報