(1) Private Sub Workbook_Open()に、マクロの記録で作成した(2)を組み込んで処理をしたいのですが、一つ前のファイルを選択する記述・一つ前のシートを指定する記述が判りません。
●御教示いただきたい事項
・(1)で開かれた時、ファイルはマスター.xls が開いていますが、 ファイル名 ccc.xlsが開いた状態にする記述のしかた。
・(2)が各シートで実行される、共通の記述のしかた。
(1) Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Documents and Settings\aaa\My Documents\bbbマスター\マスター.xls"
End Sub
(2) ファイル名 ccc.xlsにマクロの記録で作成
Sub Macro4()
Range("J11").Select 'Sheets("7月")のセル J11
Sheets("6月").Select
Range("I7").Select
Selection.Copy
Sheets("7月").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
No.1ベストアンサー
- 回答日時:
質問がわかりにくいですね。
特に「一つ前」のような表現はご自身は分かっても、第三者にはわかりにくいです。ようは「ccc.xls」の「Private Sub Workbook_Open()」で「マスター.xls」を開いたあとで「ccc.xls」がアクティブな状態に戻したいということでしょうか。
「ccc.xls」で
Private Sub Workbook_Open()
Dim myBK as Workbook
Set myBK = ThisWorkbook 'このブックを待避
Workbooks.Open Filename:="C:\Documents and Settings\aaa\My Documents\bbbマスター\マスター.xls"
myBK.Activate '待避したブックをアクティブにする
Sheets("7月").Select
' (2)の処理を埋め込む。(下の2行で動くはずですが)
Sheets("6月").Range("I7").Copy
Range("J11").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False 'コピーモードをキャンセル
End Sub
zap35様
御指導ありがとうございました。
>質問がわかりにくいですね。特に「一つ前」のような表現は・・・
●申し訳御座いません。
ご推察いただき適切な回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
VB2010でExcelの行をコピーして...
-
【Excel VBA】ブックを複数開い...
-
personal.xlsの削除方法
-
[Excel VBA] フォルダ内の複数...
-
【ExcelVBA】指定の書式で、マ...
-
EXCELマクロで上書きメッ...
-
VBA、Excelのworkbook.open に...
-
Excel マクロでファイル名を変...
-
Excel VBAを後ろで動かす方法
-
EXCELの自動記録の修正の件
-
エクセル アプリケーションの...
-
エクセルVBAで、ある特定な場所...
-
EXCELマクロでxlsとxlsxを開く方法
-
excelでハイパーリンク 別ブッ...
-
複数のデータ系列の線の太さを...
-
エクセル終了時の保存確認メッ...
-
マクロを消すマクロは不可能?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
エクセルVBA Workbook変数に変...
-
ExcelVBAで今開いているユーザ...
-
フォルダ内の全ブックのシート...
-
【ExcelVBA】指定の書式で、マ...
-
VB2010でExcelの行をコピーして...
-
【Excel VBA】ブックを複数開い...
-
すでに開いているブックのマク...
-
EXCELマクロでxlsとxlsxを開く方法
-
フォルダ内の全てのBookに同じ...
-
excelマクロ、任意セルの値で名...
-
[Excel VBA] フォルダ内の複数...
-
personal.xlsの削除方法
-
EXCEL VBA起動時の処理
-
Excel VBAを後ろで動かす方法
-
VBA、Excelのworkbook.open に...
-
VBA セル入力された日付データ...
-
他のBookのユーザー定義関数を使う
-
Excelの一括印刷で通し番号をつ...
-
VBA ファイルの開き方
おすすめ情報