【VBA】セルの表示形式を「年月時分秒(ミリ秒あり)」へ変更する

例えば以下の表の列「日時」の、

年月時分秒(ミリ秒無し)
年月時分秒(ミリ秒無し)

表示形式を
 ・年月時分秒(ミリ秒あり)
へ変更できます!
※ミリ秒を表示できます。

年月時分秒(ミリ秒あり)
年月時分秒(ミリ秒あり)
PR

VBAコード

ここでは例として、
 ・シート「sample」の列「日時(=4列目)」の
 ・表示形式を「年月時分秒(ミリ秒あり)」へ
変更します。

実行前
実行前
Option Explicit

Sub sample()

    '列「日時」
    Const DATE_COLUMN As Integer = "4"
    
    Dim startRange As Range
    Dim endRow As Double
    Dim endRange As Range

    '開始セルを取得
    Set startRange = Worksheets("sample").Range("D3")
    '最終行を取得
    endRow = startRange.End(xlDown).Row
    '最終セルを取得
    Set endRange = Worksheets("sample").Cells(endRow, DATE_COLUMN)
    
    '表示形式を「年月時分秒(ミリ秒あり)」へ変更
    Range(startRange, endRange).NumberFormatLocal = "yyyy/m/d h:mm:ss.000"

End Sub

「Rangeオブジェクト」の「NumberFormatLocal」プロパティに
「yyyy/m/d h:mm:ss.000」を指定することで、表示形式を
「年月時分秒(ミリ秒あり)」へ変更できます。

PR

実行結果

セルの表示形式を年月時分秒(ミリ秒あり)へ変更できました。

実行後
実行後
PR

参考

上記のVBAコードで使用した以下の詳細については、公式サイトをご確認ください。

●「Rangeオブジェクト」の「NumberFormatLocal」プロパティ

タイトルとURLをコピーしました