Red de conocimiento informático - Problemas con los teléfonos móviles - Entonces, ¿cómo se programa VBA para convertir una combinación de números y dos puntos a un formato de hora en la columna al lado?

Entonces, ¿cómo se programa VBA para convertir una combinación de números y dos puntos a un formato de hora en la columna al lado?

Subconvertir a horas, minutos, segundos()

rc = Sheet1.Range("j100").End(xlUp).Row

For i = 3 To rc

arr = Split(Formato(Hoja1.Celdas(i, 10).Valor, "hh:mm.ss"), ":"

v = ""

h = 1 * arr(0)

m = 1 * arr(1)

s = 1 * arr(2)

Si h <> 0 Entonces v = h & "hora"

Si m <> 0 entonces v = v & m & "minuto"

Si s <> 0 entonces v = v & s & "segundos"

Si v = "" entonces v = "0 segundos"

Hoja1.Cells(i, 10) = v

Fin del subtítulo