Home » エクセルマクロ・Excel VBAの使い方 » VBA関数 » シート名を日時に変更する・シート名に日付を追加するExcelマクロ

シート名を日時に変更する・シート名に日付を追加するExcelマクロ

対象：Excel2007, Excel2010, Excel2013

「excel マクロ シート名 変更 日付」
「エクセル マクロ シート名に日付」
「マクロ エクセルシート名を現在の日付時間を入れる方法」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

シート名を日付や時刻にしたり、現在のシート名に日付や時刻を入れたりする、Excelマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。

［スポンサードリンク］

アクティブなシートを現在の日時にするサンプルマクロ

以下のようなマクロでアクティブなシートを、現在の年・月・日・時・分・秒を「yyyymmdd-hhmmss」という形式にしたシート名にすることができます。

Sub シート名を現在の日時にする()

　ActiveSheet.Name = Format(Now, "yyyymmdd-hhmmss")

End Sub

VBAではNow関数で、現在の日付と時刻を取得できます。

Now関数で取得した現在の日時を、Format関数でyyyymmdd-hhmmss形式にしているのが「Format(Now, "yyyymmdd-hhmmss")」です。

yyyymmdd-hhmmss形式にした文字列を、アクティブなシートのNameプロパティに指定しています。

時刻部分が不要で、yyyymmdd形式の日付にしたいのなら、
　ActiveSheet.Name = Format(Now, "yyyymmdd")
あるいは、Now関数ではなくDate関数を使って
　ActiveSheet.Name = Format(Date, "yyyymmdd")
としてもOKです。

アクティブシートなシート名に日付を追加するサンプルマクロ

以下のようなマクロでアクティブなシート名に、今日の日付の月と日を「mmdd」という形式で追加したシート名にすることができます。

Sub シート名に今日の日付を追加する()

　Dim sh_name As String

　sh_name = ActiveSheet.Name
　ActiveSheet.Name = sh_name & Format(Date, "mmdd")

End Sub

変数・sh_nameに、現在のシート名を格納しておいてから、
　sh_name = ActiveSheet.Name

先のマクロでも使ったFormat関数で現在の日付をmmdd形式にして、文字列連結演算子「&」で元のシート名とつなげています。
　ActiveSheet.Name = sh_name & Format(Date, "mmdd")

現在のシート名と日付の間に、例えば「_」（アンダーバー・アンダースコア）を入れておきたいのなら、
　ActiveSheet.Name = sh_name & "_" & Format(Date, "mmdd")
です。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » VBA関数 » シート名を日時に変更する・シート名に日付を追加するExcelマクロ

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



「VBA関数」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.