كيف تُنشئ تواريخ عشوائية لأيام الأسبوع أو عطلات نهاية الأسبوع في 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. في مربع حوارإدراج بيانات عشوائية، انقر على علامة التبويبDate، ثم انقر علىزر التقويملاختيار تاريخ البدء وتاريخ الانتهاء المطلوبَين، ثم اختر الخيار الذي تحتاجه: إماWorkdayأوWeekend. وإذا أردت إنشاء تواريخ فريدة، فحدّد خيارUnique. انظر لقطة الشاشة:
3. انقر علىOk لتطبيق الإعدادات وإغلاق مربع الحوار، وبذلك سيتم إنشاء تواريخ فريدة لعطلات نهاية الأسبوع في النطاق المحدد.
ملاحظة:إذا كان مسموحًا لك بإدخال بيانات مكررة، فما عليك سوى إلغاء تحديد خيارUnique Values في مربع الحوار.
باستخدام دالة إدراج بيانات عشوائية، يمكنك أيضًا إنشاء أرقام صحيحة أو أوقات أو سلاسل نصية أو القوائم المخصصة بشكل عشوائي.انقر هنا لمزيد من المعلومات.
مقالات ذات صلة
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل