Hvordan genereres tilfældig hverdags- eller weekenddato i Excel?
Denne vejledning taler om at generere kun tilfældige hverdage eller kun tilfældige weekenddatoer i Excel, følg nedenstående trin for at få flere detaljer.
Generer kun tilfældig hverdag i Excel
Generer kun tilfældig hverdag eller kun tilfældig weekend med Kutools til Excel
Generer kun tilfældig hverdag i Excel
I Excel er der to metoder, der kan hjælpe dig med kun at randomisere hverdage i et datointerval, som du har brug for.
Metode 1 genererer tilfældig hverdag med formlen
Vælg en celle, og skriv denne formel = DATO (2014, 1, 1) + STOR (HVIS (UGEDAG (DATO (2014, 1, 1) + RÆD ($ 1: $ 365) -1, 2) <6, RÆD ($ 1: $ 365) -1, "" ), RANDBETWEEN (1, SUM (- (WEEKDAY (DATE (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6)))), Og tryk derefter på Skift + Ctrl + Enter nøgler samtidigt, og træk derefter fyldhåndtaget til et område, du vil generere hverdag. Se skærmbillede:
Tip:
1. Hvis du vil generere unikke tilfældige hverdage, kan du bruge denne formel =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))))) og husk at trykke på Skift + Ctrl + Enter.
2. I ovenstående formler er 2014,1,1 startdatoen for dit nødvendige datointerval, 365 er antallet af dage i dit datointerval, du kan ændre dem efter behov.
3. Du kan ikke placere formlen, der genererer unikke tilfældige hverdage i A1.
Metode 2 genererer tilfældig hverdag inden for et år med VBA
Hvis du vil randomisere hverdage inden for et år og er bekendt med VBA, kan du gøre som nedenfor:
1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt derefter under VBA-koden i pop-up-vinduerne.
VBA: Tilfældig hverdag inden for et år.
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. Gem koden, og luk vinduet for at gå tilbage til dit regneark, og skriv denne formel= RandomizeDates (2014) ind i en celle, og tryk derefter på Indtast tast og træk påfyldningshåndtaget til et område, du har brug for. Se skærmbillede:
Generer kun tilfældig hverdag eller kun tilfældig weekend med Kutools til Excel
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Vælg et interval, du vil generere hverdage eller weekenddatoer, og klik derefter på Kutools > Indsæt tilfældige data. Se skærmbillede:
2. i Indsæt tilfældige data dialog, klik Dato fanen og derefter kalenderknap for at vælge en startdato og slutdato, du ønsker, og tjek derefter arbejdsdagen or Weekend mulighed, du har brug for, hvis du vil generere en unik dato, kan du kontrollere Enestående mulighed. Se skærmbillede:
3. klik Ok for at anvende og lukke dialogen, så i markeringen genereres de unikke weekenddatoer.
Tip: Hvis du har lov til at indsætte duplikatdata, skal du bare fjerne markeringen Unikke værdier i dialogen
Med Indsæt tilfældig datafunktion kan du også randomisere heltal, tid, streng og brugerdefineret liste. Klik her for mere information.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!