【質問したい事】
下記の【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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
VBA ユーザーフォーム ボタンクリック後にセルにフォーカス
Visual Basic(VBA)
-
-
4
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
5
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
6
エクセルについて
Visual Basic(VBA)
-
7
エクセルVBAについて
Visual Basic(VBA)
-
8
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
9
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
10
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
11
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
12
VBAで各列の+"と"o"の合計数を数え3行目と4行目に入力したい"
Visual Basic(VBA)
-
13
エクセルVBAについて
Visual Basic(VBA)
-
14
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
15
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16
VBA一覧取得 再投稿
Visual Basic(VBA)
-
17
2つのマクロでチェックボックスが連動しません
Visual Basic(VBA)
-
18
VBA listBoxから
Visual Basic(VBA)
-
19
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
20
VBAの計算で@が出てしまう件
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
【マクロ】1つのマクロの中に...
-
エクセルに張り付けた写真のフ...
-
VBAを使ってエクセルを秀丸にコ...
-
一つのTeratermのマクロで複数...
-
Excelのマクロについて教えてく...
-
Wordでひらがなにローマ字のル...
-
このマクロの意味を教えてくだ...
-
powerpointマクロでJPEG画像サ...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
Office365 (Excel) におけるシ...
-
[初心者です]VBAで指定列か...
-
EXCELのVBAでRange("A1:C4")を...
-
別シートに順番で貼り付け
マンスリーランキングこのカテゴリの人気マンスリー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を起動した際に特定のペー...
おすすめ情報