Como formatar a hora em vba (com exemplos)

Você pode usar a função Formatar no VBA com os seguintes argumentos para formatar horários no Excel de uma maneira específica:

• h : horas sem zeros
• hh : horas com zeros
• n : minutos sem zeros
• nn : minutos com zeros
• s : segundos sem zeros
• ss : segundos com zeros
• AM/PM : exibição AM/PM

O exemplo a seguir mostra como formatar horários usando VBA na prática.

Exemplo: formatar horários usando VBA

Suponha que temos a seguinte coluna de data/hora no Excel:

Podemos criar a seguinte macro para formatar especificamente os horários na coluna A e exibir os horários formatados nas colunas B a E:

 SubFormatTime ()

Dim i As Integer

For i = 2 To 8
  Range(" B " & i) = Format(Range(" A " & i), " h ")
  Range(" C " & i) = Format(Range(" A " & i), " h:nn ")
  Range(" D " & i) = Format(Range(" A " & i), " h:nn:ss ")
  Range(" E " & i) = Format(Range(" A " & i), " h:nn:ss AM/PM ")
Next i

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

As colunas B a E agora são exibidas sempre na coluna A formatada de uma maneira específica.

Observe que você também pode usar os formatos de atalho Short Time , Medium Time e Long Time :

 SubFormatTime ()

Dim i As Integer

For i = 2 To 8
  Range(" B " & i) = Format(Range(" A " & i), " Short Time ")
  Range(" C " & i) = Format(Range(" A " & i), " Medium Time ")
  Range(" D " & i) = Format(Range(" A " & i), " Long Time ")
Next i

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

As colunas B a D agora são exibidas sempre na coluna A formatada de uma maneira específica.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como usar mm/dd/aaaa como formato de data
VBA: Como formatar células como porcentagem
VBA: Como aplicar formatação condicional às células