# 【初心者向け】簡単なExcel VBA・シートCopy＆Paste → シート名を今日の日付

By [Shogaku](https://paragraph.com/@shogaku) · 2021-10-10

---

簡単な内容です。玄人さんはスルーで。  
  
Excel VBAで作ったマクロ紹介します。  
VBAなかなか触らない、って人の導入の機会になれば幸いです。  
あと、ちょうど使おうと思ってた、という内容だったら、なお幸い。

Excel ver違いにより表記が皆さんと違う可能性はありますが、臨機応援にご対応くださいませ。

それでは、今回は 「シートCopy＆Paste → Pasteシートの名前は日付にする」 の作業を進めます。

イメージは、以下みたいのです。伝わるかな、、、  
  
ボタン押したら  
  
　　①一番左のシートをコピーして  
　　②それを一番左のシートへ貼り付ける  
　　③その際、シート名が今日の日付になる。  
  
※ついでにExcelの一部(E5の場所)も日付変える設定もいれます

![](https://storage.googleapis.com/papyrus_images/83f0f51e0db2eae081e8da940f7901be290b6fac6a9473e0d05238c00787aaa1.png)

なんで中身の記載がXRP(リップル)かは気にしないでください

それでは、内容へ

①まずファイルをVBA用にする
---------------

VBA使えるファイルにします。  
Excelを開いて名前をつけて保存で、xlsm という拡張子でファイルを保存してください。

![](https://storage.googleapis.com/papyrus_images/9c9f85b55d99267a7eb961890b5f37bc9791a50a44a4813e62e5219dad869d56.png)

保存したら、そのファイル開いてください

②マクロを使える表示にする
-------------

ファイル開いたら、上のところに赤枠の「開発」あるか確認してください。

![](https://storage.googleapis.com/papyrus_images/6f8ff3788ef1b6ff250cb75f1417afb4523972f6d9806142261607a68ef6076c.png)

ある人は、③へ

ない人は以下のように設定進めます。

**(1)ファイル押して**

![](https://storage.googleapis.com/papyrus_images/aef6f2d608f849acf4cec17201f7299da521caedde04451058d824b397979bf5.png)

**(2)オプション行って**

![](https://storage.googleapis.com/papyrus_images/708ae7d85c45a9f411f45f83b5490635b2b0dc6aee993455320fb58b6a1fa822.png)

**(3)リボンのユーザー設定**

開発　があるので、横にチェックマークを入れる。そして、OK

![](https://storage.googleapis.com/papyrus_images/56fe3d9496fe9d607f8ff473668ebe921db7de4a2c0592eb5336edc4bfa4242b.png)

**(4)開発タブが表示されます**

![](https://storage.googleapis.com/papyrus_images/6f8ff3788ef1b6ff250cb75f1417afb4523972f6d9806142261607a68ef6076c.png)

③マクロ作ります。開発タブへ行く
----------------

そして、以下のボタンフォームに行きます

![](https://storage.googleapis.com/papyrus_images/057f70e872a2d73e282e1a8698de23981a03582ed9ddf57343d086cae8bfab71.png)

④ボタンのサイズを左クリックで決める
------------------

⑤次にこんな画面が、右の新規作成押してください
-----------------------

![](https://storage.googleapis.com/papyrus_images/e874966277b33021c8aa9c14d24312d39ac9fb9924c0f76ed4b42f710469f1ad.png)

⑥VBA入力画面行きます
------------

![](https://storage.googleapis.com/papyrus_images/d76eda08a8ca726cdb9b4e56e69d08ca6b478699f27c6b8e513714d0e8109a6d.png)

⑦今回は、これをそのまま入力で行けます
-------------------

間に以下を記入します。

Worksheets(1).Copy Before:=Worksheets(1) '一番左のシートをコピーして一番左に貼付する

ActiveSheet.Name = Format(Now, "yymmdd") 'コピー貼付けしたシートの名前はyymmdd年月日とします

Range("E5").Value = Date 'E5に今日の日付を入力します

![](https://storage.googleapis.com/papyrus_images/dcc8634e2d2183e6c82c17a0d7f7d806d20f8085ec5aec184e2b39e26acc2bd4.png)

’ ← これより右は、ただの説明文なので無くてもOKです

ちなみに、yymmddテスト　など、言葉を後ろに入れることも可能です。 色々試して頂ければと思います。

(1)は、左から1シート目の意味ですので、(2)とすれば左から2シート目となります。

ついでに、E5に日付入れる設定も入れていますが、  
ここは、A1と書けば、一番左上になります。A2と書けばその下。ってな感じです。  
エクセルの行、列を示しています。

⑧保存ボタンを押す
---------

  

⑨ボタンを押す
-------

シート上にあるボタンを押して試してみてくださいませ。

ボタンの名前は、ボタンの上で右クリック→　テキストの編集で変更できます。

* * *

最後は、ちょっとざっくりになってしまいましたが、  
ちょっとそんな簡単なものでいいので やってみようと言う人は、お試しあれ。

慣れてる人は、スルーで。

以上

---

*Originally published on [Shogaku](https://paragraph.com/@shogaku/excel-vba-copy-paste)*