日付・時刻・文字列・ユーザー定義│VBAのセル表示形式の設定

この記事では、Excelのセルの表示形式をVBAで日付・時刻・文字列・ユーザー定義に設定する方法を説明します。それぞれについて、実際のVBAコードも紹介します。

実際のExcelを使った業務でも、セルの表示形式を日付や時刻、文字列に設定する機会は多いと思われますので、VBAでの設定方法もしっかりと抑えておきましょう。

なお、セルの表示形式を標準・数値・通貨・会計に設定する方法は別記事で紹介しています。

表示形式を日付に設定する

この章では、ExcelのセルA1の表示形式を日付に設定するVBAコードを紹介します。
※セルの書式設定のウィンドウはイメージのため表示しています。VBAとは直接の関係はありません。

基本構文

object . NumberFormatLocal = String

• object = 表示形式を設定するセル位置
  この例では、A1です
• NumberFormatLocal = 表示形式を設定する定型文
  （Valueは値を代入するプロパティです）
• String = 表示形式を指定

Rangeプロパティ

Sub Sample()

Range(“A1”) .NumberFormatLocal = “yyyy/m/d”

End Sub

Cellsプロパティ

Sub Sample()

Cells( 1, 1 ) .NumberFormatLocal = “yyyy/m/d”

End Sub

日付のString一覧

Excelの書式設定に対応するString（コード）を一覧で紹介します。
※赤字の箇所

object . NumberFormatLocal = String

日付の 表示形式	種類
2012/3/14	= “yyyy/m/d”
2012年3月14日	= “[$-x-sysdate]dddd, mmmm dd, yyyy”
2012-03-14	= “yyyy-mm-dd;@”
2012年3月	= “yyyy””年””m””月””;@”
3月14日	= “m””月””d””日””;@”
3/14	= “m/d;@”
3/14/12	= “m/d/yy;@”

表示形式を時刻に設定する

この章では、ExcelのセルA1の表示形式を時刻に設定するVBAコードを紹介します。
※セルの書式設定のウィンドウはイメージのため表示しています。VBAとは直接の関係はありません。

基本構文

object . NumberFormatLocal = String

• object = 表示形式を設定するセル位置
  この例では、A1です
• NumberFormatLocal = 表示形式を設定する定型文
  （Valueは値を代入するプロパティです）
• String = 表示形式を指定

Rangeプロパティ

Sub Sample()

Range(“A1”) .NumberFormatLocal = “[$-x-systime]h:mm:ss AM/PM”

End Sub

Cellsプロパティ

Sub Sample()

Cells( 1, 1 ) .NumberFormatLocal = “[$-x-systime]h:mm:ss AM/PM”

End Sub

時刻のString一覧

Excelの書式設定に対応するString（コード）を一覧で紹介します。
※赤字の箇所

object . NumberFormatLocal = String

時刻の 表示形式	種類
13:30:55	= “[$-x-systime]h:mm:ss AM/PM”
13:30	= “h:mm;@”
1:30 PM	= “[$-en-US]h:mm AM/PM;@”
1:30:55 PM	= “[$-en-US]h:mm:ss AM/PM;@”
13時30分	= “h””時””mm””分””;@”
13時30分55秒	= “h””時””mm””分””ss””秒””;@”

表示形式を文字列に設定する

この章では、ExcelのセルA1の表示形式を文字列に設定するVBAコードを紹介します。
※セルの書式設定のウィンドウはイメージのため表示しています。VBAとは直接の関係はありません。

基本構文

object . NumberFormatLocal = String

• object = 表示形式を設定するセル位置
  この例では、A1です
• NumberFormatLocal = 表示形式を設定する定型文
  （Valueは値を代入するプロパティです）
• String = 表示形式を指定

Rangeプロパティ

Sub Sample()

Range(“A1”) .NumberFormatLocal = “@”

End Sub

Cellsプロパティ

Sub Sample()

Cells( 1, 1 ) .NumberFormatLocal = “@”

End Sub

時刻のString一覧

Excelの書式設定に対応するString（コード）を一覧で紹介します。
※赤字の箇所

object . NumberFormatLocal = String

時刻の 表示形式	種類
G/標準	= “G/標準”
0.00	= “0.00”
#,##0.00	= “#,##0.00”
0%	= “0%”
0.00%	= “0.00%”
yyyy/m/d h:mm	= “yyyy/m/d h:mm”
mm:ss.0	= “mm:ss.0”

表示形式をユーザー定義に設定する

この章では、ExcelのセルA1の表示形式をユーザー定義に設定するVBAコードを紹介します。
※セルの書式設定のウィンドウはイメージのため表示しています。VBAとは直接の関係はありません。

基本構文

object . NumberFormatLocal = String

• object = 表示形式を設定するセル位置
  この例では、A1です
• NumberFormatLocal = 表示形式を設定する定型文
  （Valueは値を代入するプロパティです）
• String = 表示形式を指定

Rangeプロパティ

Sub Sample()

Range(“A1”) .NumberFormatLocal = “G/標準”

End Sub

Cellsプロパティ

Sub Sample()

Cells( 1, 1 ) .NumberFormatLocal = “G/標準”

End Sub

Stringのコードの調べ方

この記事では一部のStringコードを紹介しましたが、他の形式（種類）をVBAで設定したい場合には、Excelの「マクロの記録」機能を使って、VBEで調べることができます。