Jak korzystać z funkcji datevalue w vba (z przykładem)
Możesz użyć funkcji DateValue w VBA, aby zwrócić wartość daty z danego ciągu.
Oto typowy sposób wykorzystania tej funkcji w praktyce:
Sub GetDateValue()
Dim i As Integer
For i = 2 To 7
Range(" B " & i) = DateValue(Range(" A " & i))
Next i
End Sub
To konkretne makro wyodrębni wartość daty z dat i godzin w zakresie A2:A7 i zwróci tę wartość daty w odpowiednim zakresie B2:B7 .
Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.
Przykład: Jak używać funkcji DateValue w VBA
Załóżmy, że w programie Excel mamy następującą kolumnę daty/godziny:
Załóżmy, że chcemy wyodrębnić datę z każdej daty i godziny w kolumnie A i wyświetlić ją w kolumnie B.
W tym celu możemy utworzyć następujące makro:
Sub GetDateValue()
Dim i As Integer
For i = 2 To 7
Range(" B " & i) = DateValue(Range(" A " & i))
Next i
End Sub
Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:
Kolumna B wyświetla wartość daty dla każdej daty i godziny w kolumnie A.
Na przykład:
- Funkcja DateValue zwraca 01.01.2023 z 01.01.2023 10:15:34
- Funkcja DateValue zwraca 01.03.2023 z 01.03.2023 12:34:18
- Funkcja DateValue zwraca 01.05.2023 z 01.05.2023 8:23:00
I tak dalej.
Uwaga : Pełną dokumentację funkcji DateValue w VBA można znaleźć tutaj .
Dodatkowe zasoby
Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:
VBA: jak porównywać daty
VBA: Jak uzyskać nazwę miesiąca z daty
VBA: Liczba większa niż data