La fonction Hour permet de réaliser une macro pour extraire l'heure du jour dans Excel.
La fonction Hour
La fonction VBA Hour suit la syntaxe suivante :
Hour(date)
Exemple de macro avec Hour()
La macro
Sub macro()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Plage
ActiveCell.Offset(0, 0).FormulaR1C1 = _
Hour(c)ActiveCell.Offset(1, 0).Select
Next c
End Sub
Les données sources
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 01/02/2019 09:09 | ||||
| 2 | 29/04/2019 09:01 | ||||
| 3 | 25/07/2019 13:04 | ||||
| 4 | 20/10/2019 21:18 | ||||
| 5 | 16/01/2020 09:44 |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 01/02/2019 09:09 | 9 | |||
| 2 | 29/04/2019 09:01 | 9 | |||
| 3 | 25/07/2019 13:04 | 13 | |||
| 4 | 20/10/2019 21:18 | 21 | |||
| 5 | 16/01/2020 09:44 | 9 |