EXCLの自動マクロ記録について

2023/07/27 03:34

このQ&Aのポイント

EXCLの自動マクロ記録を簡潔に編集する方法について教えてください。
収支会計.XLSの売上台帳のシートを別ファイル確定申告２.xlsの売上作業範囲シートに貼り付けるために自動マクロを記録しましたが、動作が重くスムーズに動かす方法はありますか？
売上台帳のデータを確定申告書に貼り付けるための自動マクロの編集方法を教えてください。

ベストアンサー

EXCLの自動マクロ記録を簡潔に編集をお願いします。

2002/10/15 23:56

すみません教えてください。　収支会計.XLSの売上台帳のシートを別ファイル確定申告２.xlsの売上作業範囲シートに貼り付けたく自動マクロを記録したのですが、いまいち動きがぎこちなく重く何とかスムーズに出来ないでしょうか？ Sub 売り上げ書き込み() ' ' 売り上げ書き込み Macro ' Range("A2:F251").Select Selection.Delete Shift:=xlUp Application.Left = 20.8 Application.Top = 34 Windows("収支会計.XLS").Activate With ActiveWindow .Top = 3.4 .Left = 9.4 End With Sheets("売上台帳").Select ActiveWindow.SmallScroll Down:=-55 ActiveWindow.ScrollRow = 1 With ActiveWindow .Top = 87.4 .Left = 37 End With Range("D5:H1004").Select Selection.Copy Windows("確定申告２.xls").Activate Range("B2").Select ActiveSheet.Paste Range("A2").Select Windows("収支会計.XLS").Activate Range("C5:C430").Select Application.CutCopyMode = False Selection.Copy Windows("確定申告２.xls").Activate ActiveSheet.Paste Range("H8").Select End Sub 宜しくお願いします。

makotoky
お礼率70% (43/61)

オフィス系ソフト
回答数3
ありがとう数5

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

papayuka
ベストアンサー率45% (1388/3066)

2002/10/16 22:29 回答No.3

