コピーして追加したシートのデータを値貼り付けに変える

【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時間当りのおおよそのサービス料金

 円 ※あくまでも目安であり連絡先を交換して交渉してください。

おおよその月額サービス料

 円 ※あくまでも目安であり連絡先を交換して交渉してください。

電話番号

メールアドレス

サイト

※免責事項

投稿内容には、見解の相違もあり投稿者の見解で記載される事項もあります。実践されたことによる損害等の責任は、運営者・投稿者を含め一切負いかねますのでご了承ください。

コンサルタント

Excel・PowerPoint・ワード系 ITエンジニア系

コンテンツ

財務・経理・税務スキル ソフトウェア開発・Web開発・HP制作・プログラミング Excel・Word・Powerpoint等スキル

法人・個人

法人

この情報は  さんが掲載しました。

投稿者のすべてのサービスの内容・プロフィール等

メッセージを送って相談や仕事を依頼しましょう

投稿内容、プロフィールなどを確認して仕事の内容・金額調整、顧問契約の調整などをしてみる。以下のボタンをクリックするとチャットメッセージで直接連絡がとれます。

※メッセージを送信するためにはログインが必要です。