Hoe genereert u in Excel een willekeurige datum die op een doordeweekse dag of in het weekend valt?
In deze handleiding leest u hoe u in Excel alleen willekeurige doordeweekse dagen of juist alleen willekeurige weekenddagen genereert. Volg de onderstaande stappen voor meer informatie.
Alleen willekeurige doordeweekse dagen genereren in Excel
Alleen willekeurige doordeweekse dagen genereren in Excel
In Excel zijn er twee methoden om willekeurig alleen doordeweekse dagen te genereren in een datumreeks, precies zoals u dat nodig hebt.
Methode 1: willekeurige doordeweekse dag genereren met formule
Selecteer een cel en typ deze formule:=DATUM(2014;1;1)+GROOTSTE(ALS(WEEKDAG(DATUM(2014;1;1)+RIJ($1:$365)-1;2)<6;RIJ($1:$365)-1;„"),ASELECTTUSSEN(1;SOM(--(WEEKDAG(DATUM(2014;1;1)+RIJ($1:$365)-1;2)<6)))). Druk vervolgens tegelijkertijd op Shift + Ctrl + Enter en sleep de vulgreep naar het bereik waarin u doordeweekse dagen wilt genereren. Zie schermafbeelding:
Tip:
1. Als u unieke, willekeurige doordeweekse dagen wilt genereren, gebruikt u deze formule:=DATUM(2014;1;1)+(GROOTSTE(ALS(WEEKDAG((DATUM(2014;1;1)+RIJ($1:$365)-1)*((AANTAL.ALS($A$1:A1;DATUM(2014;1;1)+RIJ($1:$365)-1))=0), 2)<6, RIJ($1:$365)-1, „"), ASELECTTUSSEN(1, SOM(--(WEEKDAG((DATUM(2014,1,1)+RIJ($1:$365)-1)*((AANTAL.ALS($A$1:A1,DATUM(2014,1,1)+RIJ($1:$365)-1))=0),2)<6))))) en vergeet niet op Shift + Ctrl + Enter te drukken.
2. In de bovenstaande formules is 2014-1-1 de startdatum van uw gewenste datumreeks en 365 het aantal dagen in die reeks; u kunt beide naar wens aanpassen.
3. U kunt de formule voor het genereren van unieke willekeurige doordeweekse dagen niet in cel A1 plaatsen.
Methode 2: willekeurige doordeweekse dag binnen een jaar genereren met VBA
Als u doordeweekse dagen binnen een jaar willekeurig wilt maken en bekend bent met VBA, kunt u als volgt te werk gaan:
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande VBA-code in het pop-upvenster.
VBA: Willekeurig doordeweekse dagen binnen een jaar genereren.
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 dit venster om terug te keren naar uw werkblad. Typ vervolgens de formule =RandomizeDates(2014) in een cel, druk op Enter en sleep de vulgreep naar het gewenste bereik. Zie schermafbeelding:
Alleen willekeurige doordeweekse dagen of alleen willekeurige weekenddagen genereren met Kutools voor Excel
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer een bereik waarin u doordeweekse dagen of weekenddata wilt genereren en klik vervolgens op Kutools > Willekeurige gegevens invoegen. Zie schermafbeelding:
2. In het dialoogvenster Willekeurige gegevens invoegen klikt u op het tabblad Datum en vervolgens op de kalenderknop om een startdatum en een einddatum te selecteren. Vink daarna de optie Werkdag of Weekend aan die u nodig hebt. Als u unieke datums wilt genereren, kunt u de optie Uniek aanvinken. Zie schermafbeelding:
3. Klik op OK om toe te passen en het dialoogvenster te sluiten. In de selectie worden nu unieke weekenddata gegenereerd.
Tip: Als u duplicaten mag invoegen, schakelt u gewoon Unieke waarden uit in het dialoogvenster.
Met de functie Willekeurige gegevens invoegen kunt u ook willekeurige gehele getallen, tijden, tekenreeksen en Aangepaste lijsten genereren.Klik hier voor meer informatie.
Gerelateerde artikelen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins