(VBA)Splitの抜き出しが上手くいかない

質問

以下のようなコードで「指定区切り文字」の前後で文字列を切り出しています。
添付画像見てもらえれば判ると思いますが
B8セルからのB列の値が「29:08」が正解なのに
「29:08:00」と最後に「:00」が付いた形式になっています。
（B13で1時間を過ぎると正常になっています。）

このため、以後のE及びF列の書き出しもおかしな値となりました。
どのように修正すれば良いでしょうか　？

Option Explicit

Sub Chapter_Plus()

Dim I As Long
Dim J As Long
Dim TEMP As Variant
Dim SepChr As String
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim EndLow As Long
Dim LineData As String
Dim OutText As String
Dim byteData() As Byte '一時格納用

Set WS1 = Worksheets("DATA")
Set WS2 = Worksheets("Chapter")

'シートの初期化
WS1.Range("B3:H100").Clear
WS2.Range("A1:A100").Clear

SepChr = InputBox("指定文字を入力してください。", "区切り文字入力", " ")
'TotalLength = InputBox("時間を(h:mm:ss)で入力してください。", "ファイルサイズ入力")

EndLow = WS1.Cells(Rows.Count, "A").End(xlUp).Row

With WS1
'区切り文字で切り出す
For I = 3 To EndLow
TEMP = Split(.Cells(I, "A"), SepChr)
.Cells(I, "B") = TEMP(0)
.Cells(I, "C") = TEMP(1)
Next

'仮チャプター書き出す
For I = 3 To EndLow
.Cells(I, "E").Value = Format(.Cells(I, "B").Value, "hh:mm:ss")
.Cells(I, "F").Value = Format(.Cells(I + 1, "B").Value, "hh:mm:ss")
.Cells(I, "G").Value = .Cells(I, "C").Value
Next

'番号
For I = 3 To EndLow
.Cells(I, "H").Value = CStr(Format(I - 2, "'00"))
Next
End With

End SUB

回答No.3

kkkkkm · ベストアンサー

> 下記のようなコードで
> 　h:mm:ss に変えてみましたがどうでしょうか　？

いいんじゃないでしょうか。以下よりは速度も早いと思います。

「:」が1個ならというのを考えてました。
Ifはどちらでも
' If UBound(Split(TEMP(0), ":")) = 1 Then
' If Len(TEMP(0)) - Len(Replace(TEMP(0), ":", "")) = 1 Then
.Cells(I, "B") = "00:" & TEMP(0)
Else
.Cells(I, "B") = TEMP(0)
End If

お礼

kkkkkmさん、今回もアドバイスを受けて無事解決しました。

中々、やりたいことは多いのですが知識が追いつかず
　お世話になる事が多いのですが次回もよろしくお願いします。

回答No.2

watabe007

Dim n As Long
With WS1
'区切り文字で切り出す
For i = 3 To EndLow
TEMP = Split(.Cells(i, "A"), SepChr)
n = Len(TEMP(0)) - Len(Replace(TEMP(0), ":", ""))
If n = 1 Then
.Cells(i, "B") = "00:" & TEMP(0)
Else
.Cells(i, "B") = TEMP(0)
End If
.Cells(i, "C") = TEMP(1)
Next
では如何

回答No.1

kkkkkm

3行目の0:15は15秒だと考えてるとしたら
(実際は0:15:00になっていると思いますh:mm表示で)
.Cells(I, "B") = "00:" & TEMP(0)

にしてみてはいかがでしょう。

お礼

kkkkkmさん、回答ありがとうございます。

"00:"＆を付加すると
　1時間を超える場合、「00:01:03:30」のようなあり得ない時間となります。

最初から時間相当が「hh:mm:ss」で統一して記載していれば解決しそうですが
今回のように「mm:ss」でで始まって1時間を超えると「ｈ:mm:ss」となる場合も有ります。

その都度、手作業で形式を統一させるのも結構手間暇が掛かります。

何か、手段がありますか　？

補足

下記のようなコードで
　h:mm:ss に変えてみましたがどうでしょうか　？

With WS1
'区切り文字で切り出す
For I = 3 To EndLow
TEMP = Split(.Cells(I, "A"), SepChr)
If Len(TEMP(0)) < 6 Then
.Cells(I, "B") = "00:" & TEMP(0)
Else
.Cells(I, "B") = TEMP(0)
End If
.Cells(I, "C") = TEMP(1)
Next