Home » Excel VBA Rangeオブジェクト » 表示形式 » VBAで2桁の日付をセルに入力する

VBAで2桁の日付をセルに入力する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「Format(ActiveCell.Value, "dd")」といったコードで、アクティブセルに入力されている日付データの日付部分だけをdd形式の2桁の文字列として取得できますが、この2桁の文字列をセルに代入する場合、考えるべきことが増えます。

［スポンサードリンク］

2桁の日付をセルに入力しようとして上手く動かないサンプルマクロ

例えば「2017/5/5」という日付データの入力されたセルがアクティブなときに、書式設定が初期状態である右隣のセルに、「05」という2桁の日付が入力されることを期待して以下のSubプロシージャを実行すると、「5」が入力されてしまいます。

Sub 日付部分を取得して右隣のセルへ_ダメな例()
　ActiveCell.Offset(0, 1).Value = Format(ActiveCell.Value, "dd")
End Sub

Excelでは、書式を設定していないセルに、ハイフンなしの電話番号を市外局番から入力したようなときには、先頭の「0」がなくなってしまいます。

同じことが起きたわけです。

表計算ソフトであるExcelは、数値とみなし得る文字列は自動的に数値と判断します。
このExcelの仕様は、VBAからセルにデータを入力する際も関係します。

以下のようなSubプロシージャにすればアクティブなセルの右隣のセルに、アクティブセルの日付データの日付部分だけを2桁にした文字列を入力できます。

Sub 日付部分を取得して右隣のセルへ()
　ActiveCell.Offset(0, 1).NumberFormatLocal = "@"
　ActiveCell.Offset(0, 1).Value = Format(ActiveCell.Value, "dd")
End Sub

先頭についた数字の「0」を残すためには、［セルの書式設定］ダイアログなどで

VBAで2桁の日付をセルに入力する

文字列書式を設定します。

VBAから操作する場合も同じことです。

RangeオブジェクトのNumberFormatLocalプロパティに、「@」（アットマーク）を指定しておけば、文字列書式が設定されて、Format関数で返された「05」のような文字列をそのまま入力できます。

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 表示形式 » VBAで2桁の日付をセルに入力する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「表示形式」の記事一覧