Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21428 / 76732 ←次へ | 前へ→

【60703】時刻の表示の仕方
質問  kao  - 09/3/9(月) 22:20 -

引用なし
パスワード
   なかなか、いろいろと試してみたのですが、どうもうまくいかなくて、投稿しました。

開始時間と終了時間があり、実際にかかった時間を表示させたいのですが、
うまく、時刻表示になってくれません

【シート1】にA列に開始時刻、B列に終了時刻が入るようになっています
それを、【シート2】にデータを転記させ、
そのときに、実績時間を表示させたいのですが、うまくいきません

例)【シート1】
A   B
8:00 8:15
8:00 8:30
8:00 8:20

【シート2】
A   B   C
8:00 8:15 00:15
8:00 8:30 00:30
8:00 8:20 00:20
C列に実際にかかった時間を表示させたい

今は、このようなコードを書いています
Dim 最終行 As integer
Dim 開始時刻 As Date
Dim 終了時刻 As Date

Sheets("Sheet1").select
最終行=Range("A36656").End(xlup).Row

For i = 1 to 最終行
'開始時刻
Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1,0).Value=Format(Cells(i,1).Value,"hh:mm:00")
'終了時刻
Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1,1).Value=Format(Cells(i,2).Value,"hh:mm:00")
開始時刻=Cells(i,1).Value
終了時刻=Cells(i,2).Value
Sheets("Sheets2").Range("A65536").End(xlUp).Offset(1,2).Value=Format(終了時刻-開始時刻,"hh:mm:00")

Next i

しかし、これでは、実際にかかった時間が0となって出てきてしまいます

アドバイスをお願いします
よろしくお願いします
2 hits

【60703】時刻の表示の仕方 kao 09/3/9(月) 22:20 質問
【60704】Re:時刻の表示の仕方 neptune 09/3/9(月) 22:45 回答
【60705】Re:時刻の表示の仕方 neptune 09/3/9(月) 22:49 発言

21428 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free