Jak korzystać z funkcji timevalue w vba (z przykładem)

Możesz użyć funkcji TimeValue w VBA, aby zwrócić wartość czasu danego ciągu.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 Sub GetTimeValue()
    
Dim i As Integer

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

To konkretne makro wyodrębni wartość czasową dat i godzin w zakresie A2:A7 i zwróci tę wartość czasu w odpowiednim zakresie B2:B7 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak używać funkcji TimeValue w VBA

Załóżmy, że w programie Excel mamy następującą kolumnę daty/godziny:

Załóżmy, że chcemy wyodrębnić czas z każdej daty i godziny w kolumnie A i wyświetlić go w kolumnie B.

W tym celu możemy utworzyć następujące makro:

 Sub GetTimeValue()
    
Dim i As Integer

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B wyświetla wartość czasu dla każdej daty/godziny w kolumnie A.

Na przykład:

• Funkcja TimeValue zwraca 10:15:34 na dzień 01.01.2023 10:15:34
• Funkcja TimeValue zwraca godzinę 12:34:18 od 01.03.2023 r. 12:34:18
• Funkcja TimeValue zwraca 8:23:00 na dzień 01.05.2023 8:23:00

I tak dalej.

Uwaga : Pełną dokumentację funkcji TimeValue w VBA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak porównać daty w VBA
Jak wstawić znacznik czasu za pomocą VBA
Jak sformatować godzinę w VBA