セルの書式設定(表示形式)

今回は表示形式の設定についてメモしておきます。

数値の表示形式を設定

実行プログラム

Sub Sample4_10_1()

    Cells(1, 1).NumberFormatLocal = "#,##0.00_ "  ' 小数点2桁
    Cells(2, 1).NumberFormatLocal = "#,##0.000_ " ' 小数点3桁

End Sub

Sub Sample4_10_1()

Cells(1, 1).NumberFormatLocal = "#,##0.00_ " ' 小数点2桁

Cells(2, 1).NumberFormatLocal = "#,##0.000_ " ' 小数点3桁

End Sub

実行前

実行後

通貨の表示形式を設定

実行プログラム

Sub Sample4_10_2()

    Cells(1, 1).NumberFormatLocal = "\#,##0;\-#,##0"        ' 円
    Cells(2, 1).NumberFormatLocal = "$#,##0.00;-$#,##0.00"  ' ドル

End Sub

Sub Sample4_10_2()

Cells(1, 1).NumberFormatLocal = "\#,##0;\-#,##0" ' 円

Cells(2, 1).NumberFormatLocal = "$#,##0.00;-$#,##0.00" ' ドル

End Sub

実行前

実行後

日付、時刻の表示形式を設定

実行プログラム

Sub Sample4_10_3()

    ' 日付
    Cells(1, 1).NumberFormatLocal = "yyyy/m/d;@"
    Cells(2, 1).NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
    Cells(3, 1).NumberFormatLocal = "ggge""年""m""月""d""日"""

    ' 時刻
    Cells(4, 1).NumberFormatLocal = "h:mm;@"
    Cells(5, 1).NumberFormatLocal = "h:mm:ss;@"
    Cells(6, 1).NumberFormatLocal = "h""時""mm""分"";@"
    Cells(7, 1).NumberFormatLocal = "h""時""mm""分""ss""秒"";@"

    Cells(8, 1).NumberFormatLocal = "yyyy/m/d h:mm:ss"

End Sub

Sub Sample4_10_3()

' 日付

Cells(1, 1).NumberFormatLocal = "yyyy/m/d;@"

Cells(2, 1).NumberFormatLocal = "yyyy""年""m""月""d""日"";@"

Cells(3, 1).NumberFormatLocal = "ggge""年""m""月""d""日"""

' 時刻

Cells(4, 1).NumberFormatLocal = "h:mm;@"

Cells(5, 1).NumberFormatLocal = "h:mm:ss;@"

Cells(6, 1).NumberFormatLocal = "h""時""mm""分"";@"

Cells(7, 1).NumberFormatLocal = "h""時""mm""分""ss""秒"";@"

Cells(8, 1).NumberFormatLocal = "yyyy/m/d h:mm:ss"

End Sub

実行前

実行後