Jak wyświetlić wszystkie daty między dwiema datami w programie Excel?
W niektórych przypadkach, jeśli masz określoną datę początkową i datę końcową, może być konieczne wyświetlenie wszystkich dat między tymi dwoma podanymi datami w programie Excel. W tym samouczku omówiono metody wyświetlania wszystkich dat między dwiema datami w programie Excel.
Wypisz wszystkie daty między dwiema datami według formuł
Wyświetl wszystkie daty między dwiema datami według VBA
Wyświetl wszystkie daty między dwiema datami przez Kutools for Excel
Wypisz wszystkie daty między dwiema datami według formuł
Tutaj przedstawiam formuły, które mogą szybko wyświetlić wszystkie daty między dwiema podanymi datami w programie Excel.
1. Wpisz daty początkową i końcową w dwóch komórkach, tutaj wpisuję je w komórkach A1 i A2. Zobacz zrzut ekranu:
2. Następnie przejdź do komórki C1, aby wpisać tę formułę = A1 + 1 do niego, a następnie kliknij Wchodzę klucz. Zobacz zrzut ekranu:
3. Następnie w komórce C2 wpisz tę formułę =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) do niego, a następnie przeciągnij uchwyt autouzupełniania w dół do komórek, aż pojawi się pusta komórka. Zobacz zrzuty ekranu:
Następnie możesz zobaczyć, że wszystkie daty między dwiema podanymi datami są wymienione w kolumnie.
Uwaga:
W powyższych wzorach A1 to data początkowa, A2 to data końcowa, a C1 to pierwsza data w zakresie dat.
Wyświetl wszystkie daty między dwiema datami według VBA
Jeśli jesteś zainteresowany kodem makr, możesz użyć poniższego VBA, aby wyświetlić wszystkie daty między dwiema podanymi datami w Excelu.
1. Wpisz datę początkową i datę końcową do dwóch komórek, tutaj wpisuję w komórce A1 i B1. Zobacz zrzut ekranu:
2. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
3. Następnie kliknij wstawka > Moduł i skopiuj i wklej poniższy kod VBA do poppingu Moduł okno.
VBA: Wymień wszystkie daty między dwiema datami.
Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set OutRng = OutRng.Range("A1")
StartValue = StartRng.Range("A1").Value
EndValue = EndRng.Range("A1").Value
If EndValue - StartValue <= 0 Then
Exit Sub
End If
ColIndex = 0
For i = StartValue To EndValue
OutRng.Offset(ColIndex, 0) = i
ColIndex = ColIndex + 1
Next
End Sub
4. kliknij run or F5 aby uruchomić VBA, pojawi się okno dialogowe, w którym możesz wybrać datę początkową, a następnie kliknij OK, a następnie wybierz datę końcową w drugim wyświetlanym oknie dialogowym. Zobacz zrzut ekranu:
5. kliknij OK, a następnie wybierz komórkę, aby umieścić daty, i kliknij OK. Teraz możesz zobaczyć wszystkie daty między dwiema datami. Zobacz zrzuty ekranu:
Note: Lista wygenerowana przez ten VBA zawiera datę początkową i datę końcową.
Wyświetl wszystkie daty między dwiema datami przez Kutools for Excel
Właściwie, jeśli zainstalowałeś Kutools dla programu Excel - poręczne narzędzie dodatkowe, możesz również użyć Wstaw losowe dane by rozwiązać ten problem.
Kutools dla programu Excel, ponad 300 przydatne funkcje programu Excel, zwiększ wydajność pracy i oszczędzaj czas pracy. | ||
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Wybierz kolumnę, w której chcesz wyświetlić daty między dwiema datami, i kliknij Kutools > wstawka > Wstaw losowe dane. Zobacz zrzut ekranu:
2. Następnie w Wstaw losowe dane dialog, kliknij Data , a następnie wybierz datę początkową i końcową z Cena Od i To listę, a następnie pamiętaj, aby sprawdzić Dzień pracy, Weekend i Unikalne wartości pola wyboru. Zobacz zrzut ekranu:
3. kliknij Ok aby zamknąć okno dialogowe i kolejny Kutools dla programu Excel pojawi się okno dialogowe, po prostu kliknij Tak. Następnie możesz zobaczyć daty między datą początkową a końcową. Zobacz zrzuty ekranu:
4. Teraz musisz posortować listę dat w wymaganej kolejności. Kliknij Dane > Sortuj od najstarszych do najnowszych. Następnie możesz zobaczyć, że daty są posortowane od najstarszej do najnowszej. Zobacz zrzuty ekranu:
Z Wstaw losowe dane narzędzie, możesz również wstawić losową liczbę całkowitą, losowy ciąg i losowy czas tak dalej. Kliknij tutaj, aby dowiedzieć się więcej o wstawianiu losowych danych.
Wypisz wszystkie daty między dwiema datami
Względne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!