３つのマクロを連続実行の中で、１つ目のマクロ要件を満たさなかったら、マクロ２・３を実行しない為には

以下のコールステートメントをごらんください
３つのマクロを連続実行しています

そこで質問です
１つ目のマクロ１で、クリップボードにデータがコピーされていなかったら
マクロ２・３を実行しないように出来ますか？


ご存じの方、教えて下さい

【コールステートメント】

Sub 連続()


Call 他のExcelへユニコード書式にて貼付_MSGBOXあり

Call 別ブックへ転記

Call a10貼付より下を全てクリアー



End Sub




【マクロ１】
Sub 他のExcelへユニコード書式にて貼付_MSGBOXあり()

Dim CB As Variant

CB = Application.ClipboardFormats


If CB(1) = True Then
MsgBox "クリップボードにコピーされていません", vbOKOnly + vbCritical, "A部門"
Exit Sub
End If

Worksheets("転記元").Range("A10").Select

Worksheets("転記元").PasteSpecial Format:="Unicode テキスト"


End Sub





【マクロ２】
Sub 別ブックへ転記()


Dim ws1 As Worksheet

Dim wb2 As Workbook

Dim ws2 As Worksheet


Dim maxrow2 As Long

Dim row2 As Long

Dim i As Integer




Set ws1 = Worksheets("転記元")




For i = 1 To Workbooks.Count

If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。


Set wb2 = Workbooks(i)

End If

Next




Set ws2 = wb2.Worksheets("sheet1") '転記先シート




maxrow2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '転記先のブックB列


row2 = maxrow2 + 1

ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から７セル分。天気先。１列目から。



ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1)



wb2.Save '転記先のブックを上書き


End Sub

【マクロ３】
Sub a10貼付より下を全てクリアー()

Range("A10:XFD1048576").ClearContents


End Sub

No.1 回答者： fujillin 回答日時： 2023/10/15 14:12

こんにちは

＞１つ目のマクロ１で、クリップボードにデータがコピーされて
＞いなかったらマクロ２・３を実行しないように出来ますか？

現状の構成を維持したいのなら、マクロ1の判定結果を引数で戻せるようにして、本体のマクロでその結果を判断して処理の流れを制御すれば良いのでは？

引数で戻すのが面倒ならば、マクロ1をFunctionにすれば、そのままの戻り値を利用できます。

あるいは、判定自体を本体の処理内で行って、処理の流れを制御するようにすれば全体がスッキリするかもしれません。