Excel VBA で時刻の24時間表示がわかりません

Excel VBA での時刻に関する質問です。

Sub jikan()
Dim DD As Date
Dim S1 As Integer

DD = Time
S1 = Hour(DD)

Range("A1") = DD
Range("A2") = S1
End Sub

このように書いて実行すると
A1セルは　6:26:03 PM
A2セルは　18
という結果です。

A1セルを24時間制で表示する方法がわかりません。
どうすればよいのでしょうか。

No.1 ベストアンサー 回答者： 銀鱗 回答日時： 2021/10/07 18:48

セルの表示形式の問題ですね。

A1セルに対して、

　Range("A1").NumberFormatLocal = "h:mm:ss AM/PM"

などとどこかで指定されているのかもしれません。
あるいはOSの時間表記が午前午後の表記になっていて、それを引き継いでいるのかもしれません。

　Range("A1").NumberFormatLocal = "h:mm:ss"

などと指定してみましょう。

この回答へのお礼

ありがとうございました。

お礼日時：2021/10/07 19:39

No.2 回答者： GOMΛFU 回答日時： 2021/10/07 18:59

Cells(1, 1).NumberFormatLocal = "[h]:mm:ss"

この回答へのお礼

ありがとうございました。

お礼日時：2021/10/07 19:37