エクセルのVBAで数値を時刻の値へ変換するには？

VBAは初心者です。宜しくお願いします。
シート1のＡ1に840、Ｂ1に1730と単なる数字の値が入っております。
ＶＢＡを実行すると
シート2のＡ1に8:40、Ｂ2に17:30と時刻の値として取り扱えるように
表示させるには、どうすればよろしのでしょうか？

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2009/02/15 17:12

A1はA1

B1はB2にですか？
いったん文字列形式で00:00の形にしてからセットすればエクセルは時間と判断してくれます。

Sub test01()
Dim a As String, b As String
a = Format(Sheets("Sheet1").Range("A1").Value, "00:00")
b = Format(Sheets("Sheet1").Range("B1").Value, "00:00")
Sheets("Sheet2").Range("A1").Value = a
Sheets("Sheet2").Range("B2").Value = b
End Sub

この回答へのお礼

merlionXXさん
シート1のB1をシート2のB1でした（汗
ですが、ご返答頂いた内容で十分ご理解できました！！
文字列形式できちんと認識してくれるんですね！
ご丁寧にありがとうございましたｍ(＿＿)ｍ

お礼日時：2009/02/15 20:02

No.1 回答者： marbin 回答日時： 2009/02/15 16:52

VBAヘルプで

TimeSerial 関数
を調べてみてください。

この回答へのお礼

marbinさん
TimeSerial関数というのをもう少し勉強させて頂きます。
ありがとうございました。

お礼日時：2009/02/15 20:17