Spis treści
W aplikacji Microsoft Visual Basic, funkcje daty lub jakiekolwiek koncepcje związane z datą są niezbędne do wykonywania różnych operacji na zbiorze danych. Możesz znaleźć się w różnych sytuacjach, w których będziesz musiał użyć tych funkcji. W tym samouczku, dowiesz się o funkcji Date w VBA z odpowiednimi przykładami i ilustracjami. Ponadto, przedstawimy Ci wiele funkcji datyktóre możesz zaimplementować w swoim arkuszu.
Pobierz Zeszyt ćwiczeń
Zastosowania VBA Date.xlsm
Wprowadzenie do funkcji VBA Data
Excel kategoryzuje Daty w. Data/godzina Jest to funkcja wbudowana, możemy ją wykorzystać w makrach VBA do wykonywania dowolnych operacji związanych z datą.
Zanim zaczniemy korzystać z funkcji Data, musimy poznać Zmienne daty w VBA .
⏺ Składnia
Data()⏺ Argumenty Wyjaśnienia
Nie ma żadnych argumentów.
⏺ Zwroty
Zwraca bieżącą datę.
⏺ Dostępne w
Excel dla Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 dla Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000
⏺ Przykład
Jak wiesz, nie ma żadnych argumentów możesz tylko po prostu wprowadzić go jak poniżej:
Sub vba_date() Dim current_date As Date current_date = Date MsgBox current_date End Sub Kiedy pracujemy z funkcją Date, nie dajemy żadnych nawiasów w kodach VBA, jak w tym przykładzie.
Wyjście :
12 funkcji daty w VBA, które powinieneś poznać
Teraz, w nadchodzących sekcjach, pokażemy Ci kilka dodatkowych funkcji daty, które możesz wykorzystać do wielu celów w VBA. Przeczytaj te sekcje, aby poznać każdy możliwy sposób pracy z datą w VBA. Sugerujemy, abyś zachował je w swoim arsenale, to z pewnością poprawi Twoją wiedzę.
1. funkcja DateAdd jako data w VBA
W VBA do dodania dni w danej dacie używamy funkcji DateAdd, która po wykonaniu tego zadania zwróci nam wynikową datę.
Składnia:
DateAdd(interwał, liczba, data)
Argumenty:
interwał: Jest Wymagane. wyrażenie String to przedział czasu, który chcesz dodać.
numer: Wymagane Jest to wyrażenie Numeryczne, które jest liczbą interwałów, które chcesz dodać. Może być dodatnie (aby uzyskać daty w przyszłości) lub ujemne (aby uzyskać daty w przeszłości).
data: Oryginalna data/czas.
Teraz interwał argumenty mogą mieć następujące ustawienia:
yyyy - Rok
q - Kwartał
m - Miesiąc
y - Dzień roku
d - Dzień
w - Dzień powszedni
ww -. Tydzień
h - Godzina
n - Minuta
s - Druga
Code Snippet :
Sub dateadd_function() Dim result_Date As Date result_Date = DateAdd("d", 15, "1/31/2022") MsgBox result_Date End Sub Wyjście:
Jak widać, dodał 15 dat w bieżącej dacie w VBA.
Read More: Jak używać funkcji IsDate w VBA (3 przykłady)
2. funkcja DateDiff w VBA
Funkcja DateDiff zwraca Wariant (Long) określający ilość odstępów czasowych pomiędzy dwoma określonymi datami.
Składnia :
DateDiff(interval, date1, date2, [ firstdayofweek, [ firstweekofyear ]] )
Argumenty:
interwał: Jest wymagany.Wyrażenie String to przedział czasu, który chcesz dodaćWyrażenie String to przedział czasu, którego używasz do obliczenia rozróżnienia między dwoma datami.
data1,data2 : Wymagane; Wariant (Data) Dwie daty, które chcesz wykorzystać w obliczeniach.
firstdayofweek: Opcjonalnie. stała określająca pierwszy dzień tygodnia. Jeśli nie jest ustalona, przyjmuje się niedzielę.
pierwszy tydzień roku: Opcjonalnie. stała, która ustala pierwszy tydzień roku. Jeśli nie jest ustawiona, pierwszym tygodniem ma być tydzień, w którym pojawia się 1 stycznia.
Teraz interwał argumenty mogą mieć następujące ustawienia:
yyyy - Rok
q - Kwartał
m - Miesiąc
y - Dzień roku
d - Dzień
w - Dzień powszedni
ww -. Tydzień
h - Godzina
n - Minuta
s - Druga
Na stronie firstdayofweek argument ma takie ustawienia:
vbSunday - wykorzystuje niedzielę jako najważniejszy dzień tygodnia.
vbMonday - zatrudnia poniedziałek jako pierwszy dzień tygodnia.
vbWtorek - obsługuje wtorek jako pierwszy dzień tygodnia.
vbWednesday - zatrudnia środę jako pierwszy dzień tygodnia.
vbCzwartek - obsługuje czwartek jako raczej dzień tygodnia.
vbPiątek - zatrudnia piątek jako pierwszy dzień tygodnia.
vbSobota - obsługuje sobotę jako pierwszy dzień tygodnia.
vbUseSystemDayOfTheWeek - używa pierwszego dnia tygodnia, który jest określony przez ustawienia urządzenia.
Na stronie pierwszy tydzień roku ma takie ustawienia:
vbPierwszyJan1 - wykorzystuje tydzień zawierający 1 stycznia.
vbFirstFourDays - zatrudnia pierwszy tydzień, który ma co najmniej cztery dni w nowym roku.
vbFirstFullWeek - działa w pierwszym pełnym tygodniu roku.
vbSystem - wykorzystuje pierwszy tydzień roku określony przez lokalizacje urządzenia.
Code Snippet:
Sub DateDiff_Function() Dim result As Long result = DateDiff("d", "1/31/2022", "2/12/2022") MsgBox result End Sub Wyjście :
Na koniec zwraca różnicę między dwoma datami w VBA.
Read More: Jak używać funkcji VBA DateDiff w Excelu (9 przykładów)
3) Funkcja DatePart jako Data
Funkcja DatePart zwraca Variant (Integer) zawierający określoną część podanej daty.
Składnia :
DatePart(interwał, data, [ firstdayofweek, [ firstweekofyear ]])
Argumenty:
interwał: Jest wymagany.Wyrażenie String to przedział czasu, który chcesz dodaćWyrażenie String to przedział czasu, którego używasz do obliczenia rozróżnienia między dwoma datami.
data: Wymagane; Wariant (Data) Data, którą chcemy wykorzystać w obliczeniach.
firstdayofweek: Opcjonalnie. stała określająca pierwszy dzień tygodnia. jeśli nie jest ustalona, przyjmuje się niedzielę.
pierwszy tydzień roku: Opcjonalnie. stała, która ustala pierwszy tydzień roku. Jeśli nie jest ustawiona, pierwszym tygodniem ma być tydzień, w którym pojawia się 1 stycznia.
Teraz interwał argumenty mogą mieć następujące ustawienia:
yyyy - Rok
q - Kwartał
m - Miesiąc
y - Dzień roku
d - Dzień
w - Dzień powszedni
ww -. Tydzień
h - Godzina
n - Minuta
s - Druga
Na stronie firstdayofweek argument ma takie ustawienia:
vbSunday - wykorzystuje niedzielę jako najważniejszy dzień tygodnia.
vbMonday - zatrudnia poniedziałek jako pierwszy dzień tygodnia.
vbWtorek - obsługuje wtorek jako pierwszy dzień tygodnia.
vbWednesday - zatrudnia środę jako pierwszy dzień tygodnia.
vbCzwartek - obsługuje czwartek jako raczej dzień tygodnia.
vbPiątek - zatrudnia piątek jako pierwszy dzień tygodnia.
vbSobota - obsługuje sobotę jako pierwszy dzień tygodnia.
vbUseSystemDayOfTheWeek - używa pierwszego dnia tygodnia, który jest określony przez ustawienia urządzenia.
Na stronie pierwszy tydzień roku ma takie wartości:
vbPierwszyJan1 - działa w tygodniu obejmującym 1 stycznia.
vbFirstFourDays - wykorzystuje pierwszy tydzień, który posiada co najwyżej niewymiarowe cztery dni w nowym roku.
vbFirstFullWeek - wykorzystuje pierwszy pełny tydzień roku.
vbSystem - zatrudnia pierwszy tydzień roku wybrany przez lokalizacje urządzenia.
Code Snippet :
Sub DatePart_Function() Dim result As Integer result = DatePart("m", "10/11/2022") MsgBox result End Sub Wyjście :
W ten sposób możesz użyć tej funkcji daty w kodach VBA.
Read More: Jak używać funkcji VBA FileDateTime w Excelu (3 zastosowania)
4) Funkcja DateSerial
Możesz zobaczyć datę opartą na wprowadzonym roku, miesiącu i dniu używając The DateSerial funkcja.
Składnia:
DateSerial(rok, miesiąc, dzień)
Argumenty:
rok - Pole wymagane. Liczba z zakresu od 100 do 9999 włącznie lub wyrażenie liczbowe symbolizujące rok.
miesiąc - Pole wymagane. wartość całkowita określająca miesiąc.
dzień - Pole wymagane, wartość całkowita opisująca dzień.
Code Snippet:
Sub date_serial() Dim date_special As Date date_special = DateSerial(2022, 1, 11) MsgBox date_special End Sub Wyjście :
Read More: Jak używać VBA TimeSerial w Excelu (3 przykłady)
4. funkcja VBA DateValue
Teraz używamy funkcji DateValue do zdefiniowania daty.
Składnia :
DateValue(data)
Argument:
Tutaj data argumentem jest zazwyczaj wyrażenie łańcuchowe opisujące datę od 1 stycznia 100 r. do 31 grudnia 9999 r. Niezależnie od tego, data może być ponadto dowolnym wyrażeniem, które może symbolizować datę, czas lub zarówno datę jak i czas w tym zakresie.
Code Snippet:
Sub Date_value() Dim result As Date result = DateValue("January, 10, 2022") MsgBox result End Sub Wyjście :
Jak widać, z powodzeniem wykorzystaliśmy funkcję data w kodach VBA.
5. Funkcja Day w VBA
Zwraca Variant (Integer) określający liczbę rzeczywistą z przedziału od 1 do 31 włącznie, przekazującą dzień miesiąca.
Składnia :
Dzień(data)
Argument:
Wymaganym argumentem daty jest dowolny Variant, wyrażenie numeryczne, wyrażenie łańcuchowe lub dowolna kombinacja. Przedstawia datę. Jeżeli data zawiera Null, to zwróci również Null.
Code Snippet:
Sub day_function() Dim date1, the_day date1 = #12/12/2023# the_day = Day(date1) MsgBox the_day End Sub Wyjście:
Jak widać, korzystając z kodów VBA stwierdziliśmy, że dniem podanej daty jest 12.
Related Content: Funkcja VBA Format w Excelu (8 zastosowań z przykładami)
6. funkcja VBA miesiąc jako data
Zwraca Variant (Integer) określający liczbę rzeczywistą w przedziale od 1 do 12 włącznie, przekazującą miesiąc roku.
Składnia :
Miesiąc(data)
Argument:
Wymaganym argumentem daty jest dowolny Variant, wyrażenie numeryczne, wyrażenie łańcuchowe lub dowolna kombinacja. Przedstawia datę. Jeżeli data zawiera Null, to zwróci również Null.
Code Snippet:
Sub miesiąc_funkcja() Dim data1, the_month data1 = #12/12/2023# the_month = Month(data1) MsgBox the_month End Sub Wyjście:
Related Content: Jak używać funkcji VBA Right w Excelu (6 przykładów)
Podobne lektury
- Jak używać funkcji VBA Environ (4 przykłady)
- Jak używać VBA i funkcji w Excelu (4 przykłady)
- VBA If - Then - Else Statement w Excelu (4 przykłady)
- Jak używać funkcji VBA Abs w Excelu (9 przykładów)
- Jak używać Concatenate w Excelu VBA (4 metody)
7) Funkcja MonthName
Zwraca ciąg znaków demonstrujący określony miesiąc.
Składnia :
MonthName(miesiąc, [ skrót ])
Argument:
miesiąc: Jest wymagany, numeryczny tytuł miesiąca. Na przykład styczeń to 1, luty to 2, i tak dalej.
skrócić: Jest to opcja. wartość logiczna, która pokazuje, czy nazwa miesiąca ma być skrócona. Jeśli jest pominięta, domyślnie jest to False, co oznacza, że nazwa miesiąca nie jest skrócona.
Code Snippet:
Sub MonthName_Function() Dim month_name As String month_name = MonthName(9, True) MsgBox month_name End Sub Wyjście:
Jak widać, znaleźliśmy nazwę miesiąca przez tę funkcję VBA Date.
8. funkcja dnia roboczego
Zwraca on Wariant ( Integer ) posiadające liczbę rzeczywistą wyrażającą dzień tygodnia.
Składnia :
Weekday(date, [ firstdayofweek ])
Argument:
data: Wymaganym argumentem daty jest dowolny Variant, wyrażenie numeryczne, wyrażenie łańcuchowe lub dowolna kombinacja. Przedstawia datę. Jeżeli data zawiera Null, to zwróci również Null.
firstdayofweek: Opcjonalnie. stała określająca pierwszy dzień tygodnia. jeśli nie jest ustalona, przyjmuje się niedzielę.
Na stronie firstdayofweek argument ma takie ustawienia:
vbSunday - wykorzystuje niedzielę jako najważniejszy dzień tygodnia.
vbMonday - zatrudnia poniedziałek jako pierwszy dzień tygodnia.
vbWtorek - obsługuje wtorek jako pierwszy dzień tygodnia.
vbWednesday - zatrudnia środę jako pierwszy dzień tygodnia.
vbCzwartek - obsługuje czwartek jako raczej dzień tygodnia.
vbPiątek - zatrudnia piątek jako pierwszy dzień tygodnia.
vbSobota - obsługuje sobotę jako pierwszy dzień tygodnia.
vbUseSystemDayOfTheWeek - używa pierwszego dnia tygodnia, który jest określony przez ustawienia urządzenia.
Parametry zwrotu
Teraz ta funkcja zwraca liczbę całkowitą, więc znaczenie tych liczb całkowitych jest następujące:
1 - niedziela
2 - poniedziałek
3 - wtorek
4 - środa
5 - czwartek
6 - piątek
7 - sobota
Code Snippet:
Sub Weekday_Function() Dim week_day As Integer week_day = Weekday("4/27/2022") MsgBox week_day End Sub Wyjście:
Jak widać, funkcja VBA data zwraca 4. To oznacza środę.
Related Content: Jak używać funkcji Fix w Excelu VBA (4 przykłady)
9. funkcja VBA WeekdayName
Zwraca ciąg znaków wyświetlający ograniczony dzień tygodnia.
Składnia :
WeekdayName(weekday, abbreviate, firstdayofweek)
Argument:
dzień powszedni: Pole wymagane. Identyfikacja numeryczna dla dnia tygodnia. Wartość numeryczna każdego dnia zależy od ustawienia ustawienia firstdayofweek.
skrócić: Opcjonalnie. Wartość logiczna określająca, czy nazwa dnia tygodnia ma być skrócona. Jeśli pominięta, domyślnie ustawiona jest wartość False, co oznacza, że nazwa dnia tygodnia nie jest skracana.
pierwszy dzień tygodnia: Pole opcjonalne. Wartość numeryczna określająca pierwszy dzień tygodnia. Może mieć różne wartości.
Na stronie firstdayofweek argument może mieć kolejne wartości:
vbSunday - wykorzystuje niedzielę jako najważniejszy dzień tygodnia.
vbMonday - zatrudnia poniedziałek jako pierwszy dzień tygodnia.
vbWtorek - obsługuje wtorek jako pierwszy dzień tygodnia.
vbWednesday - zatrudnia środę jako pierwszy dzień tygodnia.
vbCzwartek - obsługuje czwartek jako raczej dzień tygodnia.
vbPiątek - zatrudnia piątek jako pierwszy dzień tygodnia.
vbSobota - obsługuje sobotę jako pierwszy dzień tygodnia.
vbUseSystemDayOfTheWeek - używa pierwszego dnia tygodnia, który jest określony przez ustawienia urządzenia.
Code Snippet:
Sub WeekdayName_Function() Dim weekday_name As String weekday_name = WeekdayName(6) MsgBox weekday_name End Sub Wyjście:
Jak widać, powyższe kody VBA pokazują nazwę dnia tygodnia.
Related Content: Jak używać funkcji VBA WeekdayName w Excelu (2 przykłady)
10. funkcja roku w VBA Data
Zwraca Variant (Integer) posiadający liczbę rzeczywistą wyrażającą rok.
Składnia :
Rok(data)
Argument:
Wymaganym argumentem daty jest dowolny Variant, wyrażenie numeryczne, wyrażenie łańcuchowe lub dowolna kombinacja. Przedstawia datę. Jeżeli data zawiera Null, to zwróci również Null.
Code Snippet:
Sub rok_funkcja() Dim data1, the_year data1 = #12/12/2023# the_year = Year(data1) MsgBox the_year End Sub Wyjście:
Tutaj można zobaczyć rok danej daty po zaimplementowaniu kodu VBA.
Read More: Jak używać funkcji VBA Replace w programie Excel (11 zastosowań)
11. funkcja FormatDateTime
Funkcja zwraca wyrażenie sformatowane jako data lub czas.
Składnia :
FormatDateTime(Date, [ NamedFormat ])
Argument:
Data: Pole wymagane, wyrażenie daty do sformatowania.
NamedFormat: Jest to opcja. Jest to wartość liczbowa, która wyświetla format daty/czasu. Jeśli pominięto, użyto vbGeneralDate .
Na stronie NamedFormat może mieć następujące wartości:
vbGeneralDate(0): Pokazać datę i/lub czas. Jeśli jest część z datą, wyrazić ją jako krótką datę. Jeśli jest część z czasem, wyświetlić ją jako długi czas. Obie części są pokazywane, jeśli są obecne.
vbLongDate(1): Przedstaw datę, wykorzystując konfigurację długiej daty wybraną w ustawieniach regionalnych komputera.
vbShortDate(2): Wyświetlanie daty poprzez obsługę krótkiego formatu daty określonego w ustawieniach regionalnych komputera.
vbLongTime(3): Pokaż czas, stosując format czasu określony w ustawieniach regionalnych komputera.
vbShortTime(4): Wyświetlanie czasu przy użyciu formatu 24-godzinnego (hh:mm).
Code Snippet:
Sub FormatDateTime_Function() d = ("2022-02-03 18:25") MsgBox ("Format 1 : " & FormatDateTime(d)) MsgBox ("Format 2 : " & FormatDateTime(d, 1)) MsgBox ("Format 3 : " & FormatDateTime(d, 2)) MsgBox ("Format 4 : " & FormatDateTime(d, 3)) MsgBox ("Format 5 : " & FormatDateTime(d, 4)) End Sub Wyjście:
Po uruchomieniu kodu zobaczysz następujące okna dialogowe:
Tutaj możesz zobaczyć wszystkie formaty czasu i daty w VBA.
Read More: Jak używać funkcji VBA TimeValue (6 odpowiednich przykładów)
12. funkcja VBA CDate
Funkcja konwertuje prawidłowe wyrażenie daty i czasu na typową datę.
Składnia :
CDate(data)
Argument:
Wymaganym argumentem daty jest dowolny Variant, wyrażenie numeryczne, wyrażenie łańcuchowe lub dowolna kombinacja. Przedstawia datę. Jeżeli data zawiera Null, to zwróci również Null.
Code Snippet:
Sub Cdate_Function() Dim data1 As Variant Dim data2 As Variant data1 = CDate("Mar 11 2022") data2 = CDate("29 Sep 2023") MsgBox ("Pierwsza data : " & data1 & vbCrLf & "Druga data : " & data2) End Sub Wyjście:
Jak widać, nasz kod VBA zwrócił właśnie typowy dla Excela format daty.
Related Content: Jak używać funkcji VBA DIR w Excelu (7 przykładów)
Przykłady VBA Data
W kolejnych rozdziałach przedstawimy Ci trzy praktyczne i odpowiednie przykłady dotyczące daty przy użyciu VBA.Przykłady te będą zawierały problemy związane z datą i ich rozwiązania.Zalecamy przeczytanie i przećwiczenie wszystkich tych przykładów, aby pogłębić swoją wiedzę na temat VBA.Przejdźmy do rzeczy.
1. obliczanie zaległych dni przy użyciu daty w VBA
Znaczenie overdue to dzieje się późno, lub po terminie. Późno, szczególnie, po terminie lub zbyt późno, aby spełnić wymóg.
Załóżmy, że musisz oddać zadanie na niedzielę, ale jest wtorek, a ty jeszcze go nie oddałeś. Można to nazwać dwoma zaległymi dniami.
Przyjrzyj się poniższemu zbiorowi danych:
Tutaj mamy zbiór danych niektórych studentów i ich datę złożenia zadania. Możesz zobaczyć ostatnią datę złożenia. Naszym celem jest znalezienie zaległej daty w oparciu o datę złożenia. Teraz, aby to osiągnąć, wykonaj następujące kroki:
📌 Kroki
- Najpierw należy nacisnąć Alt+F11 na klawiaturze, aby otworzyć edytor VBA.
- Następnie należy wybrać Insert> Moduł .
- Następnie należy wpisać następujący kod:
Sub overdue_days() Dim cell As Integer Dim J As Integer Dim due_date As Date due_date = #1/11/2022# For cell = 5 To 11 If Cells(cell, 4).Value = due_date Then Cells(cell, 5).Value = "Submitted Today" ElseIf Cells(cell, 4).Value> due_date Then J = due_date - Cells(cell, 4).Value J = Abs(J) Cells(cell, 5).Value = J & " Overdue Days" Else Cells(cell, 5).Value = "No Overdue" End If Next cellEnd Sub Użyliśmy funkcja ABS aby usunąć znak minus.
- Następnie należy zapisać plik.
- Następnie należy nacisnąć Alt+F8 na klawiaturze, aby otworzyć okno dialogowe Makro.
- Następnie należy wybrać
- Następnie należy kliknąć na Uruchom .
Jak widać, z powodzeniem wykorzystaliśmy datę w VBA i znaleźliśmy przeterminowane dni.
Podobne lektury
- Jak używać funkcji spacji VBA w Excelu (3 przykłady)
- Użyj funkcji VBA ChDir w Excelu (4 odpowiednie przykłady)
- Jak używać funkcji IsNull w Excelu VBA (5 przykładów)
- Użyj VBA While Wend Statement w Excelu (4 przykłady)
- Jak wywołać Sub w VBA w Excelu (4 przykłady)
2. Znajdź rok urodzenia z daty używając VBA
Teraz możesz znaleźć Rok od konkretnej daty, jest to dość proste do znalezienia.
Przyjrzyj się poniższemu zbiorowi danych:
Tutaj możesz zobaczyć datę urodzenia niektórych osób. Naszym celem jest wyodrębnienie roku urodzenia z daty, a także roku urodzenia ostatniego wpisu Elizabeth.
📌 Kroki
- Najpierw należy nacisnąć Alt+F11 na klawiaturze, aby otworzyć edytor VBA.
- Następnie należy wybrać Wstaw>Moduł .
- Następnie należy wpisać następujący kod:
Sub find_year() Dim last_entry As Date Dim cell As Integer For cell = 5 To 11 Cells(cell, 4).Value = Year(Cells(cell, 3).Value) If cell = 11 Then last_entry = Cells(cell, 3).Value End If Next cell MsgBox "Rok urodzenia ostatniego wpisu: " & Year(last_entry) End Sub. - Następnie należy zapisać plik.
- Następnie należy nacisnąć Alt+F8 na klawiaturze, aby otworzyć okno dialogowe Makro.
- Następnie należy wybrać znaleźć_rok .
- Następnie należy kliknąć na Uruchom .
W końcu widać, że odnosimy sukcesy w wyodrębnianiu roku urodzenia z każdej daty. Ponadto znaleźliśmy rok urodzenia ostatniego wpisu za pomocą daty VBA w programie Excel.
3. dodawanie dni do daty za pomocą VBA
Teraz można zdefiniować zmienną date i użyć jej do dodania daty.Aby to wykonać, używamy DataAdd Możesz użyć tej funkcji do dodania dni, miesięcy i lat do konkretnej daty.
Przyjrzyj się poniższemu zbiorowi danych:
Tutaj widać kilka nazw i kilka dat do nich przypisanych. Teraz naszym celem jest dodanie do tych podanych dat kolejnych pięciu dni i wygenerowanie nowej daty.
📌 Kroki
- Najpierw należy nacisnąć Alt+F11 na klawiaturze, aby otworzyć edytor VBA.
- Następnie należy wybrać Wstaw>Moduł .
- Następnie należy wpisać następujący kod:
Sub add_days() Dim first_date As Date Dim second_date As Date Dim cell As Integer For cell = 5 To 11 first_date = Cells(cell, 3).Value second_date = DateAdd("d", 5, first_date) Cells(cell, 4).Value = second_date Next cell End Sub Tutaj użyliśmy "d" jako argumentu w funkcji DateAdd. Możesz zmienić go na "y" lub "m", aby dodać odpowiednio lata lub miesiące,
- Następnie należy zapisać plik.
- Następnie należy nacisnąć Alt+F8 na klawiaturze, aby otworzyć okno dialogowe Makro.
- Następnie należy wybrać.
- Następnie należy kliknąć na Uruchom .
Jak widać, z powodzeniem dodaliśmy dni do daty za pomocą daty w VBA. Teraz możesz zmodyfikować kod według własnego uznania.
💬 Rzeczy do zapamiętania
✎ Funkcja VBA Date w rzeczywistości działa jak funkcja TODAY w Excelu.
✎ VBA DATA jest nieulotną funkcją w excelu, czyli zachowa dane nawet w przypadku przerwy w zasilaniu.
✎ Zasadniczo VBA zapisuje wartości Date jako DATE w czasie wykonywania.
✎ Tak więc, jeśli spróbujesz przypisać zmienną daty jako ciąg / tekst, spowoduje to błąd.
✎ Domyślną wartością opcji Data jest 0:00:00 (północ) 1 stycznia 0001 roku.
Wniosek
Podsumowując, mam nadzieję, że ten tutorial dostarczył Ci kawałek przydatnej wiedzy na temat Daty w kodach VBA. Zalecamy, abyś nauczył się i zastosował wszystkie te instrukcje do swojego zbioru danych. Pobierz zeszyt ćwiczeń i wypróbuj je samodzielnie. Nie krępuj się również przekazać informacji zwrotnej w sekcji komentarzy. Twoje cenne opinie utrzymują nas w motywacji do tworzenia tutoriali takich jak ten.
Nie zapomnij sprawdzić naszej strony internetowej Exceldemy.com dla różnych problemów i rozwiązań związanych z programem Excel.
Ciągle ucz się nowych metod i ciągle się rozwijaj!
