Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

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 dobry pomysł 3


strzałka niebieski prawy bąbelek 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:
doc-randomoze-weekend-weekend-1

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 wchodzić i przeciągnij uchwyt wypełniania do wymaganego zakresu. Zobacz zrzut ekranu:
doc-randomoze-weekend-weekend-2


strzałka niebieski prawy bąbelek 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:
doc-randomoze-weekend-weekend-4

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:
doc-randomoze-weekend-weekend-4

3. kliknij Ok aby zastosować i zamknąć okno dialogowe, w wyborze generowane są unikalne daty weekendów.
doc-randomoze-weekend-weekend-5

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

Kutools for Excel rozwiązuje większość twoich problemów i zwiększa wydajność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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 zmniejsza setki kliknięć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.