Hoe een willekeurige weekdag of weekenddatum in Excel te genereren?

Deze tutorial heeft het over het genereren van alleen willekeurige weekdagen of alleen willekeurige weekenddata in Excel, volg onderstaande stappen voor meer details.

Genereer alleen willekeurige weekdagen in Excel

Genereer alleen een willekeurige weekdag of alleen een willekeurig weekend met Kutools voor Excel

Genereer alleen willekeurige weekdagen in Excel

In Excel zijn er twee methoden die u kunnen helpen om alleen weekdagen in een datumbereik willekeurig te verdelen.

Methode 1 genereert een willekeurige weekdag met formule

Selecteer een cel en typ deze formule = DATE (2014, 1, 1) + LARGE (IF (WEEKDAY (DATE (2014; 1, 1)) + ROW ($ 1: $ 365) -1, 2) <6, ROW ($ 1: $ 365) -1, "" ), RANDBETWEEN (1, SUM (- (WEEKDAY (DATE (2014, 1, 1)) + ROW ($ 1: $ 365) -1, 2) <6)))), Druk dan op Shift+Ctrl+Enter toetsen tegelijkertijd en sleep vervolgens de vulgreep naar een bereik dat u doordeweekse dagen wilt genereren. Zie screenshot:

Tip:

1. Als u unieke willekeurige weekdagen wilt genereren, kunt u deze formule gebruiken =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))))) en vergeet niet om op te drukken Shift+Ctrl+Enter.

2. In bovenstaande formules is 2014,1,1 de startdatum van uw benodigde datumbereik, 365 is het aantal dagen in uw datumbereik. U kunt deze naar behoefte wijzigen.

3. U kunt de formule die unieke willekeurige weekdagen genereert niet in A1 plaatsen.

Methode 2 genereert een willekeurige weekdag binnen een jaar met VBA

Als u weekdagen binnen een jaar willekeurig wilt indelen en bekend bent bij VBA, kunt u het volgende doen:

1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Moduleen plak vervolgens de VBA-code in de popping-vensters.

VBA: maak een willekeurige weekdag binnen een jaar willekeurig.

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. Sla de code op en sluit het venster om terug te gaan naar uw werkblad, en typ deze formule= RandomizeDates (2014) in een cel en druk op Enter -toets en sleep de vulgreep naar een bereik dat u nodig hebt. Zie screenshot:

Genereer alleen een willekeurige weekdag of alleen een willekeurig weekend met Kutools voor Excel

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer een bereik waarvoor u weekdagen of weekenddata wilt genereren en klik op Kutools > Voeg willekeurige gegevens in. Zie screenshot:

2. In de Voeg willekeurige gegevens in dialoogvenster, klik Datum tabblad en vervolgens kalender knop om een ​​gewenste startdatum en einddatum te selecteren en vink vervolgens aan Werkdag or Weekend optie die u nodig heeft, als u een unieke datum wilt genereren, kunt u dit controleren Uniek optie. Zie screenshot:

3. klikken Ok om het dialoogvenster toe te passen en te sluiten, worden in de selectie de unieke weekenddata gegenereerd.

Tip: Als u dubbele gegevens mag invoegen, schakelt u het selectievakje uit Unieke waarden in het dialoogvenster

Met de functie Willekeurige gegevens invoegen kunt u ook integer, tijd, tekenreeks en aangepaste lijst willekeurig maken. Klik hier voor meer informatie.