Přejít k hlavnímu obsahu

Jak generovat náhodné datum v pracovní den nebo víkend v aplikaci Excel?

Tento kurz hovoří o generování pouze náhodných dnů v týdnu nebo pouze náhodných víkendových dat v aplikaci Excel. Další podrobnosti získáte podle níže uvedených kroků.

V aplikaci Excel vygenerujte pouze náhodný den v týdnu

Generujte pouze náhodný den v týdnu nebo pouze náhodný víkend s programem Kutools pro Excel dobrý nápad3


šipka modrá pravá bublina V aplikaci Excel vygenerujte pouze náhodný den v týdnu

V aplikaci Excel existují dvě metody, které vám pomohou randomizovat pouze pracovní dny v časovém období podle potřeby.

Metoda 1 vygeneruje náhodný den v týdnu pomocí vzorce

Vyberte buňku a zadejte tento vzorec = 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)))), Poté stiskněte tlačítko Shift + Ctrl + Enter současně přetáhněte úchyt výplně do rozsahu, který chcete generovat v pracovní den. Viz screenshot:
doc-randomoze-všední den-víkend-1

Tip:

1. Chcete-li generovat jedinečné náhodné pracovní dny, můžete použít tento vzorec =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))))) a nezapomeňte stisknout Shift + Ctrl + Enter.

2. Ve výše uvedených vzorcích je 2014,1,1 počátečním datem požadovaného časového období, 365 je počet dní v daném časovém období, můžete je podle potřeby změnit.

3. Nelze vložit vzorec generující jedinečné náhodné dny v týdnu do A1.

Metoda 2 vygeneruje náhodný den v týdnu pomocí VBA

Pokud chcete randomizovat pracovní dny do jednoho roku a znáte VBA, můžete postupovat takto:

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, potom vložte pod kód VBA do vyskakovacích oken.

VBA: Randomizujte všední den do jednoho roku.

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. Uložte kód a zavřete okno, abyste se vrátili zpět do svého listu, a zadejte tento vzorec= RandomizeDates (2014) do buňky a stiskněte vstoupit a přetáhněte rukojeť výplně na požadovaný rozsah. Viz screenshot:
doc-randomoze-všední den-víkend-2


šipka modrá pravá bublina Generujte pouze náhodný den v týdnu nebo pouze náhodný víkend s programem Kutools pro Excel

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte rozsah, který chcete generovat ve všední dny nebo víkendy, a poté klikněte na Kutools > Vložte náhodná data. Viz snímek obrazovky:
doc-randomoze-všední den-víkend-4

2. V Vložte náhodná data dialog, klepněte na tlačítko Datum kartu a poté tlačítko kalendáře vyberte požadované počáteční a konečné datum a poté zaškrtněte Pracovní den or Víkend možnost, kterou potřebujete, pokud chcete vygenerovat jedinečné datum, můžete zkontrolovat Unikátní volba. Viz screenshot:
doc-randomoze-všední den-víkend-4

3. cvaknutí Ok pro použití a zavření dialogového okna se ve výběru vygenerují jedinečná víkendová data.
doc-randomoze-všední den-víkend-5

Tip: Pokud máte povoleno vkládat duplikáty dat, zrušte zaškrtnutí Unikátní hodnoty v dialogu

Pomocí funkce Vložit náhodná data můžete také náhodně vybrat celé číslo, čas, řetězec a vlastní seznam. Klikněte zde pro více informací.


Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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