こんにちは。別に問題ないですよ。実行時エラー 9 インデックスが有効範囲にありません。はこの場合「そんなシートは無い」を意味しますので、シート名の指定が間違っているのでしょう。売上台帳作業範囲（2) 売上台帳作業範囲(2）売上台帳作業範囲（2）売上台帳作業範囲 (2) 上記は似ていても全部違います。シートタブで右クリックし、名前の変更で選択状態にしてから　Ctrl + Cキーでコピーし、VBE画面で Ctrl + Vキーで貼付けしてみては？ Workbooks("収支会計.XLS").Sheets("売上台帳").Range("D5:H1004").Copy _ Destination:=Workbooks("確定申告２.xls").Sheets("売上台帳作業範囲(2)").Range("B2")

質問者

お礼 2002/10/16 23:40

再度　ご指導ありがとうございました Ctrl + Cキーでコピーし、VBE画面で Ctrl + Vキーで貼付けしてみては？は気がつきませんでした。実は右クリツクでコピーが出来ないのであきらめて、仕方が無いので　自動マクロでシート名書き出し　コピーペーストしました。Ｆ８とも　いらない構文を削除しすっきりしました。早速他のファイルの同じような部分直してみました。無事解決しましたが、これはかなりの知識が要りそうですね。

その他の回答 (2)

kazuhiko5681
ベストアンサー率49% (79/159)

2002/10/16 01:39 回答No.2

はじめまして。私でよろしければ、さほど難しくないようですのであなた様がおやりになりたいことが自動でできるマクロを作ってみたいと思います。もしご希望の節は、あなた様のおやりになりたいことを具体的に詳しくお知らせ下さい。お手数をおかけいたします。よろしくお願いいたします。

質問者

お礼 2002/10/16 10:27

早々　ご回答ありがとうございます。 ANO。#1の方の方法でとりあえず解決しました。いずれにしても日ごろあまに踏み込まない分野なので未知数が多く少し勉強しながらやってみたいと思います。ネット上で参考になるところがありましたら情報をお願いします。

papayuka
ベストアンサー率45% (1388/3066)

2002/10/16 00:54 回答No.1

こんにちは。自動記録は不要なコードも吐出します。、ほぼやった通りの順番に記述されているだけですから、少しご自分でも考えて見ると上達しますよ。例えば、 Application.Left = 20.8 はアプリケーションを左に20.8 ActiveWindow.SmallScroll Down:=-55 はアクティブウィンドウを-55スクロールこんな記述はいらないと解かるでしょう。 VBEウィンドウとExcelウィンドウを並べて、デバック－ステップインでF8キーを押して行くと動作を見ながら確認出来ますよ。ちなみに手っ取り早いのは、先頭に Application.ScreenUpdating = False を入れるだけです。あと、下は改良版です。お望みの動作になるかは不明なので、テスト環境でどうぞ。 Sub 売り上げ書き込み() ' ' 売り上げ書き込み Macro ' Range("A2:F251").Select 'Selection.Delete Shift:=xlUp 　Application.ScreenUpdating = False 　Workbooks("収支会計.XLS").Sheets("売上台帳").Range("D5:H1004").Copy _ 　　Destination:=Workbooks("確定申告２.xls").ActiveSheet.Range("B2") 　Workbooks("収支会計.XLS").Sheets("売上台帳").Range("C5:C430").Copy _ 　　Destination:=Workbooks("確定申告２.xls").ActiveSheet.Range("A2") 　Application.CutCopyMode = False 　Range("H8").Select End Sub

質問者

お礼 2002/10/16 10:24

早々　ご回答ありがとうございます。さっそくやったところ、スムーズになりました。ありがとうございます。日ごろあまに踏み込まない分野なので未知数が多く今後もよろしくお願いします

質問者

補足 2002/10/16 10:37

早々ご回答　ありがとうございます。 Workbooks("収支会計.XLS").Sheets("売上台帳").Range("D5:H1004").Copy _ 　　Destination:=Workbooks("確定申告２.xls").ActiveSheet.Range("B2") 貼り付け場所をActiveSheetではなくて Workbooks("確定申告２.xls").Sheets("売上台帳作業範囲(2)")としたいのですが　構文が変わってしまうでしょうか？　エラー　９が出てしまいます。すみませんが　宜しくご指導お願いします。

関連するQ&A

Excel マクロ：マクロの記録の表記方法の変更
Excelで質問です。下記のようなマクロの記録を使用し「顧客一覧」のブックにデータを追加しています。しかし、処理の中で一項目コピーするごとにファイルを行ったり来たりしているようで処理が遅いようです。何か解決策はあるのでしょうか？・・・ Windows("顧客一覧.xls").Activate Rows("4:4").Select Selection.Insert Shift:=xlDown Windows("2.xls").Activate Range("C6").Select Selection.Copy Windows("顧客一覧.xls").Activate Range("A4").Select ActiveSheet.Paste Windows("2.xls").Activate Range("C7").Select Application.CutCopyMode = False Selection.Copy Windows("顧客一覧.xls").Activate Range("B4").Select ActiveSheet.Paste Windows("2.xls").Activate Range("C8").Select Application.CutCopyMode = False Selection.Copy 　　・　　・
- ベストアンサー
- オフィス系ソフト
別ブックからのデータ取り込み
下記の(1)(2)のマクロを(3)のコマンドボタンで実行させています。 (1)(2)を使用せずに(3)のコマンドボタンにまとめて記載したいのですが上手く出来ません。また、(1)の"A:\あ.CSV"部分ですが、使用PCによってドライブが異なる場合があるります。セルC2に入力したドライブ名を反映させることはできないでしょうか？よろしくお願いします。 (1) Sub I() 　　　Workbooks.Open Filename:="A:\あ.xls" 　　　lngR = Range("B65536").End(xlUp).Row 　　　Range("B2:B" & lngR).Select 　　　Selection.Copy 　　　Windows("か.xls").Activate 　　　Range("B3").Select 　　　ActiveSheet.Paste 　　　lngR = Range("B65536").End(xlUp).Row 　　　Range("B2:F" & lngR).Select 　　　With Selection.Font 　　　　.Size = 8 　　　End With　　　　End Sub (2) Sub II() 　　　Windows("あ.xls").Activate 　　　lngR = Range("E65536").End(xlUp).Row 　　　Range("E2:E" & lngR).Select 　　　Selection.Copy 　　　Windows("か.xls").Activate 　　　Range("G3").Select 　　　ActiveSheet.Paste 　　　lngR = Range("G65536").End(xlUp).Row 　　　Range("G2:G" & lngR).Select 　　　Selection.Style = "Comma [0]" 　　　With Selection.Font 　　　　.Size = 9 　　　End With 　　　Windows("あ.xls").Activate 　　　ActiveWindow.Close 　　End Sub (3) Private Sub 取込_Click() 　　　Application.ScreenUpdating = False 　　　Protect UserInterfaceOnly:=True 　　　Application.Run "I" 　　　Application.Run "II" 　　　Selection.Locked = False 　　　Applicaion.ScreenUpdating = True 　　End Sub
- 締切済み
- オフィス系ソフト
オートフィルタをし選択・貼付をマクロにしたいのですが、対象データ表示される行が毎回違うのでうまくいきません。
いつもお世話になっております。どなたかご教示いただければ助かります。ファイル(1)のデータの中からA行が830となっているものを、ファイル(2)のページ1の一番下の行に付け足し同じようにファイル(1)からA行が1000となっているものを、ファイル(2)のページ2の一番下に付け足すという作業をマクロでしたいのですが、毎回830と1000がセルAの何行目に表示されるのかが異なっており、オートフィルタをかけた状態でマクロにするとマクロ作成時にたまたま表示されていた行数が指定されているので、別の日に違う行数をコピーしてしまい私が作成したマクロではうまくいきません。どう変更すれば宜しいでしょうか？どうぞ宜しくお願い致します。 Workbooks.Open Filename:="mm.xls"　　　　←上記文でファイル(1) Sheets(DM).Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>*850*", Operator:=xlAnd, _ Criteria2:="<>*1000*" Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.EntireRow.Delete ActiveSheet.Rows("1:1").Select Selection.AutoFilter Windows("xx.xls").Activate　　←ファイル(2) Sheets("ll").Select　　　←ページ1　 ActiveSheet.Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate Windows("mm.xls").Activate Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="1000" Rows("3:3").Select Selection.Copy Windows("xx.xls").Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("xx.xls").Activate Sheets("pp").Select　　←ページ2 ActiveSheet.Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate Windows("mm.xls").Activate Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="850" Rows("2:2").Select Selection.Copy Windows("xx.xls").Activate ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Windows("mm.xls").Activate ActiveWindow.Close End Sub
- ベストアンサー
- オフィス系ソフト
エクセル・マクロでグラフを最背面に移動させたい
エクセルのグラフを3つピッタリと重ねて表示しています後ろのグラフを選択する時「最背面に移動」させてますがこれをマクロにしたいですとりあえずマクロの記録でしてみたら Sub Macro1() ActiveSheet.ChartObjects("グラフ 7").Activate ActiveChart.ChartArea.Select Selection.ShapeRange.ZOrder msoSendToBack ActiveWindow.Visible = False Windows("Book1.xls").Activate Range("A1").Select ActiveSheet.ChartObjects("グラフ 5").Activate ActiveChart.ChartArea.Select Selection.ShapeRange.ZOrder msoSendToBack ActiveWindow.Visible = False Windows("Book1.xls").Activate Range("A1").Select ActiveSheet.ChartObjects("グラフ 2").Activate ActiveChart.ChartArea.Select Selection.ShapeRange.ZOrder msoSendToBack ActiveWindow.Visible = False Windows("Book1.xls").Activate Range("A1").Select End Sub と出来たのですが、マクロの実行そしてみると３列目の Selection.ShapeRange.ZOrder msoSendToBack の所で、「実行時エラー438　オブジェクトはこのプロパティまたはメソッドをサポートしてません」となってしまいます、どうすればよいのでしょうボタンを押したら最前面のグラフが最背面に移動するようにしたいのですが難しいのでしょうか
- ベストアンサー
- オフィス系ソフト
ＶＢＡでブックの集計の仕方を教えてください。
Ｈ22.12月度と言う名前のフォルダーにＡ店～Ｅ店と集計と言う名前のブックがあります。集計のブックでＡ店～Ｅ店の集計をしてくるマクロを組んでいますが上手く作動しません。集計のブックには、セルの書式設定をしていますので、Ａ店～Ｅ店の売上一覧のシートから値だけをコピーして集計したいのですが、罫線やパターン、数式までコピーしてきたり、最後のＥ店だけ２重にコピーしてきたりと変な動作をします。初心者で本やネットで調べながら作ったので、どこの記述がおかしくて、そうなるのかがさっぱりわかりません。どなたか教えていただけませんでしょうか。よろしくお願いします。 Sub 集計() Workbooks.Open Filename:="C:\Documents and Settings\デスクトップ\H22.12月度\Ａ店.xls" Sheets("売上一覧").Select Range("E5:Q24").Select Selection.Copy Application.WindowState = xlMinimized Windows("集計.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False If Range("E5").Value <> "" Then Range("E65536").Select Selection.End(xlUp).Select Selection.Offset(1, 0).Select End If ActiveSheet.Paste Windows("Ａ店.xls").Activate Range("E5").Select Application.CutCopyMode = False ActiveWindow.Close 　　　　・　　　　・　　　　・（Ｂ・Ｃ・Ｄ店も同じ記述) 　　　　・　　　　・　　Workbooks.Open Filename:="C:\Documents and Settings\デスクトップ\H22.12月度\Ｅ店.xls" Sheets("売上一覧").Select Range("E5:Q24").Select Selection.Copy Application.WindowState = xlMinimized Windows("集計.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False If Range("E5").Value <> "" Then Range("E65536").Select Selection.End(xlUp).Select Selection.Offset(1, 0).Select End If ActiveSheet.Paste Windows("Ｅ店.xls").Activate Range("E5").Select Application.CutCopyMode = False ActiveWindow.Close 　　 Windows("集計.xls").Activate Application.WindowState = xlMaximized Range("E5").Select End Sub
- ベストアンサー
- Visual Basic
ピボットテーブルのマクロでシートを指定、連続
過去問？も確認しましたが、うまく行きません。マクロの自動記録で作成し、TableDestination:=Sheets("Sheet1").Range("A1"),、と変更しましたが、 With ActiveSheet.PivotTables("ピボットテーブル1")のところで止まってしまいます。また、最後の行の Application.Run "'Pivot for 東京.xls'!Macro3"は、正しい記述でしょうか？　よろしくお願いします。 Workbooks.Open Filename:= _ "C:\Documents and Settings\　\デスクトップ\Access DB\Pivot for 東京.xls" Sheets("DSG").Select Columns("A:AZ").Select Range("Q1").Activate Selection.Delete Shift:=xlToLeft Range("A1").Select Sheets("GSG").Select Columns("A:AZ").Select Range("P1").Activate Selection.Delete Shift:=xlToLeft Range("A1").Select Sheets("ダート").Select Columns("A:AZ").Select Range("W1").Activate Selection.Delete Shift:=xlToLeft Range("A1").Select Sheets("芝").Select Columns("A:AZ").Select Range("AQ1").Activate Selection.Delete Shift:=xlToLeft Range("A1").Select Windows("Pivot01.xls").Activate Sheets("G").Select Range("E1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "G!R1C5:R8594C11").CreatePivotTable TableDestination:=Sheets("Sheet1").Range("A1"), TableName _ :="ピボットテーブル1" With ActiveSheet.PivotTables("ピボットテーブル1")　　'------------＞ここで止まります .NullString = "0" .SmallGrid = False End With ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:="騎手名", _ ColumnFields:=Array("距離", "着順") With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("着順") .Orientation = xlDataField .Caption = "データの個数 : 着順" .Function = xlCount End With Application.CommandBars("PivotTable").Visible = False Windows("Pivot01.xls").Activate Sheets("1").Select Columns("A:DD").Select Selection.Delete Shift:=xlToLeft Sheets("D").Select Range("E1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "D!R1C5:R9508C11").CreatePivotTable TableDestination:=Sheets("Sheet1").Range("A1"), TableName _ :="ピボットテーブル2" ActiveSheet.PivotTables("ピボットテーブル2").SmallGrid = False ActiveSheet.PivotTables("ピボットテーブル2").AddFields RowFields:="騎手名", _ ColumnFields:=Array("距離", "着順") With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("着順") .Orientation = xlDataField .Caption = "データの個数 : 着順" .Function = xlCount End With Application.CommandBars("PivotTable").Visible = False Windows("Pivot01.xls").Activate Sheets("1").Select Columns("A:DD").Select Selection.Delete Shift:=xlToLeft Sheets("GSG").Select Range("E1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "GSG!R1C5:R81C11").CreatePivotTable TableDestination:=Sheets("Sheet1").Range("A1"), TableName _ :="ピボットテーブル3" With ActiveSheet.PivotTables("ピボットテーブル3") .NullString = "0" .SmallGrid = False End With ActiveSheet.PivotTables("ピボットテーブル3").AddFields RowFields:="騎手名", _ ColumnFields:="着順" With ActiveSheet.PivotTables("ピボットテーブル3").PivotFields("着順") .Orientation = xlDataField .Caption = "データの個数 : 着順" .Function = xlCount End With Application.CommandBars("PivotTable").Visible = False Windows("Pivot01.xls").Activate Application.Run "'Pivot for 東京.xls'!Macro3" End Sub
- ベストアンサー
- その他MS Office製品
エクセルで複数ファイルからコピーをする。
すみませんが、BOOK1に複数のファイルから部分的にコピーして貼り付けるという作業をしたいのですが、ど素人なもんでわかりません。マクロで記録したモノをいじってみてるのですが、根本的にコードが分かっていなくギブアップです。　やりたいことは、フォルダーの中の970305日報1、970305日報2、970306日報1、970306日報2のようなファイルが山ほどあるのですが、この970305の日報１と２を開き、それぞれファイルの決まった列を順番にをBook1の行へ行列を入れ替えて貼りつけていき（1日が1行）保存して閉じてから、次の日970306のデータをBOOK1の2行目に貼り付けるということをしたいのですが、どなたか教えていただければ助かります。よろしくお願いします。 Sub Macro2() Dim MyFile As String, MyPath As String Dim wb As Workbook, tb As Workbook Set tb = ThisWorkbook MyPath = tb.Path & "\" MyFile = Dir(MyPath & "*.xls", vbNormal) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Do While MyFile <> "" If MyFile <> tb.Name Then Set wb = Workbooks.Open(MyPath & MyFile) With ActiveSheet Windows("970305日報1.xls").Activate Range("B34:B38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("C1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　　　　　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows("970305日報1.xls").Activate Range("C33:C38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("H1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　　　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveWorkbook.Save Windows("970305日報1.xls").Activate ActiveWindow.Close Windows("970305日報2.xls").Activate Range("B31:B36").Select Selection.Copy Windows("日報リスト.xls").Activate Range("N1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows("970305日報2.xls").Activate Range("D31:D36").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("T1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveWorkbook.Save Windows("970305日報2.xls").Activate ActiveWindow.Close Windows("970306日報1.xls").Activate Range("B34:B38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("C2").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows("970306日報1.xls").Activate Range("C33:C38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("H2").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveWorkbook.Save Windows("970306日報1.xls").Activate ActiveWindow.Close -----------------------------------------
- ベストアンサー
- その他MS Office製品
マクロを教えてください
同じフォルダ内にあるXlsブックのあるSheetのデータを他のBookにコピーして貼り付けて貼り付けた側のBookで加工したいのですがうまくマクロが組めません。 Bookを共有で使っているので困っています。 Sub ワードアート1_Click ' ActiveWindow.ScrollWorkbookTabs sition:=xlLast Workbooks.Open ("販売管理表み.xls") Sheets("在庫一覧").Select Cells.Select Range("A1").Activate Selection.Copy Windows("完成在庫.xls").Activate Sheets("完成在庫一覧").Select Range("A1").Select ActiveSheet.Paste End Sub って書いてみましたが、Workbooks…のところでエラーになってしまいました。(TOT)初心者ですみません。教えてください。
- ベストアンサー
- オフィス系ソフト
マクロを使ったコピペがうまく動作しない。
あるデータを転記用のブック（月毎にシートが分かれています。シートの内容は同一）に貼り付ける処理を行うため、下記のようなマクロを組んだのですが、何故か貼りつきません。処理終了時には、転記元ブック（シート）で最終処理の範囲（５番目のB287）を選択しています。一体何がいけないのでしょうか？データはA1からPまでで毎月可変しています。また、転記用ブックが12枚あるため、月を指定してから貼り付けたいのですが、どのようにすればよいでしょうか？（下記は直接シ－トを指定しました） Sub test() Dim 最終行 As Integer '-------------------------------------------- 開始 Windows("21-12.xls").Activate 最終行 = Range("p65536").End(xlUp).Row Sheets("1").Range("A1:p" & 最終行).Select Selection.Copy Windows("転記.xls").Activate Sheets(12月).Select Range("B1").PasteSpecial Paste:=xlPasteValues '-------------------------------------------- 1 Windows("21-12.xls").Activate 最終行 = Range("p65536").End(xlUp).Row Sheets("2").Range("A1:p" & 最終行).Select Selection.Copy Windows("転記.xls").Activate Sheets(12月).Select Range("B83").PasteSpecial Paste:=xlPasteValues '-------------------------------------------- 2 Windows("21-12.xls").Activate 最終行 = Range("p65536").End(xlUp).Row Sheets("3").Range("A1:p" & 最終行).Select Selection.Copy Windows("転記.xls").Activate Sheets(12月).Select Range("B157").PasteSpecial Paste:=xlPasteValues '-------------------------------------------- 3 Windows("21-12.xls").Activate 最終行 = Range("p65536").End(xlUp).Row Sheets("4").Range("A1:p" & 最終行).Select Selection.Copy Windows("転記.xls").Activate Sheets(12月).Select Range("B227").PasteSpecial Paste:=xlPasteValues '-------------------------------------------- 4 Windows("21-12.xls").Activate 最終行 = Range("p65536").End(xlUp).Row Sheets("5").Range("A1:p" & 最終行).Select Selection.Copy Windows("転記.xls").Activate Sheets(12月).Select Range("B287").PasteSpecial Paste:=xlPasteValues --------------------------------------------- 5 End　Sub　
- 締切済み
- オフィス系ソフト
Excel マクロでファイル名を変数に・・・
初心者です。検索してもわからなかったので質問です。下記のようなマクロの処理で「ＡＡＡ」というファイル名のＥｘｃｅｌに「2.xls」からデータをコピーし貼り付けています。　　　・　　　・ Windows("ＡＡＡ.xls").Activate Rows("4:4").Select Selection.Insert Shift:=xlDown Windows("2.xls").Activate Range("C6").Select Selection.Copy Windows("ＡＡＡ.xls").Activate Range("A4").Select ActiveSheet.Paste Windows("2.xls").Activate Range("C7").Select Application.CutCopyMode = False Selection.Copy 　　　・　　　・今回は「2.xls」ではなく「3.xls」、「4.xls」、・・・といったように違うファイル名で同じ処理を行ないたいので「2」と指定するのではなく「（ファイル名）.xls」といった形にしたいのですが、それは可能なのでしょうか。ご意見宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト

EXCLの自動マクロ記録について

EXCLの自動マクロ記録を簡潔に編集をお願いします。