【質問したい事】
下記の【2つめのマクロ】について
同じブック内で動かすコードです
3行あり、1行目はブック指定。2・3行目はシート指定です。
全て同じブック内です。
このような書き方は適切でしょうか?
※次のコードの事です Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").Activate
なお、当該マクロの前に別ブックにて別マクロが動いた後に
当該マクロのブックに移動をして、実行する為、シートとのみ書いていると
動きませんでした。よって、1行目だけブック・シートに変更したところ動きました
質問は同じマクロ内で、ブックとシートが混在してよいですか?です
宜しくお願いします
なお、下記のマクロは全て動きます
Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").Activate
【下記の2つのマクロを呼出。実行】
Sub call()
Call 別ブックへ転記ファイル名変更
Call 列クリア
End Sub
【1つめのマクロ】
Sub 別ブックへ転記ファイル名変更()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row2 As Long
Set ws1 = Worksheets("転記元")
Set wb2 = Workbooks.Open(ws1.Range("A3").Value) 'ブックパス
Set ws2 = wb2.Worksheets(ws1.Range("A5").Value) '上記のシート名
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
row2 = maxrow2 + 1
ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(1, 1).Resize(1, 3).Value
End Sub
【2つめのマクロ】⇒質問したいコード
Sub 列クリア()
Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").Activate
Worksheets("画面貼付").Columns("d").Clear
Worksheets("転記元").Activate
End Sub
No.1ベストアンサー
- 回答日時:
ブックとシートを同時にアクティベート出来たかは忘れましたが。
Sub 列クリア_2()
with Workbooks("いろいろあり転記元.xlsm")
.Worksheets("画面貼付").Columns("d").Clear
.Activate
.Worksheets("転記元").Activate
end with
End Sub
とかでも宜しいのでは?
No.2
- 回答日時:
Workbooks("いろいろあり転記元.xlsm").Worksheets("画面貼付").range(A1")
ブックの中にシートがあって、その中にセルがあります。
見えてるのであれば省略できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Excel(エクセル) 【マクロ】その時、その時で変わる範囲を、フォルダの違う別ブックへ転記する為には ※参考画像あり 3 2024/05/11 10:33
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Excel(エクセル) 【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記 2 2024/05/02 14:17
- Excel(エクセル) 【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい 2 2023/10/29 22:52
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
VBA ユーザーフォーム ボタンクリック後にセルにフォーカス
Visual Basic(VBA)
-
-
4
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
5
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
6
エクセルVBAについて
Visual Basic(VBA)
-
7
エクセルについて
Visual Basic(VBA)
-
8
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
9
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
10
VBAで各列の+"と"o"の合計数を数え3行目と4行目に入力したい"
Visual Basic(VBA)
-
11
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
12
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
13
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
14
エクセルVBAについて
Visual Basic(VBA)
-
15
VBA一覧取得 再投稿
Visual Basic(VBA)
-
16
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
17
VBAの計算で@が出てしまう件
Visual Basic(VBA)
-
18
VBA listBoxから
Visual Basic(VBA)
-
19
2つのマクロでチェックボックスが連動しません
Visual Basic(VBA)
-
20
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
一つのTeratermのマクロで複数...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
エクセルで別のセルにあるふり...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
ピボットテーブルでの毎回可変...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
TERA TERMを隠す方法
-
エクセルVBAでNAVITIMEを使って...
-
エクセルに張り付けた写真のフ...
-
c言語で言うところの #define
-
TeraTermマクロの文字列結合
-
エクセルで縦に並んだデータを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報