כיצד ליצור תאריך אקראי של יום חול או סוף שבוע ב-Excel?

המדריך הזה מדבר על יצירת תאריכי ימי חול אקראיים בלבד או תאריכי סופי שבוע אקראיים בלבד ב-Excel, עקוב אחר השלבים הבאים כדי לקבל פרטים נוספים.

צור רק יום חול אקראי ב-Excel

צור רק יום חול אקראי או רק סוף שבוע אקראי עם Kutools עבור Excel

צור רק יום חול אקראי ב-Excel

ב-Excel, ישנן שתי שיטות שיכולות לעזור לך להגריל רק ימי חול בטווח תאריכים לפי הצורך שלך.

שיטה 1: יצירת יום חול אקראי עם נוסחה

בחר תא והקלד את הנוסחה הזו =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)))), ואז לחץ על המקשים Shift + Ctrl + Enter בו זמנית, ולאחר מכן גרור את הידית למילוי לטווח שבו ברצונך ליצור ימי חול. ראה צילום מסך:

עצה:

1. אם ברצונך ליצור ימי חול אקראיים ייחודיים, תוכל להשתמש בנוסחה =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))))) וזכור ללחוץ Shift + Ctrl + Enter.

2. בנוסחאות לעיל, 2014,1,1 הוא תאריך ההתחלה של טווח התאריכים שאתה צריך, 365 הוא מספר הימים בטווח התאריכים שלך, אתה יכול לשנות אותם לפי הצורך.

3. אסור לך להכניס את הנוסחה שיוצרת ימי חול אקראיים ייחודיים לתא A1.

שיטה 2: יצירת יום חול אקראי בתוך שנה עם VBA

אם ברצונך להגריל ימי חול בתוך שנה ואתה מכיר את VBA, תוכל לפעול כך:

1. לחץ על המקשים Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. לחץ על Insert > Module, ואז הדבק את קוד ה-VBA הבא לחלון שנפתח.

VBA: הגרלת יום חול בתוך שנה.

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. שמור את הקוד וסגור את החלון כדי לחזור לגיליון העבודה שלך, והקלד את הנוסחה הבאה=RandomizeDates(2014) בתוך תא, לאחר מכן לחץ על המקש Enter וגרור את הידית למילוי לטווח שאתה זקוק לו. ראה צילום מסך:

צור רק יום חול אקראי או רק סוף שבוע אקראי עם Kutools עבור Excel

לאחר התקנת Kutools עבור Excel בחינם, אנא פעל כך:

1. בחר טווח שבו ברצונך ליצור תאריכי ימי חול או סופי שבוע, ולאחר מכן לחץ על Kutools > הוסף נתונים אקראיים. ראה צילום מסך:

2. ב הוסף נתונים אקראיים תיבת הדו-שיח, לחץ על תאריך לשונית, ולאחר מכן כפתור לוח השנה כדי לבחור תאריך התחלה ותאריך סיום שאתה רוצה, ולאחר מכן סמן את האפשרות יום עבודה או סוף שבוע את האפשרות שאתה זקוק לה, אם ברצונך ליצור תאריך ייחודי, תוכל לסמן את האפשרות ייחודי . ראה צילום מסך:

3. לחץ על אישור כדי ליישם ולסגור את תיבת הדו-שיח, ולאחר מכן בהבחירה, תאריכי סוף השבוע הייחודיים נוצרו.

עצה: אם מותר לך להכניס נתונים כפולים, פשוט בטל את הסימון על ערכים ייחודיים בתיבת הדו-שיח.

עם הפונקציה הוספת נתונים אקראיים, תוכל גם להגריל מספרים שלמים, זמן, מחרוזות ורשימות מותאמות אישית. לחץ כאן למידע נוסף.

מאמרים קשורים

• מספר אקראי ללא כפילויות ב-Excel
• מספר עשרוני או שלם אקראי ב-Excel