أبو سجده

السلام عليكم ورجمة الله وبركاته وجزاكم الله تعالى خير الجزاء وبارك فيكم جميعا نطمع من حضراتكم فى إيجاد حل لهذا الموضوع بإستخدام كود VBA أو دالة معرفة UDF Function حيث يحتوى المرفق على خليتين أحدهما لتاريخ بداية والأخرى لتاريخ نهاية علما بأنه سيتم تسجيل هذين التاريخين يدويا والسؤال كيف يمكن إنشاء قائمة بتسلسل الأيام وبدون أيام الجمعة والسبت من تاريخ بداية إلى تاريخ نهاية حسب مقتضيات العمل برجاء الإطلاع على العينة المرفقة والله الموفق وجزاكم الله خيرا تسلسل الأيام بدون أيام الجمعة والسبت.xlsm

صباح الخيرات ***** نعم هذا ما أعنيه تماما وسيتم طرح موضوع بحول الله تعالى بشأن هذا ولكن بعد عودتى من العمل إن قدر الله تعالى ذلك وافر التحية والتقدير

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

أخى محمد جزاكم الله خيرا وبارك فيكم مقصود حديثى السايق هو أننى أريد عمل قائمة بحيث عند إختيار أى شهر من شهور السنة يتم إنشاء قائمة بكامل الشهر من بدايته حتى نهايته بأيام الجمع والسبت " ترتيب الأيام الطبيعى " على سبيل المثال يناير 2024 بدايته 2024/1/1 الموافق يوم الإثنين وينتهى فى 2024/12/31 الموافق يوم الأربعاء ثم يليه شهر فبراير بدايته 2024/2/1 الموافق يوم الخميس وينتهى فى 2024/2/29 الموافق يوم الخميس وهكذا لباقى الشهور على أن يشمل كامل الأيام ( بأيام الجمعة والسبت ) برجاء الإطلاع وجزاكم الله خيرا ادراج أيام الشهر كاملا.xlsm

أخى محمد / ببساطة شديدة على نفس الملف وبذات القائمة فى ال M2 ولكن على كامل الشهر دون إستثناء يومى الجمعة والسبت مثال على ذلك بداية أكتوبر الثلاثاء الموافق 2024/10/1 وينتهى فى الخميس الموافق 2024/10/31 وهكذا شكرا لإهتمامك وجزاكم الله جميعا أنت وأخى عبدالله بشير خير الجزاء

السلام عليكم ورحمة الله وبركاته أخى محمد وعبدالله تمت الإفادة بفضل الله أولا ثم بفضلكم وافر التحية والتقدير

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

السلام عليكم ورحمة الله وبركاته عندما ينشر مستخدمو Loungers ملفًا مثل مستند Word أو مصنف Excel يحتوي على كود VBA غالبًا ما ألاحظ عدم وجود سطر Option Explicit في الجزء العلوي من وحدات الكود في هذا المنشور الطويل سأحاول شرح سبب وجود مثل هذا السطر وكيف يمكنك إضافته تلقائيًا إلى وحدات نمطية جديدة يحدد السطر "Option Explicit" لأنه يجب عليك الإعلان صراحةً عن جميع المتغيرات التي تستخدمها داخل الوحدة النمطية عند ترميز الأكواد إذا لم يكن لديك هذا السطر في الجزء العلوي من الوحدة فيمكنك إنشاء متغيرات "أثناء التنقل" عن طريق ذكرها ببساطة في الكود الخاص بك. قد يبدو هذا مفيدًا في البداية، ولكنه أمر خطير لأن الخطأ المطبعي الصغير يعني أنك تقوم بإنشاء متغير جديد ولن يتم تحذيرك بشأن هذا مجرد معلومة والله الموفق وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته لقد ساعدنى أخى وأستاذى الفاضل / محمد هشام فى هذا الموضوع لكن للأسف الملف لا يعمل معى ربما لإختلاف الإصدارين الذى نعمل عليهما فأننى أستخدم إصدار 2010 وللأمانه كانت ردودى على الموضوع من خلال الصور التى شاركنى فيها أخى محمد لهذا أطلب مد يد العون مرة أخرى لتحقيق هذا الموضوع ربما بإستخدام كود vba أو ربما بإستخدام UDF Function لقد قمت بتحديث الملف الذى يحاكى الملف الأصلى ****** برجاء الإطلاع وجزاكم الله خيراً أيام الشهر من يوم محدد - vba.xlsm

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

جزاكم الله خيرا أخى محمد بمراجعة ما تفضلت به تبين أن هناك بعض الشهور لم تبدأ بيوم الأحد مثالا على ذلك 1/1/2025 يبدأ بيوم الأربعاء فهل من سبيل أخر

