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
| Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
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 Unique 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.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
