|
なかなか、いろいろと試してみたのですが、どうもうまくいかなくて、投稿しました。
開始時間と終了時間があり、実際にかかった時間を表示させたいのですが、
うまく、時刻表示になってくれません
【シート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となって出てきてしまいます
アドバイスをお願いします
よろしくお願いします
|
|