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 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:
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:
Cynhyrchu dim ond ar hap yn ystod yr wythnos neu benwythnos ar hap yn unig 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 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:
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:
3. Cliciwch Ok i gymhwyso a chau'r ymgom, yna yn y dewis, cynhyrchir y dyddiadau penwythnos unigryw.
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.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!