Ugrás a tartalomra

Hogyan lehet generálni véletlenszerű hétköznapi vagy hétvégi dátumot az Excelben?

Ez az oktatóanyag csak véletlenszerű hétköznapok vagy csak véletlenszerű hétvégi dátumok létrehozásáról szól az Excelben. További részletekért kövesse az alábbi lépéseket.

Csak véletlenszerű hétköznapokat generálhat az Excelben

Csak véletlenszerű hétköznapokat vagy csak véletlenszerű hétvégéket generáljon a Kutools for Excel segítségével jó ötlet3


nyíl kék jobb buborék Csak véletlenszerű hétköznapokat generálhat az Excelben

Az Excel programban kétféle módszer segíthet abban, hogy csak a hétköznapokat randomizálja a kívánt dátumtartományban.

Az 1. módszer véletlenszerű hétköznapot állít elő képlettel

Válasszon egy cellát, és írja be ezt a képletet = DÁTUM (2014, 1, 1) + NAGY (HA (HÉTNAP (DÁTUM (2014, 1, 1) + SOR (1 USD: 365 USD) -1, 2) <6, ROW (1 USD: 365 USD) -1, "" ), RANDBETWEEN (1, SUM (- (WEEKDAY (DATE (2014, 1, 1) + SOR ($ 1: 365 USD) -1, 2) <6)))), Majd nyomja meg a gombot Shift + Ctrl + Enter gombokat egyszerre, majd húzza a kitöltő fogantyút a hétköznap létrehozni kívánt tartományba. Lásd a képernyőképet:
doc-randomoze-hétköznap-hétvége-1

Tipp:

1. Ha egyedi véletlenszerű hétköznapokat szeretne létrehozni, használhatja ezt a képletet =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))))) és ne felejtsd el megnyomni Shift + Ctrl + Enter.

2. A fenti képletekben a 2014,1,1 a szükséges dátumtartomány kezdő dátuma, 365 a dátumtartomány napjai száma, szükség szerint módosíthatja őket.

3. Az egyedi véletlenszerű hétköznapokat generáló képletet nem helyezheti az A1-be.

A 2. módszer véletlenszerű hétköznapokat generál egy éven belül a VBA segítségével

Ha hétköznapokat szeretne véletlenszerűen kiválasztani egy éven belül, és ismeri a VBA-t, akkor az alábbiak szerint járhat el:

1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a felbukkanó ablakokba.

VBA: Véletlenszerű hétköznapok egy éven belül.

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. Mentse el a kódot, és zárja be az ablakot a munkalap visszalépéséhez, és írja be ezt a képletet= RandomizeDates (2014) cellába, majd nyomja meg belép gombot, és húzza a kitöltő fogantyút a kívánt tartományba. Lásd a képernyőképet:
doc-randomoze-hétköznap-hétvége-2


nyíl kék jobb buborék Csak véletlenszerű hétköznapokat vagy csak véletlenszerű hétvégéket generáljon a Kutools for Excel segítségével

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki azt a tartományt, amelyet hétköznap vagy hétvégén szeretne létrehozni, majd kattintson Kutools > Véletlen adatok beillesztése. Lásd a képernyőképet:
doc-randomoze-hétköznap-hétvége-4

2. Ban,-ben Véletlen adatok beillesztése párbeszédpanelen kattintson a gombra találka fülre, majd naptár gomb a kívánt kezdési és befejezési dátum kiválasztásához, majd ellenőrizze Munkanap or hétvége Szüksége van egy opcióra, ha egyedi dátumot szeretne létrehozni, ellenőrizheti Egyedülálló választási lehetőség. Lásd a képernyőképet:
doc-randomoze-hétköznap-hétvége-4

3. kettyenés Ok a párbeszédablak alkalmazásához és bezárásához, majd a kiválasztás során az egyedi hétvégi dátumokat generálja.
doc-randomoze-hétköznap-hétvége-5

Tipp: Ha megengedett duplikált adatok beszúrása, csak törölje a jelölést Egyedi értékek a párbeszédpanelen

A Véletlenszerű adatok beszúrása funkcióval egész számot, időt, karakterláncot és egyéni listát is randomizálhat. Kattintson ide további információért.


A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations