時間合計が目に見える結果とは異なる原因について(正しくは25:00:00となるが、合計結果では24:59:59と表記される)

Question

VBA処理で抽出反映した分において、時間の合計が正しく表示されない状況が発生。

問題点：
秒数は必ず0となるにも関わらず、合計するとHH:MM-1:59秒となるところが発生する
(例)本来であれば25:00:00となるところが24:59:59と表示
・全て秒数は00となっていることは確認済
・エクセル上の表示形式[h]:mm

対策点：
【手動】
・区切り位置ウィザードで処理
・F2 + Enter

【VBA】
TextToColumnsmメソッドを利用して、処理

現時点ではTextToColumnsmメソッドにより一時的に問題なく行えているのですが、
1列(対象範囲の列)ずつでしか処理が出来ないため、まとめて処理を行いたいと考えている。またそれまでの過程が間違っているのか、正しく処理行えているのか府に落ちない状況にあるため、ご質問させていただきました。

---

現時点では以下の3点が原因の一つでは？と考えています。
・テキストデータをVBA経由で取込した時点
・上記CSVデータを別シートリストへ抽出反映した時点
・条件別にCDate()を使って計算を行った分を反映した時点

どなたか有識者の方々、上記の合計すると正しくない時間となる要因・原因または対策点についてご教示頂けないでしょうか。

●テキストデータの取込におけるコード

Sub 実験データ取込()

Dim wb As Workbook
Set wb = ThisWorkbook

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = wb.Sheets("実験結果")
Set ws2 = wb.Sheets("実験データ")

ws2.Rows("2:" & Rows.Count).ClearContents

Dim opentxt
opentxt = Application.GetOpenFilename("テキストファイル,*.txt")
    
If opentxt = False Then
    Exit Sub
End If

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Cursor = xlWait

Dim r As Long
r = ws2.Cells(Rows.Count, "D").End(xlUp).Row + 1

Open opentxt For Input As #1

Dim buf As String

Line Input #1, buf
Do Until EOF(1)

Line Input #1, buf

Dim aryLine As Variant
aryLine = Split(buf, vbTab)

Dim i As Long
    For i = LBound(aryLine) To UBound(aryLine)
        ws2.Cells(r, i + 1).Value = aryLine(i)
    Next

r = r + 1

Loop

Close #1

'----------------------------------------------------------
'別データがあれば続いて取込
'----------------------------------------------------------
Dim que
que = MsgBox("別の実験データを取り込みますか？", vbYesNo + vbQuestion)


If que = vbYes Then

opentxt = Application.GetOpenFilename("テキストファイル,*.txt")

If opentxt = False Then
    Exit Sub
End If

r = ws2.Cells(Rows.Count, "D").End(xlUp).Row + 1

Open opentxt For Input As #1

Line Input #1, buf
Do Until EOF(1)

Line Input #1, buf

aryLine = Split(buf, vbTab)

    For i = LBound(aryLine) To UBound(aryLine)
        ws2.Cells(r, i + 1).Value = aryLine(i)
    Next

r = r + 1

Loop

Close #1

Else

MsgBox m & "取込完了"
End If

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.Cursor = xlDefault

End Sub

●TextToColumnsmメソッドを利用して対処

With ws
   .Range("H4:H" & mRow).TextToColumns Comma:=True
   .Range("I4:I" & mRow).TextToColumns Comma:=True
   .Range("J4:J" & mRow).TextToColumns Comma:=True
   .Range("K4:K" & mRow).TextToColumns Comma:=True
   .Range("L4:L" & mRow).TextToColumns Comma:=True
   .Range("M4:M" & mRow).TextToColumns Comma:=True
.
.
End with

追記：
●CDate(timeserial)を使って計算を行った分を反映する処理

    tb = .Range("D4:R" & mRow)
    ReDim x(1 To UBound(tb), 1 To 2)
        For i = 1 To UBound(tb)
                
            '◆判定:合計時間(実験①～③の合計時間が12時間を超えるかどうか
            If tb(i, 13) > TimeSerial(12, 0, 0) Then
            
                    x(i, 1) = tb(i, 13) - TimeSerial(6, 0, 0) - tb(i, 15)
                Else
                    x(i, 1) = TimeSerial(0,0,0)
                    
            End If

            '◆判定:合計時間(実験④～⑥の合計時間が12時間を超えるかどうか
            If tb(i, 14) > TimeSerial(12, 0, 0) Then
            
                    x(i, 2) = tb(i, 14) - TimeSerial(8, 0, 0) - tb(i, 15)
                Else
                    x(i, 2) = TimeSerial(0,0,0)
                    
            End If
            
    .Range("S4:T" & mRow) = x

Comments

[quark87139]

[quark87139]

.TextToColumns Comma:=Trueの部分へ引数 FieldInfoを追加

追加後
.TextToColumns Range("セル"), xlDelimited, fieldinfo:=Array(1, 1)

Answer 1

・テキストデータをVBA経由で取込した時点
・上記CSVデータを別シートリストへ抽出反映した時点

上記については目視で確認できると思いますが、正しく表示されていますか。

・条件別にCDate()を使って計算を行った分を反映した時点

どのような計算を行っているか不明ですが、この部分が怪しそうです。
CDate()はDate型に変換しますが、Date型は内部的には、倍精度浮動小数点数型(Double)ですので、演算誤差が出る可能性があります。
加減ならDatediff関数を使う、または分単位に変換してから計算する、などの工夫が必要かもしれません。

Comments

[quark87139]

hatena19さん
いつもご丁寧にご回答頂きありがとうございます。
指摘受けた件、一通り確認いたしました。

・テキストデータをVBA経由で取込した時点
・上記CSVデータを別シートリストへ抽出反映した時点
→確認できる範囲で見ると問題なく表示されています。

次点の・条件別にCDate()を使って計算を行った分を反映した時点
→確認すると、確かにCDate()を利用した計算した分を反映している列のみ正しく表示されてなかったので、
これが原因である可能性は高そうですね・・・。

CDate()の後にTimeserial()の方も使って試したのですが、同じ結果となったので、
指摘受けたようにTimeserial()もCDate()と同様にDate型に変換するものの、
内部的にはDouble型となるため誤差が出ているんですかね？
※計算を行っている部分について、本文へ一部掲載しました。