Conas dáta randamach seachtaine nó deireadh seachtaine a ghiniúint in Excel?
Tá an rang teagaisc seo ag caint faoi ghineadh ach laethanta randamacha seachtaine nó dátaí randamacha deireadh seachtaine amháin in Excel, lean na céimeanna thíos chun tuilleadh sonraí a fháil.
Ná gin ach lá randamach seachtaine in Excel
Ná gin ach lá randamach seachtaine in Excel
In Excel, tá dhá mhodh ann a chabhróidh leat randamú a dhéanamh ar laethanta na seachtaine amháin i raon dáta mar a theastaíonn uait.
Gineann Modh 1 lá randamach seachtaine leis an bhfoirmle
Roghnaigh cill agus clóscríobh an fhoirmle seo = DÁTA (2014, 1, 1) + LARGE (IF (SEACHTAINIÚIL (DÁTA (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6, ROW ($ 1: $ 365) -1, "" ), RANDBETWEEN (1, SUM (- (SEACHTAINIÚIL (DÁTA (2014, 1, 1) + ROW ($ 1: $ 365) -1, 2) <6))), ansin brúigh Shift + Ctrl + Iontráil eochracha ag an am céanna, ansin tarraing an láimhseáil líonta chuig raon is mian leat a ghiniúint i rith na seachtaine. Féach an pictiúr:
Leid:
1. Más mian leat laethanta uathúla randamacha seachtaine a ghiniúint, is féidir leat an fhoirmle seo a úsáid =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))))) agus cuimhnigh brú Shift + Ctrl + Iontráil.
2. Sna foirmlí thuas, is é 2014,1,1 dáta tosaigh do raon dáta atá ag teastáil, is é 365 an líon laethanta i do raon dáta, is féidir leat iad a athrú de réir mar is gá duit.
3. Ní féidir leat an fhoirmle a ghineann laethanta randamacha uathúla seachtaine a chur in A1.
Gineann Modh 2 lá randamach seachtaine laistigh de bhliain le VBA
Más mian leat laethanta na seachtaine a randamú laistigh de bhliain agus eolas a bheith agat ar VBA, is féidir leat déanamh mar atá thíos:
1. Brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, ansin greamaigh faoi bhun chód VBA chuig na fuinneoga popping.
VBA: Déan lá na seachtaine a randamú laistigh de bhliain.
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. Sábháil an cód agus dún an fhuinneog chun dul ar ais ar do bhileog oibre, agus clóscríobh an fhoirmle seo= RandomizeDates (2014) isteach i gcill, ansin brúigh Iontráil eochair agus tarraing an láimhseáil líonta chuig raon atá uait. Féach an pictiúr:
Ná gin ach deireadh seachtaine randamach nó deireadh seachtaine randamach amháin le Kutools le haghaidh Excel
Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:
1. Roghnaigh raon is mian leat a ghiniúint i rith na seachtaine nó dátaí deireadh seachtaine, ansin cliceáil Kutools > Cuir isteach Sonraí randamacha. Féach an pictiúr:
2. Sa Cuir isteach Sonraí randamacha dialóg, cliceáil dáta cluaisín, agus ansin cnaipe féilire chun dáta tosaigh agus dáta deiridh a theastaíonn uait a roghnú, ansin seiceáil Workday or Deireadh Seachtaine rogha atá uait, más mian leat dáta uathúil a ghiniúint, is féidir leat seiceáil Uathúil rogha. Féach an pictiúr:
3. cliceáil Ok chun an dialóg a chur i bhfeidhm agus a dhúnadh, ansin sa roghnú, gintear dátaí uathúla an deireadh seachtaine.
Leid: Má cheadaítear duit sonraí dúblacha a chur isteach, ní gá ach dísheiceáil Luachanna Uathúla sa dialóg
Le feidhm sonraí Ionsáigh Randamach, is féidir leat slánuimhir, am, sreang agus liosta saincheaptha a randamú freisin. Cliceáil anseo le haghaidh tuilleadh eolais.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!