أ / محمد صالح

تمت الاستفادة بالدالة المعرفة vba في هذا الموضوع مع بعض التعديلات ليكون ناتجها عدد الأيام فقط بالتوفيق تعديل حاسب عدد الايام فقط بين تاريخين.xlsb

جميعا بإذن الله

وفقنا الله جميعا لكل ما يحبه ويرضاه

يفترض أن هذه خانة تخص التاريخ ما النص ااذي يمكن أن يكتب في خلية تاريخ؟

آمين ولك مثل ما دعوت وزيادة بإذن الله

New Microsoft Access Database.accdb

الشكر لله جميعا بإذن الله خالص دعواتي بالتوفيق

كلما كان المطلوب محددا وفر على الجميع الوقت والجهد تفضل إن شاء اللّه يكون هو المطلوب تم إضافة شيت أكثر تنظيما للملف واستعمال معادلة طويلة نسبيا حتى لا نستعمل أكواد فيجوال بيسك بالتوفيق الرواتب.xlsx

لا تحتاج إلى تغيير في المعادلة تحتاج إلى استعمال حلقة تكرارية for next for i = 10 to 1000 Range("R" & i ) = DateDiff("d", [K4], Range("K" & i )) next i بالتوفيق

جميعا بإذن الله

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

الحل في حذف ما بعد acFormatPDF, وقبل , FALSE او true مع الحفاظ على الفاصلتين بالتوفيق

ما شاء اللّه الأمانة العلمية متوفرة جدا ولكن الحمد لله رغم تأخر نشري لهذا المجهود لي السبق موضوع منتدى الصقر : الدالة المعرفة JoinEA بديل للدالة TEXTJOIN بتاريخ 18-08-2018 10:05 مساء وموضوعي: مكتبة الموقع - بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بواسطة أ / محمد صالح, يناير 26, 2018 ربنا يصلح حالنا جميعا

شكرا للأمانة العلمية في نقل المعادلة المستخدمة هنا منذ أكثر من أربعة أعوام بدون ذكر صاحبها حينما قال صاحب الاستفسار أن المعادلة الأولى لم تعمل قمت بالرد في موضوعي بدائل دالة textjoin حتى يظهر له الحل بطريقة غير مباشرة بالتوفيق 🙄😏

الملف يعمل عندي بصورة طبيعية لذلك يجب التأكد من اختيار منطقة region عربية مثل Arabic(Egypt ) مثلا من لوحة التحكم control panel ---> الساعة والمنطقة clock and region ----> تغيير تنسيق التاريخ والوقت والأرقام change date, time, or number formats بعدها سيعمل بإذن الله بالتوفيق

تفضل إن شاء اللّه يكون المطلوب وتذكر دائما كلما ذكرت جميع التفاصيل حول المطلوب كلما سهلت المهمة على غيرك بالتوفيق البحث عن سعر البيع لكل عميل.xlsm

الحمد لله الذي هدانا لهذا تم استخدام معادلة تؤدي نفس الغرض للاصدارات السابقة بالتوفيق كورسات مقترحة2.xlsx

بعض ما عندكم أستاذ @Ali Mohamed Ali شكرا لمرورك العطر

تفضل أخي الكريم تم وضع معادلة التصفية بشرطين =IFERROR(INDEX(data!B$2:B$19,SMALL(IF(data!$C$2:$C$19="معلم",ROW($1:$18),IF(data!$C$2:$C$19="اداريين وعمال",ROW($1:$18))),ROW()-1)),"") ينبغي الانتباه إلى أنه في حالة تحقق الشرط نستخدم دالة row من 1 إلى عدد الصفوف المستخدمة في البحث ونستعمل في الأخير row - عدد الصفوف فوق صف البداية بالتوفيق التصفية بالمعادلات بشرطين.xlsx

جميعا بإذن الله

يمكنك تغيير هذا السطر Range("H" & lrow).Value = TextBox4.Value إلى التالي If TextBox3 <> 0 Then Range("H" & lrow).Value = TextBox4.Value وهو لوضع الشرط المطلوب بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية F3 =INDEX($H$3:$H$7,MATCH(E3,$G$3:$G$7,0)) مع نسخ المعادلة لأسفل بالتوفيق

بارك الله لك جميعا بإذن الله تعالى

آمين ولك مثل ما دعوت وزيادة بإذن الله

تفضل أخي الكريم يوجد معادلة في عمود 200 ومعادلة أخرى في باقي الأعمدة تم تنسيق الملف بصورة أكثر احترافية تمكن من الطباعة بالتوفيق توزيع المبالغ حسب الفئات المتاحة.xlsx