Як використовувати функцію 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