انشاء دالة خاصة لعرض اكبر واصغر تاريخ في VBA

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة

اخواني الاعزاء بعد تعب ومحاولات بات بالفشل ارجو المساعدة في انشاء دالة خاصة Function لتعرض اكبر تاريخ واصغر تاريخ موجود في عمود , ليتم عرض في نموذج USERFORM

طبعا يكون التاريخ بالهجري وفي حالة كان العمود فارغ يكو قيمة ( اصغر تاريخ هو 1420/01/01) ويكون قيمة ( اكبر تاريخ هو 1450/01/01 )

في الملف المرفق شرح اكثر

ارجو المساعدة ولكم جزيل الشكر والامتنان

300.rar

[أبو حنــــين]

تستطيع استعمال الكود التالي

Private Sub CommandButton1_Click()

Range("G1") = Application.WorksheetFunction.Max(Range("C:C"))

End Sub

Private Sub CommandButton2_Click()

Range("G2") = Application.WorksheetFunction.Min(Range("C:C"))

End Sub

أو استعمال الكود التالي

Private Sub CommandButton3_Click()

Calendar = vbCalHijri

TextBox1 = Application.WorksheetFunction.Max(Range("C:C"))

TextBox2 = Application.WorksheetFunction.Min(Range("C:C"))

TextBox1 = Format(TextBox1, "yyyy-mm-dd")

TextBox2 = Format(TextBox2, "yyyy-mm-dd")

End Sub

[عبدالله المجرب]

السلام عليكم

ضع هذا في حدث الفورم

Private Sub UserForm_Activate()

Calendar = vbCalHijri

If Application.CountA(Range("C6:C10000")) = 0 Then

TextBox1 = Format(DateValue("01/01/1420"), "yyyy/mm/dd")

TextBox2 = Format(DateValue("01/01/1450"), "yyyy/mm/dd")

Exit Sub

End If

TextBox1 = Format(Application.Max(Range("C:C")), "yyyy/mm/dd")

TextBox2 = Format(Application.Min(Range("C:C")), "yyyy/mm/dd")

End Sub

[ماجدجلال]

السلام عليكم ورحمة الله

شكرا جزيلا لكم

[ماجدجلال]

السلام عليكم

تعديل بسيط في النموذج

رغبت في انشاء متغيران عامان يمكن استخدمهما في البرنامج , اعلنت عنهما علي اساس متغير DATE ومرة متغير STRING ولكن الامر لم ينجح ,

التعديل ان المستخدم يقوم بتسجيل تاريخ هجري في مربع نص يقوم البرنامج بتاكد ان التاريخ المسجل ليس اكبر من اكبر تاريخ موجود او اصغر من اصغر تاريخ موجود وتظهر رسالة بذلك

350.zip