salimhebboul قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 تاريخ عشوائي بشرط 103.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 جرب هذا الماكرو Option Explicit Option Base 1 Sub rand_date() Dim my_date Dim t Dim arr arr = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") 1: my_date = Application.Min([d3], [d5]) - 400 _ + Int(Rnd() * 400) + 1 t = Weekday(my_date) If t > 5 Then GoTo 1 End If Range("f3") = my_date Range("g3") = arr(t) Erase arr End Sub الملف 103_سليم.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 جزاك الله كل خير استاذ سليم كود رائع رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 بارك الله فيك استاذى الكريم ولكنى اعتقد ان الأخ صاحب المشاركة يريد توليد تاريخ عشوائى بشرط الا يقل عن التاريخ الأول والثانى ولا يزيد او يتجاوز تاريخ اليوم فكود حضرتك يتم جلب تاريخ اقل من التاريخ الول والثانى يمكن لحضرتك مراجعة الكود لو تفضلت علينا حضرتك 1 رابط هذا التعليق شارك More sharing options...
salimhebboul قام بنشر ديسمبر 24, 2018 الكاتب مشاركة قام بنشر ديسمبر 24, 2018 (معدل) التاريخ هنا في 2017 و انا اريد ان يكون بعد اقرب تاريخ تم تعديل ديسمبر 24, 2018 بواسطه salimhebboul رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 تم معالجة الامر في هذا الملف الجديد (يوجد معادلة ايضاً) Option Explicit Option Base 1 Sub random_date() Dim my_date Dim t Dim arr Dim val% arr = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") 1: val = Application.Max([d3], [d5]) - Application.Min([d3], [d5]) my_date = Application.Max([d3], [d5]) - Int(Rnd() * val + 1) t = Weekday(my_date) If t > 5 Then GoTo 1 End If Range("f3") = my_date Range("g3") = arr(t) Erase arr End Sub 103_ salim .xlsm رابط هذا التعليق شارك More sharing options...
salimhebboul قام بنشر ديسمبر 24, 2018 الكاتب مشاركة قام بنشر ديسمبر 24, 2018 التاريخ هنا تجاوز التاريخ الثاني يجب ان يكون بين اقرب تاريخ وتاريخ اليوم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 من المعروف ان اقرب تاريخ من تاريخ اليوم هو التاريخ الثاتي رابط هذا التعليق شارك More sharing options...
salimhebboul قام بنشر ديسمبر 24, 2018 الكاتب مشاركة قام بنشر ديسمبر 24, 2018 نعم هو اقرب تاريخ 20/09/2018 و الكود قام باستخراج تاريخ قبله 22/05/2018 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 24, 2018 مشاركة قام بنشر ديسمبر 24, 2018 12 دقائق مضت, salimhebboul said: نعم هو اقرب تاريخ 20/09/2018 و الكود قام باستخراج تاريخ قبله 22/05/2018 و ما الفائدة من هذا ادرح فوراً التاريخ الثاني وانتهى الامر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان