終了日時から開始日時を引いた時間を求めるvba式

質問

お世話になっています。

Excelで
A列欄にタイトル
B列欄に開始日
C列欄に開始時
D列欄に終了日
E列欄に終了時
のデータが有ります。
F列欄に合計を求めたいです。

下記のVBAコードを書きましたが、
実行エラー１３，型が一致しませんと表示されます。
正しいコードを教えていただけないでしょうか？

Option Explicit

Public i As Long
Public num As Integer

Sub newmacro()

i = Range("A1").End(xlDown).Count

Range("F1").Value = "合計"

Columns("F").Select
Selection.NumberFormatLocal = "[h]:mm"

For num = 1 To i

Range("F" & Format(num)).Value = Range("D" & Format(num)).Value + Range("E" & Format(num)).Value - _
Range("B" & Format(num)).Value + Range("C" & Format(num)).Value

Next num

End Sub

よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

単純だけど

For num = 1 To i　を　For num = 2 To i

だって、1行目は項目名で合って、日付・時刻じゃないから

お礼

実行エラー１３，型が一致しません を回避することができました。
ありがとうございます。