![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
以下のコールステートメントをごらんください
3つのマクロを連続実行しています
そこで質問です
1つ目のマクロ1で、クリップボードにデータがコピーされていなかったら
マクロ2・3を実行しないように出来ますか?
ご存じの方、教えて下さい
【コールステートメント】
Sub 連続()
Call 他のExcelへユニコード書式にて貼付_MSGBOXあり
Call 別ブックへ転記
Call a10貼付より下を全てクリアー
End Sub
【マクロ1】
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
【マクロ2】
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から7セル分。天気先。1列目から。
ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1)
wb2.Save '転記先のブックを上書き
End Sub
【マクロ3】
Sub a10貼付より下を全てクリアー()
Range("A10:XFD1048576").ClearContents
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) VBA Scripting.Dictionary 連想配列 複数参照する方法 2 2021/12/17 01:52
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Visual Basic(VBA) 条件をつけてカウントする 4 2021/12/19 20:27
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開いた回数...
-
エクセルで複数のシートのクリ...
-
Excelで数字を入れたら対応する...
-
Excel VBAでのWorksheet_Change...
-
セルの一部分だけを太字にする方法
-
【エクセル】フリーワード検索...
-
EXCELマクロの実行速度
-
Excelのシート上のShapeにイベ...
-
任意のセルでマクロを実行させたい
-
【エクセル】「実行時エラー’10...
-
エクセルのマクロ実行後にカー...
-
行事予定表の作成でご教示下さい
-
MS-Excelでアクティブセル上に...
-
指定値をマクロで検索&シート移動
-
長い時間かかるマクロが実行中...
-
EXCELで会社のスケジュー...
-
エクセルVBAでOUT LOOKメールに...
-
マクロで年齢の自動計算
-
excelのマクロが上手く動作しま...
-
Excelマクロでブック全体を検索...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセルで複数のシートのクリ...
-
エクセルファイルを開いた回数...
-
フォルダ内にある全ファイルの...
-
Excelのシート上のShapeにイベ...
-
エクセル シート内の一番下のセ...
-
長い時間かかるマクロが実行中...
-
セルの一部分だけを太字にする方法
-
【エクセル】フリーワード検索...
-
エクセルで特定の行だけ行削除...
-
エクセル:セル内の文字列の最...
-
EXCELのダイアログシートって、...
-
【エクセル】「実行時エラー’10...
-
Excelでセル内の文字をファイル...
-
エクセルで○をつけるマクロ設定
-
エクセル マクロ 一定時間おき...
-
前月分を次月シートに繰越でき...
-
エクセルのワークシート(テン...
-
自分の専門分野の仕事。初見で...
おすすめ情報