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

質問

お世話になっています。

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

今回は、
For～Next間のコードを教えて下さい

前回質問分
http://okwave.jp/qa/q9213232.html

Option Explicit

Public i As Long
Public num As Integer

Sub newmacro()

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

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

For num = 2 To Range("a1").End(xlDown).Row

Cells("F", num).Value = Cells("D", num).Value + Cells("E", num).Value - Cells("B", num).Value + Cells("C", num).Value

Next num

End Sub

よろしくお願い致します

回答No.2

imogasi · ベストアンサー

同じようなことを２度にわたって質問しているが、意味は分からない。
コード例も自分で挙げており、大筋間違っていないと思う。
見出し行を計算に加えていた凡ミスなを除き。
どういう点を疑問に思ったとか、失敗するのでしょうか？
（１）スタート（B、C列）、エンド（D,E列）とも日＋時刻を足して、日付つき時刻を作り、相互から引き算して、時間（間隔）を出す。
（２）For　Nextで各行の上記算出した時間を累積していく。
（３）累積したままの時間数（通常２４時間を超えるはず）でよければ、セルの書式は[h]:mmでよい。
時刻は普通は日付が決まってこその時刻なので、日付と組みあわせた時刻でしょう。
それが（１）の足す（結合する）理由で、単純に足してよいのは次の理由からです。
Excelは日付＋時刻を「日付・時刻シリアル値」という表し方で、日付・時刻計算を、引き算だけで、簡単にできるようにしたアイデアを採用している。日付は整数部分、時刻は小数点数（２４時間を１とした、に対する割合）で表される。筆算の場合の、日の単位から、１日２４時間を借りてくるようなことが必要な場合があるが、それがなくなる。
これをVBAまで使い始めた人でも、知らない人が多いようだが、Googleででも、「日付シリアル値で」照会し、記事をよく理解すべきです。

お礼

ありがとうございます

補足

お礼が遅くなり申し訳ありません。
二回質問したのは、エラーが生じており、回避できていないからです。
実行エラー１３の「型が一致しません」と表示されます。
どうしたらよいでしょうか？
Option Explicit

Public i As Long
Public num As Integer

Sub newmacro()

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

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

For num = 2 To Range("a1").End(xlDown).Row

Cells(num, "F").Value = (Cells(num, "D").Value + Cells(num, "E").Value) - (Cells(num, "B").Value + Cells(num, "C").Value)

Next num

End Sub

回答No.3

noname#222556

For ～ Next 内のCellsプロパティの使い方が違いますね。
Cells([RowIndex],[ColumnIndex])　なので、式にすると以下の様になります。
そこだけ変えればOKです。

Cells(num, "F").Value = Cells(num, "D").Value + Cells(num, "E").Value - Cells(num, "B").Value + Cells(num, "C").Value

お礼

ありがとうございます

補足

お礼が遅くなり申し訳ありません。
アドバイス通りにやったのですが、
実行エラー１３の「型が一致しません」と表示されます。
どうしたらよいでしょうか？
Option Explicit

Public i As Long
Public num As Integer

Sub newmacro()

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

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

For num = 2 To Range("a1").End(xlDown).Row

Cells(num, "F").Value = (Cells(num, "D").Value + Cells(num, "E").Value) - (Cells(num, "B").Value + Cells(num, "C").Value)

Next num

End Sub

回答No.1

bunjii

>F列欄に合計を求めたいです。
F列の各行は合計ではなく時間でしょう？
F列の最終行に時間の合計なら理解できます。

>For～Next間のコードを教えて下さい
下記のコードは算数の基本に合っていません。
Cells("F", num).Value = Cells("D", num).Value + Cells("E", num).Value - Cells("B", num).Value + Cells("C", num).Value
F2=(D2+E2)-(B2+C2) → D2+E2-B2-C2 でなければならないのに D2+B2-B2+C2 になっています。
コードの書き方は省略します。

お礼

ありがとうございます

補足

お礼が遅くなり申し訳ありません。
実行エラー１３の「型が一致しません」と表示されます。
どうしたらよいでしょうか？
Option Explicit

Public i As Long
Public num As Integer

Sub newmacro()

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

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

For num = 2 To Range("a1").End(xlDown).Row

Cells(num, "F").Value = (Cells(num, "D").Value + Cells(num, "E").Value) - (Cells(num, "B").Value + Cells(num, "C").Value)

Next num

End Sub