Come formattare l'ora in vba (con esempi)


È possibile utilizzare la funzione Formato in VBA con i seguenti argomenti per formattare l’ora in Excel in un modo specifico:

  • h : ore senza zeri
  • hh : ore con zeri
  • n : minuti senza zeri
  • nn : minuti con zeri
  • s : secondi senza zeri
  • ss : secondi con zeri
  • AM/PM : visualizzazione AM/PM

L’esempio seguente mostra come formattare in pratica l’ora utilizzando VBA.

Esempio: formattare gli orari utilizzando VBA

Supponiamo di avere la seguente colonna data/ora in Excel:

Possiamo creare la seguente macro per formattare specificamente gli orari nella colonna A e visualizzare gli orari formattati nelle colonne da 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 eseguiamo questa macro, riceviamo il seguente output:

Le colonne da B a E ora vengono visualizzate ogni volta nella colonna A formattata in un modo specifico.

Tieni presente che puoi anche utilizzare i formati di scelta rapida Orario breve , Orario medio e Orario lungo :

 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 eseguiamo questa macro, riceviamo il seguente output:

Le colonne da B a D ora vengono visualizzate ogni volta nella colonna A formattata in un modo specifico.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come utilizzare mm/gg/aaaa come formato data
VBA: come formattare le celle in percentuale
VBA: come applicare la formattazione condizionale alle celle

Aggiungi un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *