Come generare una data della settimana o del fine settimana casuale in Excel?
Questo tutorial parla di generare solo giorni feriali casuali o solo date del fine settimana casuali in Excel, segui i passaggi seguenti per ottenere maggiori dettagli.
Genera solo un giorno feriale casuale in Excel
Genera solo giorni feriali casuali o solo fine settimana casuali con Kutools per Excel
Genera solo un giorno feriale casuale in Excel
In Excel, ci sono due metodi che possono aiutarti a randomizzare solo i giorni della settimana in un intervallo di date di cui hai bisogno.
Il metodo 1 genera un giorno della settimana casuale con la formula
Seleziona una cella e digita questa formula = 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)))), Quindi premere Maiusc + Ctrl + Invio contemporaneamente, quindi trascina la maniglia di riempimento su un intervallo che desideri generare nei giorni feriali. Vedi screenshot:
Mancia:
1. Se desideri generare giorni feriali casuali univoci, puoi utilizzare questa formula =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))))) e ricordati di premere Maiusc + Ctrl + Invio.
2. Nelle formule precedenti, 2014,1,1 è la data di inizio dell'intervallo di date necessario, 365 è il numero di giorni nell'intervallo di date, è possibile modificarli in base alle esigenze.
3. Non è possibile inserire la formula che genera giorni feriali casuali unici in A1.
Il metodo 2 genera un giorno della settimana casuale entro un anno con VBA
Se vuoi randomizzare i giorni della settimana entro un anno e hai familiarità con VBA, puoi fare come di seguito:
1. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, quindi incolla sotto il codice VBA nelle finestre a comparsa.
VBA: randomizza il giorno della settimana entro un anno.
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. Salvare il codice e chiudere la finestra per tornare indietro al foglio di lavoro e digitare questa formula= RandomizeDates (2014) in una cella, quindi premere entrare e trascina la maniglia di riempimento su un intervallo di cui hai bisogno. Vedi screenshot:
Genera solo giorni feriali casuali o solo fine settimana casuali con Kutools per Excel
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. |
Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:
1. Selezionare un intervallo in cui si desidera generare i giorni feriali o le date del fine settimana, quindi fare clic su Kutools > Inserisci dati casuali. Vedi screenshot:
2. Nel Inserisci dati casuali finestra di dialogo, fare clic Data scheda e poi pulsante calendario per selezionare una data di inizio e una data di fine desiderate, quindi seleziona Workday or fine settimana opzione di cui hai bisogno, se vuoi generare una data unica, puoi controllare Unico opzione. Vedi screenshot:
3. Clic Ok per applicare e chiudere la finestra di dialogo, quindi nella selezione vengono generate le date univoche del fine settimana.
Mancia: Se puoi inserire dati duplicati, deseleziona semplicemente Valori unici nella finestra di dialogo
Con la funzione Inserisci dati casuali, puoi anche randomizzare numeri interi, ora, stringhe e elenchi personalizzati. Clicca qui per maggiori informazioni.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!