Jak wygenerować losową datę tygodnia lub weekendu w programie Excel?
Ten samouczek dotyczy generowania tylko losowych dni tygodnia lub tylko losowych dat weekendów w programie Excel, wykonaj poniższe kroki, aby uzyskać więcej informacji.
Generuj tylko losowy dzień tygodnia w Excelu
Wygeneruj tylko losowy dzień tygodnia lub tylko losowy weekend za pomocą Kutools for Excel
Generuj tylko losowy dzień tygodnia w Excelu
W programie Excel istnieją dwie metody, które mogą pomóc w losowaniu tylko dni tygodnia w zakresie dat, zgodnie z potrzebami.
Metoda 1 generuje losowy dzień tygodnia z formułą
Wybierz komórkę i wpisz tę formułę = DATA (2014, 1, 1) + LARGE (JEŻELI (WEEKDAY (DATE (2014, 1, 1) + ROW (1 $: 365 $) -1, 2) <6, ROW (1 $: 365 $) -1 "" ), RANDBETWEEN (1, SUMA (- (WEEKDAY (DATE (2014, 1, 1) + ROW (1 $: 365 $) -1, 2) <6)))), A następnie naciśnij przycisk Shift + Ctrl + Enter klawiszy jednocześnie, a następnie przeciągnij uchwyt wypełniania do zakresu, który chcesz wygenerować dzień tygodnia. Zobacz zrzut ekranu:
Wskazówka:
1. Jeśli chcesz generować unikalne losowe dni tygodnia, możesz użyć tej formuły =DATE(2014, 1, 1)+(LARGE(IF(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6, ROW($1:$365)-1, ""), RANDBETWEEN(1, SUM(--(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6))))) i pamiętaj, aby nacisnąć Shift + Ctrl + Enter.
2. W powyższych wzorach 2014,1,1 to data początkowa wymaganego zakresu dat, 365 to liczba dni w zakresie dat, możesz je zmienić według potrzeb.
3. Nie możesz umieścić formuły generującej unikalne losowe dni tygodnia w A1.
Metoda 2 generuje losowy dzień tygodnia w ciągu roku z VBA
Jeśli chcesz losowo ustawić dni tygodnia w ciągu roku i znasz VBA, możesz wykonać poniższe czynności:
1. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do wyskakujących okien.
VBA: Losuj dzień tygodnia w ciągu roku.
Dim RandomizedYet As Boolean
'Updateby20150108
Function RandomizeDates(pYear As Long)
Dim i As Long
Dim DaysInYear As Long
Dim xIndex As Long
Dim RndIndex As Long
Dim Temp As Date
Dim Weekdays() As Variant
If Not RandomizedYet Then
RandomizedYet = True
Randomize
End If
DaysInYear = DateSerial(pYear + 1, 1, 1) - DateSerial(pYear, 1, 1)
ReDim Weekdays(1 To DaysInYear)
For i = 1 To DaysInYear
If Weekday(DateSerial(pYear, 1, i), vbMonday) < 6 Then
xIndex = xIndex + 1
Weekdays(xIndex) = DateSerial(pYear, 1, i)
End If
Next
ReDim Preserve Weekdays(1 To xIndex)
For i = xIndex To 1 Step - 1
RndIndex = Int(i * Rnd + 1)
Temp = Weekdays(RndIndex)
Weekdays(RndIndex) = Weekdays(i)
Weekdays(i) = Temp
Next
RandomizeDates = Application.WorksheetFunction.Transpose(Weekdays)
End Function
3. Zapisz kod i zamknij okno, aby wrócić do arkusza i wpisz tę formułę= RandomizeDates (2014) do komórki, a następnie naciśnij Wchodzę i przeciągnij uchwyt wypełniania do wymaganego zakresu. Zobacz zrzut ekranu:
Wygeneruj tylko losowy dzień tygodnia lub tylko losowy weekend za pomocą Kutools for Excel
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Wybierz zakres, który chcesz wygenerować w dni powszednie lub weekendy, a następnie kliknij Kutools > Wstaw losowe dane. Zobacz zrzut ekranu:
2. w Wstaw losowe dane dialog, kliknij Data kartę, a następnie przycisk kalendarza aby wybrać datę rozpoczęcia i datę zakończenia, a następnie zaznacz Dzień pracy or Weekend opcję, której potrzebujesz, jeśli chcesz wygenerować unikalną datę, możesz sprawdzić Wyjątkowy opcja. Zobacz zrzut ekranu:
3. kliknij Ok aby zastosować i zamknąć okno dialogowe, w wyborze generowane są unikalne daty weekendów.
Wskazówka: Jeśli możesz wstawiać zduplikowane dane, po prostu odznacz Unikalne wartości w oknie dialogowym
Dzięki funkcji Wstaw losowe dane możesz także losować liczbę całkowitą, czas, ciąg i listę niestandardową. Kliknij tutaj, aby uzyskać więcej informacji.
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!