Как использовать функцию timevalue в vba (с примером)

Вы можете использовать функцию TimeValue в VBA для возврата значения времени заданной строки.

Вот общий способ использования этой функции на практике:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

Этот конкретный макрос извлечет значение времени дат и времени в диапазоне A2:A7 и вернет это значение времени в соответствующем диапазоне B2:B7 .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как использовать функцию TimeValue в VBA

Предположим, у нас есть следующий столбец даты и времени в Excel:

Предположим, мы хотим извлечь время из каждой даты и времени в столбце A и отобразить его в столбце B.

Для этого мы можем создать следующий макрос:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце B отображается значение времени для каждой даты/времени в столбце A.

Например:

• Функция TimeValue возвращает 10:15:34 по состоянию на 01.01.2023 10:15:34
• Функция TimeValue возвращает 12:34:18 по состоянию на 01.03.2023 12:34:18
• Функция TimeValue возвращает 8:23:00 по состоянию на 05.01.2023 8:23:00

И так далее.

Примечание . Полную документацию по функции TimeValue в VBA можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как сравнить даты в VBA
Как вставить метку времени с помощью VBA
Как отформатировать время в VBA