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

اخواني الكرام: هذه الدالة موجودة هنا وهي من إعداد الاستاذ الكبير عبدالله باقشير وما قمت انا به هو مجر اضافة خيار استثناء التواريخ حسب طلب الاخ هنا عمل الدالة: تقوم الدالة بحساب الفرق بين تاريخين بدون أيام العطل التي يتم اختيارها كما تقوم الدالة بإستثناء التواريخ المحددة بين هذين التاريخين ============================================== بارو مترات الدالة: 1. MyDate_Min ويمثل التاريخ الاصغر 2. MyDate_Max ويمثل الخيار الخاص بالعنصر المراد استخراجه 3. DateExptd ويمثل المدى الذي به التواريخ المستثناه 4. ParamArray My_DayNO() مصفوفة ايام الاجازة بالارقام الدالة عليها وهي كالتالي: 'vbSunday 1 Sunday 'vbMonday 2 Monday 'vbTuesday 3 Tuesday 'vbWednesday 4 Wednesday 'vbThursday 5 Thursday 'vbFriday 6 Friday 'vbSaturday 7 Saturday =KhCountDay(MyDate_Min;MyDate_Max;DateExptd;6;7) حيث يمثل الرقمين 6 و 7 يومي الجمعة والسبت على التوالي ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة عد الايام بين تاريخ دون عطل مع إستثناء تواريخ محددة.rar =============================== ويصبح الشكل النهائي للدالة

مساهمة ممتازة وللفائدة وهناك العديد من دوال التفقيط للاساتذة الكرام اخرها هذه http://www.officena.net/ib/index.php?showtopic=39447 وهنا http://www.officena.net/ib/index.php?showtopic=40647

وضح اكثر وللعلم اذا قمت بنسخ التنسيق الخاص باي خلية فان التنسيق الشرطي يتم نسخه ايضاً

احسنت اخي رجب كنت بحاول في الحل بالاكواد لكن بعد هذا الكود مفيش كلام

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

محاولة ان شاء الله تصيب في قادم الايام

السلام عليكم ان كان كود اخونا ابو حنين يفي بالغرض فهذا اختصار له Private Sub CommandButton1_Click() Range("A1:C100").Copy ورقة2.Cells(1, 1) ورقة2.Select Application.CutCopyMode = False End Sub

اتقدم بالاصالة عن نفسي ونيابة عن جميع الاعضاء بالتهنئة الى الاخ الكريم أبوحنين بمناسبة ترقيته الى عضو مميز وان شاء الله نرى فيه النشاط المعهود دائماً === سينقل الموضوع الى المنتدى الاجتماعي بعد فترة

حياك الله استاذ طارق كفييت ووفيت

للفائدة الباسوورد هي kind

قم بضغط الملف قبل رفعه

عمل مميز ونشاط ملحوظ وابداع متواصل ان شاء الله تستمر على هذا المنوال

السلام عليكم اليك الملف بعد التعديل مساعدة في فاتورة.rar

السلام عليكم نرجو منك اخي الفاضل الاتزام بقواعد المشاركة من حيث عنوان الطلب

السلام عليكم هل المقصود هذا المربع الحواري

ارفق الملف الذي فيه الخطاء

ان شاء الله سأحل ضيفاً عليكم في الاكسس لنقتبس من علمكم

السلام عليكم جرب هذا التعديل Sub fatl() Range("a239:g300").ClearContents x = 8: xx = 239 Do Until Cells(x, 1) = "" If Cells(x, 7) <> 0 And Cells(x, 7) < 50 Then Range(Cells(x, 1), Cells(x, 7)).Copy Range("A" & xx).PasteSpecial Paste:=xlPasteValues xx = xx + 1 End If x = x + 1 Loop Application.CutCopyMode = False End Sub

اخي ارفق ملف

العفو منك استاذ عبدالفتاح ما اجمل تواضع العلماء ان شاء الله نراك كما السابق في قسم الاكسل

السلام عليكم طريقة عرض الموضوع بهذه الطريقة لا تساعد على الاجابة نرجو وضع مرفق للعمل المباشر عليه

اولا الفرق بين التاريخين 01/04/2012 وبين 11/04/2012 هو 10ايام وليس 9 ثانياً اليك هذا المرفق حساب السن في اكتوبر.rar

السلام عليكم شاهد الصور المرفقة

السلام عليكم جرب المرفق بعد التعديل 2.zip

السلام عليكم اخي الكريم لا اجد الوقت الكافي خصوصاً هذه الايام ولكن اليك هذه الروابط ربما تفيدك http://www.officena.net/ib/index.php?showtopic=36524 ========= http://www.officena.net/ib/index.php?showtopic=29935