Excel VBA 초를 HH로 변환 : MM : SS

Question

전체 워크 시트를 통해 특정 열의 특정 데이터를 변환하려고합니다.

이것은 현재 코드이며, 오류가 발생하지 않지만 첫 번째 결과가 올바르게 표시되지 않습니다 (00:00:00 표시). 첫 번째 레코드에서만 중지됩니다. 하나 거꾸로가는 다른 기대, 이것은 하나 개의 라인으로 수행 할 수 있습니다와 함께 두 개의 카운터를 사용하는 이유를 이해하지 않지만

Sub CleanEntry() 
    Dim i As Integer 
    Dim Seconds As Integer 
    Dim j As Long 
Dim c As Long 
j = 2 

For i = Sheet1.UsedRange.Rows.Count To 1 Step -1 
c = Range("B" & j).Value 
c = c/86400 
Range("B" & j).Value = Format(c, "hh:mm:ss") 
j = j + 1 
Next 
End Sub 

Answer 1

: c`는 긴

Sub CleanEntry() 
    Dim i As Long 
    Dim j As Long 

j = 2 

For i = Sheet1.UsedRange.Rows.Count To 1 Step -1 
    Range("B" & j).Value = Format(TimeSerial(0, 0, Range("B" & j).Value), "hh:mm:ss") 
    j = j + 1 
Next 
End Sub