VBAを組んでみた。

やってみたこと

作製したデータをコピーと貼り付けで新しいbookに保存をする

事前準備

Cドライブ直下に[testフォルダ]を作成する

この中に作成したファイルが入ります

VBAを行うシートの名前を「見本」に変更する

別のシート名で編集を行っている方は
VBAコード上にある「見本」を指定したシート名に置き換えて考えてください

VBAの標準モジュールを開く

標準モジュールとは？
VBAを書くシートのようなものことをVBEといいます
標準モジュールとは通常時に使用するVBEです　詳細はまた後日...

VBEの開き方

知っている方はスルーしてください
まずExcelのメインタブに[開発]があるかを確認します

無い場合はExcelのオプションから開くことができます
始めにメインタブの[ファイル]を選択します
次に[オプション]を開くと下図の[Excelのオプション]が開かれます
[リボンのユーザー設定]の[開発]の欄にチェックを入れOKを押します

Excelのメインタブの[開発]から[Vlsual Basic]を開きます
次に、[挿入]のタブから標準モジュールを選択します

これで開くことができました
これからVBAを書いていきます

VBAのコード

先ほど開いた標準モジュールにコードを書いていきます

Sub test1()
'①作成したデータをコピーして新しいworkbookにすべての形式を含めて張り付ける。
ThisWorkbook.Worksheets("見本").Range("A:F").Copy
Workbooks.Add 'sheetを追加する
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme

'②さら同じものをコピーして値貼り付けをする
ActiveSheet.Range("A1:F70").Copy
Selection.PasteSpecial Paste:=xlPasteValues

'③新しいworkbookのSheet名を変更する
Dim sheetname As String
sheetname = Year(Now) & "年" & Month(Now) & "月分"
ActiveWorkbook.Sheets("Sheet1").Name = nam 'Sheetの名前を変更する

'④新しいworkbookを保存する
Dim filname As String
filname =  Year(Now) & "年分"

Dim pass As String
pass = "C:\ test" & filname & ".xlsx"

ActiveWorkbook.SaveAs Filename:=pass
ActiveWorkbook.Close savechanges:=True

'⑤保存したことを通知する
MsgBox "保存しました。"

End Sub

使用した関数

今回は　Dim、copy、Selection.PasteSpecial　の3つに絞ってご紹介します

Dim 変数を入れる

`Dim　＊＊＊　As String
　＊＊＊ ＝

＊＊＊には自分で入れたい変数の名前を入れます
上記Stringの部分を下記の表のように変更します

Copy コピー

ThisWorkbook.Worksheets("見本").Range("A:F").Copy
この場合「このWorkbookのシート名見本のAからF列を選択しコピーをする」
ことができます

Copyの解除

Application.CutCopyMode = False
これでコピーを解除できます

Selection.PasteSpecial 貼り付け

Selection.PasteSpecial Paste:=xlPasteAll
Pasteは省略が可能です
ただ、Pasteの部分を変更するとどのように張り付けるのかを指定できます
pasteの他にoperation,skipBlanksなどがあります
今回はpasteの一部をご紹介します

まとめ

書式設定は残して数式は消して保存するという手間が煩わしくてこのVBAを組んでみました
まずは可変的な部分は少なめに遠回りなコードでも思い描いた通りに動くコードを作成できればと思います

参考

エクセルの神髄
何の関数をどのように使用すれば思うように動くのかとてもわかりやすく参考にさせていただきました

ありがとうございました