目次
コピーして追加したシートのデータを値貼り付けに変える
【VBA】 予実差異分析自働化ファイルを作ってみる 1.新規ファイルを開く・保存する
【VBA】予実差異分析自働化ファイルを作ってみる 2.予算ファイルのシートをコピーして新規ファイルに貼り付ける
予算のファイルからシートコピーして貼り付けると、リンクが残っていることがあります。
それは、予算作成時に複数のシートからリンクで作成している方が多いからです。リンクがあるとファイルを開くために聞かれたりファイルが重たくなる原因にもなりますので、新ファイルに予算シートからコピーして追加する段階でデータを値貼り付けにしておきたいとことです。
Sub NewFile()
‘ワークブックを定義する
Dim wb As Workbook
’ワークシートを定義する
Dim wsh As Worksheet
‘ワークブックを新規で作成する
Set wb = Workbooks.Add‘新規作成したワークブックに予想PL(月次)シートと予想BS(月次)をすでにあるシートの前に貼り付ける
ThisWorkbook.Worksheets(Array(“予想PL(月次)”, “予想BS(月次)”)).Copy Before:=wb.Worksheets(1)’リンク等があると使いにくくなるのでコピーして追加したシートのデータを値貼り付けにする。
For Each wsh In wb.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False‘ワークブックに2022年度予実差異.xlsxという名でデスクトップに保存する
wb.SaveAs (“C:\Users\Owner\Desktop\2022年度予実差異.xlsx”)End Sub
1時間当りのおおよそのコンサル料金・おおよその月額サービス料・Myサイト・連絡先
1時間当りのおおよそのサービス料金
円 ※あくまでも目安であり連絡先を交換して交渉してください。
おおよその月額サービス料
円 ※あくまでも目安であり連絡先を交換して交渉してください。
電話番号
メールアドレス
サイト
コメント