Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21434 / 76738

←次へ　｜　前へ→


	【60703】時刻の表示の仕方

kao - 09/3/9(月) 22:20 -


	引用なし

	パスワード

なかなか、いろいろと試してみたのですが、どうもうまくいかなくて、投稿しました。

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

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

例）【シート１】
A　　 B
8:00　8:15
8:00　8:30
8:00　8:20

【シート２】
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 hits

▼

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

≪