بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
1986Ahmed
-
Posts
5 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه 1986Ahmed
-
-
شكرا لك و لمجهودك
-
يا شباب وينكم رجاء اللي بعرف الحل ما يبخل علي ( يا ريت من دون كودات يعني معادلات و ما بدي ادخل التاريخ عشان ما اعقد الجدول و المعادله ) عشان افهمها
شكرا شباب
-
السلام عليكم
ماشاء الله موقع رائع جدا و التواصل فيه اروع والله يبارك بجميع الاعضاء
انا طلبي انشالله يكون بسيط ( موجود بالمرفق )
و شكرا مقدما لجميع الاساتذه في الموقع
ارجو المساعده في فهم هذا الكود
في منتدى الاكسيل Excel
قام بنشر
بالبدايه السلام عليكم
اخواني انا محاسب و لست مبرمج يا ريت اخواني المبرمجين يساعدوني بهذا الكود شو معناه ليش بضرب و بعطي Erorre ؟؟؟
و شكرا مقدما لكل الاخوان
With sRng.Worksheet
LastRow = .Range("A65536").End(xlUp).Row
If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("C2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt)
If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("C2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt)
End With