エクセルのセル時刻データをMsgBOX命令で正しく表示させる方法

質問

エクセルのセルに表示形式として、時刻を設定しています。
例えば、Ａ１＝２３：３０が入っていると
　　　　MsgBox "A1=" & sheets("XYZ").Range("A1")
では、0.9375と表示されてしまいます。
どのようにすれば、23:30と表示させることができますか。
ＶＢについては、あまり詳しくはありません。
よろしく教示願います。

回答No.3

popesyu · ベストアンサー

一番簡単な方法は
MsgBox(MsgBox "A1=" & sheets("XYZ").Range("A1")
.Text)
でしょう。
ちなみに
Range("A1")
だけですと実際は省略されていますが
Range("A1").Value
となっています。
ということでA1セルの「本来入っている値」が表示されてしまうので、Textと指定すれば「表示されている値」が出てくるのです。

お礼

ありがとうございました。
質問項目に．Ｔｅｘｔのみ追加するだけで、２５：３０等
も表示できました。

回答No.5

imogasi

A1セルに２５：３０と入力し、書式－セル－ユーザー定義で[h]:mmにすると２５：３０、B1セルに同じく２５：３０と入力し、書式－セル－ユーザー定義でhh:mmにすると０１：３０と表示されます。
Sub test02()
MsgBox Format(Worksheets("sheet3").Range("a1").Value, "hh:mm")
MsgBox FormatDateTime(Worksheets("sheet3").Range("a1").Value, vbShortTime)
End Sub
はどちらも、０１：３０となります。[h]:mmは旨く行かない。２５：３０と出す方法で頓挫しましたが、以上報告します。

お礼

ありがとうございました。一番簡単な、Ｎｏ．３を利用させていただきました。

回答No.4

popesyu

３番です。ごめんなさい。入力ミスで分かりにくくなってます。
単純にしますとこうですね。

MsgBox (Range("A1").Text)
で
MsgBox (Range("A1"))
これだけだと実際は
MsgBox (Range("A1").Value)
ということです。

回答No.2

noriemon

msgbox "A1=" & FormatDateTime(sheets("XYZ").Range("A1"),4)

で　どうでしょうか？
ちなみに最後の引数の4は
vbShortTime つまり　24 時間形式 (hh:mm) で時刻を表示するための設定です。
他にもいろいろありますよ。

お礼

ありがとうございました。一番簡単な、Ｎｏ．３を利用させていただきました。

回答No.1

mshr1962

Format(sheets("XYZ").Range("A1"),"hh:mm")
でできませんか？

お礼

ありがとうございました。
簡単そうにできるＮｏ．３とＮｏ．１を試させていただきました。
ただし、hh:mmは、２５：３０の表示ができなかったので、
[h].mmと変更したら変な表示になってしましました。