【質問したい事】
下記の【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)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
-
4
エクセルVBAについて
Visual Basic(VBA)
-
5
VBAなくなるの?
Visual Basic(VBA)
-
6
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
7
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
8
エクセルについて
Visual Basic(VBA)
-
9
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
10
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
11
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
12
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
13
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
14
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
15
VBAで各列の+"と"o"の合計数を数え3行目と4行目に入力したい"
Visual Basic(VBA)
-
16
エクセルVBAについて
Visual Basic(VBA)
-
17
VBA一覧取得 再投稿
Visual Basic(VBA)
-
18
2つのマクロでチェックボックスが連動しません
Visual Basic(VBA)
-
19
VBA listBoxから
Visual Basic(VBA)
-
20
VBAの計算で@が出てしまう件
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
VBAコードについて教えてくださ...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
メッセージボックスのOKボタ...
-
Excel VBAからAccessマクロを実...
-
エクセルに張り付けた写真のフ...
-
ExcelのVBA。public変数の値が...
-
マクロの記録を使用したマクロ...
-
マクロ実行時、ユーザーフォー...
-
マクロで空白セルを詰めて別シ...
-
Excel_マクロ_現在開いているシ...
-
複数ページあるPDFファイル内の...
-
TERA TERMを隠す方法
-
コマンドボタンに二回目のマク...
-
特定文字のある行の前に空白行...
-
WORD テキストボックスを全ペ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
wordを起動した際に特定のペー...
-
マクロの記録を使用したマクロ...
-
ダブルクリックで貼り付けた画...
おすすめ情報