VBAで時間(Date型)から文字列に変換したい

Question

VBAで時間(Date型)から文字列に変換したい

初心者です。
よろしくお願いします。

セルA1にはDate型の時間が入っています。
セルA1 = 14:00
そのセルA1のDate型をセルA2に文字列として入力したいのですが、
「1400」の数値として出力されてしまいます。
セルA2の「1400」という4桁の文字列にするにはどのように
すればよろしいでしょうか？

該当のソースコード

Sub DateToString()

    Dim dt  As Date
    Dim st   As String
    
    dt = Range("A1").Value
    st = Format(dt, "hhmm")
    Range("A2").Value = st

End Sub

Answer 1

セルの書式を「文字列」と設定してから値を設定しないと、数値に変換できる文字列だと数値として扱われます。

Sub DateToString()

    Dim dt  As Date
    Dim st   As String

    dt = Range("A1").Value
    st = Format(dt, "hhmm")
    Range("A2").NumberFormat="@"  '書式を「文字列」に指定
    Range("A2").Value = st

End Sub

ちょっとうろ覚えですが、こんな感じでできたと思います。

Comments

[zenbuiri]

ありがとうございます。
NumberFormatを用いたら、文字列に出来ました。

Answer 2

Excelなら、先頭に'文字を入れれば、文字列として表示されるようになります

Comments

[zenbuiri]

ありがとうございます。
'文字を追記するようにソースコードを書けば文字列として扱われますね。