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 for 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 for Excel
| Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools for Excel, doe dan 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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab 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 honderden muisklikken voor u elke dag!
