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 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:
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:
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:
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:
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.
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
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...
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!