أخى واستاذى الفاضل / محمد هشام السلام عليكم ورحمة الله وبركاته عند تغير اى شهر أتلقى رسالة مفادها " لا يمكنك تغيير جزء من المصفوفة " فهل من سبيل أخر بواسطة ال VBA **** ببساطة أريد أن يبدأ كل شهر من يوم الأجد مع تجاهل يومى الجمعة والسبت على إعتبار أنهما أجازة " عطله رسمية " ويمكنك تحديد تاريخ بداية ونهاية كقائمة وليكن من 1/9/2024 حتى 30/6/2025 فربما لديك حل أخر وافر التحية والتقدير وجزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاته طبتم جميعا بكل خير أينما كنتم أرغب فى مساعدتكم فى هذا الموضوع فربما أجد حلاً على أيديكم الكريمة كيف يمكن عمل قائمة بأيام الشهر تبدأ من يوم الأحد وحتى يوم الخميس من كل أسبوع بإستثناء يومى الجمعة والسبت على إعتبار أنهما عطلة من كل أسبوع بمعنى أخر عند تغيير شهر الإدخال بالخلية C2 إلى شهر جديد وليكن نوفمبر 2024 أريد أن يبدأ هذا الشهر من يوم الأحد الى الخميس حتى نهايته وهكذا مع باقى شهور العام ***** فهل يمكن تحقيق ذلك أرجو أن يكون ذلك منطقيا ***** برجاء الإطلاع على المرفق وجزاكم الله خيرا أيام الشهر من يوم محدد.xlsx

الله أكبر وتحيا المغرب وتحيا مصر نديها فنجاااااااان بن محوج يعجز لسانى عن مدى شكرى وإمتنانى العميق لشخصكم الطيب تمت الإفادة بحول الله تعالى بارك الله فيكم وفى والديكم وجزاكم الله خيرا

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

نعم أخى محمد هذا ما أقصده هناك نقطة أخيرة فى هذا الموضوع إن لم أكن مزعجاً ***** ولسنا فى عجلة من أمرنا لأنه ربما تستغرق هذة النقطة الكثير من وقتكم الثمين لتعديلها تتمثل هذة النقطة فى كيف يمكن تغيير اللغة الإنجليزية إلى اللغة العربية كما نقول باللغة العربية على سبيل المثال ومن اليمين إلى اليسار 5 سنوات و 3 شهور و 18 يوم أو ربما يوجد كود لتفقيط عدد السنوات والشهور والأيام كقولنا **** خمسة سنوات وثلاثة أشهر وثمانية عشر يوما أم تعدو هذه النقطة حُلما لى **** أرجو الإفادة وإن لم يكن أخى وحبيبى فى الله محمد فقد وفيت وكفيت وعشت وعاش المغرب الحبيب وعاشت مصر الحبيبة

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

والله رائع جدا جدا أخى الكريم الفاضل / محمد هشام كود ولا أروع ***** بارك الله فيكم وجزاكم الله خيرا

للرفع

السلام عليكم ورحمة الله وبركاته فى الملف المرفق ثلاثة دلات معرفة بإستخدام ال VBA لحساب الفرق بين تاريخين على هذا النحو لحساب فرق عدد الأيام Option Explicit Function CalcAged(vDate1 As Date, vdate2 As Date) As String Dim vMonths Dim vDays Dim vYears vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAged = vDays End Function ولحساب فرق عدد الشهور Function CalcAgem(vDate1 As Date, vdate2 As Date) As String Dim vMonths Dim vDays Dim vYears vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgem = vMonths End Function ولحساب عدد السنوات Function CalcAgey(vDate1 As Date, vdate2 As Date) As String Dim vMonths Dim vDays Dim vYears vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgey = vYears End Function المشكلة التى أواجهها هى عدم تمكنى من تعديل هذه الدالة لحساب عدد السنوات والشهور معا فكيف يمكن تحقيق ذلك فربما يكون هناك ما أغفوا عنه ****** لذا نرجو مساهمة حضراتكم مع الإطلاع على المرفق لمعرفة ما أعنيه ***** شكرا مقدما لحضراتكم وجزاكم الله خيرا حساب الفرق بين تاريخين.xlsm

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

استاذى الفاضل / محمد هشام بارك الله فيكم **** ماذا لو أردنا حساب العمر بالسنوات نرجو إضافة حاله أخرى لتحقيق ذلك بالدالة المعرفة وبالمعادلات شكرا وجزاكم الله خيرا

هذه المعادلة لكنها طويلة جدا =IF(MONTH(A2)>=MONTH($B$2);IF(C2>(DATEDIF(B2;A2;"ym")+1)*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2)>0;C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);""));"") وعليه إقترحت صياغة دالة معرفة إن أمكن ذلك **** أرجو الإفادة وجزاكم الله خيرا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته فى الخليةB2 جملة مبلغ هذا المبلغ لا يجوز خصم منه أكثر من 25% من صافى المستحق فى الخلية L2 وهذا ماحققته المعادلة الموضحة بالخلية F2 هروبا من المرجع الدائرى سؤالى هو كيف يمكن تعديل تلك المعادلة لخصم نسبة الــ 25% بداية من الشهر القادم بمعنى عند تغير التاريخ تلقائيا بالخلية A2 الى بداية سبتمبر 2021 يكون الخصم هو 2032.02 ومع تغير التاريخ الى بداية أكتوبر 2021 يصبح الخصم هو 165.25 ومع تغير التاريخ الى بداية نوفمبر 2021 تصبح نتيجة الخلية فراغ برجاء الإطلاع على المرفق التالى والإفادة بإذن الله تعالى ***** شاكر لحضراتكم لطيب المساهمة وجزاكم الله خيرا خصم لا يزيد عن 25 فى المائة.xlsx