Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i gynhyrchu dyddiad ar hap yn ystod yr wythnos neu ar benwythnosau yn Excel?

Mae'r tiwtorial hwn yn sôn am gynhyrchu dim ond dyddiau wythnos ar hap neu ddim ond dyddiadau penwythnos ar hap yn Excel, dilynwch y camau isod i gael mwy o fanylion.

Cynhyrchu dim ond diwrnod ar hap yn ystod yr wythnos yn Excel

Cynhyrchu dim ond ar hap yn ystod yr wythnos neu ddim ond penwythnos ar hap gyda Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Cynhyrchu dim ond diwrnod ar hap yn ystod yr wythnos yn Excel

Yn Excel, mae dau ddull a all eich helpu i hapio dyddiau'r wythnos yn unig mewn ystod dyddiad yn ôl yr angen.

Dull 1 cynhyrchu ar hap yn ystod yr wythnos gyda fformiwla

Dewiswch gell a theipiwch y fformiwla hon = DYDDIAD (2014, 1, 1) + MWY (IF (WYTHNOS (DYDDIAD (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6, ROW ($ 1: $ 365) -1, "" ), RANDBETWEEN (1, SUM (- (WYTHNOS (DYDDIAD (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6))), yna pwyswch Shift + Ctrl + Enter allweddi ar yr un pryd, yna llusgwch y ddolen llenwi i ystod rydych chi am ei chynhyrchu yn ystod yr wythnos. Gweler y screenshot:
doc-randomoze-wythnos-dydd-penwythnos-1

Tip:

1. Os ydych chi am gynhyrchu dyddiau wythnosol ar hap unigryw, gallwch ddefnyddio'r fformiwla hon =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 chofiwch bwyso Shift + Ctrl + Enter.

2. Yn y fformwlâu uchod, 2014,1,1 yw dyddiad cychwyn eich ystod dyddiad angenrheidiol, 365 yw nifer y diwrnodau yn eich ystod dyddiad, gallwch eu newid yn ôl yr angen.

3. Ni allwch roi'r fformiwla sy'n cynhyrchu diwrnodau wythnos ar hap unigryw yn A1.

Mae Dull 2 ​​yn cynhyrchu diwrnod o'r wythnos ar hap o fewn blwyddyn gyda VBA

Os ydych chi eisiau hapoli dyddiau'r wythnos o fewn blwyddyn ac yn gyfarwydd i VBA, gallwch chi wneud fel isod:

1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, yna pastiwch islaw cod VBA i'r ffenestri popping.

VBA: Ar hap yn ystod yr wythnos o fewn blwyddyn.

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. Cadwch y cod a chau'r ffenestr i fynd yn ôl i'ch taflen waith, a theipio'r fformiwla hon= RandomizeDates (2014) i mewn i gell, yna pwyswch Rhowch allwedd a llusgwch y ddolen llenwi i ystod sydd ei hangen arnoch chi. Gweler y screenshot:
doc-randomoze-wythnos-dydd-penwythnos-2


swigen dde glas saeth Cynhyrchu dim ond ar hap yn ystod yr wythnos neu ddim ond penwythnos ar hap gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Dewiswch ystod rydych chi am ei chynhyrchu yn ystod yr wythnos neu ddyddiadau penwythnos, yna cliciwch Kutools > Mewnosod Data ar Hap. Gweler y screenshot:
doc-randomoze-wythnos-dydd-penwythnos-4

2. Yn y Mewnosod Data ar Hap deialog, cliciwch dyddiad tab, ac yna botwm calendr i ddewis dyddiad cychwyn a dyddiad gorffen rydych chi ei eisiau, yna gwiriwch Diwrnod gwaith or penwythnos opsiwn sydd ei angen arnoch chi, os ydych chi am gynhyrchu dyddiad unigryw, gallwch wirio Unigryw opsiwn. Gweler y screenshot:
doc-randomoze-wythnos-dydd-penwythnos-4

3. Cliciwch Ok i gymhwyso a chau'r ymgom, yna yn y dewis, cynhyrchir y dyddiadau penwythnos unigryw.
doc-randomoze-wythnos-dydd-penwythnos-5

Tip: Os caniateir i chi fewnosod data dyblyg, dad-diciwch Gwerthoedd Unigryw yn y dialog

Gyda swyddogaeth Mewnosod data ar hap, gallwch hefyd hapoli cyfanrif, amser, llinyn a rhestr arferiad. Cliciwch yma am fwy o wybodaeth.



Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.