AbuuAhmed

أعرف سؤالي قد يكون تطفلا، وما دفعني للسؤال لغرابة الطلب، أنا توقعت ستملأ الخلايا ببيانات متغيرة وليست ثابتة كـ "V" و "P". ربما لو توضح لنا الهدف اختصرنا لك كل هالتصميم والكود بدالة صغيرة من خمسة سطور تعطيك المعلومة المطلوبة بسهولة.

آسف ما كنت مركز على المطلوب تماما، كان تركيزي منصب على التنسيق الشرطي 🙂 حضور وإنصراف_03.xlsb

استخدم زر "التنسيق الشرطي" في صفحة "Support" حضور وإنصراف_02.xlsb

الكود: Sheets("Base").Select Range("D7:AH15").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=WEEKDAY(D$6)=" & vbFriday Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent2 .TintAndShade = 0.399945066682943 End With Selection.FormatConditions(1).StopIfTrue = False MsgBox "Done"

حسب طلبك حضور وإنصراف_01.xlsb

محاولة باستخدام العرض فقط. ما دور الارتفاع في المعادلات؟ أنا عملت محاولتي حسب ما فهمته، في انتظار تعليقلك على المحاولة. لا تشغل نفسك في الشكل وعدد الأعمدة، ركز فقط على الجواب. need help_01.xlsx

للأسف الملف لا يناسب مطلبك، هل يمكنك وضع إجابتين مفترضتين أو ثلاث تنفعنا فب المحاولات والمقارنة؟

ذكرتني بملف عملته لأحد المصانع ولكنه لحساب "الهدر" كما تسميه لكتل أو بلوكات ذات 3 أبعاد، ولا أعرف إذا يتكيف مع طلبك أو لا. سأبحث عنه وإن وجدته صالحا لطلبك سأرسله لك على الخاص لأني لا أعرف هل بعض المعلومات التي به تعتبر من أسرار العمل لدى المصنع أو لا. سأرجع لك ولك قد أتأخر عليك.

جرب تنشئ موديول جديد ثم الصق الدالة به. وإذا تقدر ترفع ملفك يستطيعون الزملاء مساعدتك بشكل سريع.

أضف هذه الدالة إلى الوحدة النمطية (المديول): Sub mySendKeys(String_ As String, Optional Wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys String_, Wait Set WshShell = Nothing End Sub ليصبح الأمر أعلاه كالتالي: mySendKeys "^f", True

اعذرني، أنا فهمي ثقيل حبتين. اللي فهمته من سؤالك أنك تريد الحصول على ناتج الفرق بالسنوات والشهور والأيام وهذا ما فعلته أنا، ولكن يبدو أنك تريد معرفة طريقة الطرح العادية بين فترتين. لقد عملت لك طريقة طرح كما تعلمناها في دراستنا الإبتدائية بأن نستلف شهر عند الحاجة لنضيفه على الأيام ونستف سنة عند الحاجة لنضيفها على الشهور. وهناك ملاحظة أخي، فترة 3 سنة 12 شهر 20 يوم، هذا التوزيع خاطئ، يفترض الشهور لا تزيد عن 11 وإذا أصبحت 12 ترحل إلى السنوات بمعنى يجب أن تكون 4 سنة 0 شهر 20 يوم. موفق أخي. يحتاج إلى فحص النتائج أكثر منكم. الترقيات بالمدد الهجرية_02.xlsm

جرب محاولتي لقد قمت بإضافة عمود باسم "شهور" لتسهيل العمليات المحاسبية. الترقيات بالمدد الهجرية_01.xlsm

محاولة أدق، نسبة دقتها لا تقل عن 99.9% Days2yymmdd_02.xlsx

"يجب ان يتم الموافقه علي هذا المحتوي قبل نشره. بسبب التحذير الذي حصلت عليه فان هذا المحتوي سيظل مخفي لحين الموافقه عليه . سيتم انهاء قيود المشاركه في أكتوبر 15, 2023." هل قمتم بحظري رفع المرفقات؟؟!! آمل أن لا تحذفوا مشاركتي هذه.

جرب محاولتي Days2yymmdd_01.xlsx

أجر وعافية أخي والحمد لله على السلامة. لا داعي للإعتذار ، أنت حر فيما تقوم به وأنا لست وصيا عليك، سؤالي لأنك قمت بعمل قد نوهنا على عدم جدواه سابقا ولو أنك انتبهت عليه لوفرت على نفسك الجهد وأرحت عينيك من الإجهاد. تحياتي لكم وأمنياتي لكم بالشفاء العاجل.

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

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

جرب، أنا الآن أكتب من ذاكرتي، وقد مررنا بتجارب عديدة وعرفنا أمورا كثيرة بالتجارب، منها عملية الإنشاء أو التعديل على النماذج أو التقارير، لا تنسى أتحدث عن صيغة mde وليس mdb.

فكرة ذكية، أما الإنشاء مع صيغة mde لن تعمل كما أعتقد.

جرب هذه T = RTrim(Replace(T & " ", "ي ", "ى "))

جرب هذا الحل Courses_01.accdb

أقوم باسخراج الرقم التسلسلي للتاريخ الهجري بعد تبديل نوع التقويم إلى الهجري، ثم أضيفه في خانة الميلادي (كرقم تسلسلي)، وتنسيق الخلية هو من يظهره كتاريخ. يعني لا بد من تنسيق خلايا التاريخ الميلادي كتاريخ.

جرب، علما لم أعمل أي احترازات في حالة وجود أخطاء إدخال. Hijri2Gregorian_01.xlsm

الحقيقة الهدف غير واضح، ولكن المساهمات بناء على طلب السائل. كثير من الدول تفرض هذا القانون على محاسبي الرواتب، وكل عملياتهم في الأجر اليومي هو تقسيم الراتب على 30 يوم. وإلى هنا لا مشكلة ولكن عند حساب أيام الحضور والغياب للشهور التي أيامها لا تساوي 30 يوم تبدأ المشكلات/المشاكل مع المحاسبين ومع الموظفين. أنا كنت أحلها أيام الشباب بإظهار الأيام الفعلية للغياب والحضور وأجرها يكون مضروبا بناتج قسمة الراتب على مدة الشهر الفعلية. وإذا هذا الحل فيه تجاوز "قانوني" أو إداري فالحل هو الدالة التي قدمتها وهو حساب الأيام بالكسور، ويمكن تفادي ظهور الأيام بالكسور بإظهارها مجبورة ولكن أجرها يجب أن يكون حسب الأيام قبل الجبر. وهناك حل آخر صعب الهضم ويصعب اقناع الإدارات فيه ويصعب تفهيم الموظفين الكبار فيه قبل الصغار وعليه لا داعي لطرحه. من الحلول كذلك هو (ولكن الحل أعلاه أفضل) العمل على الأيام الأقل، أي نقارن بين غياب وحضور الموظف فأيهما أقل نعتمده ثم نطرحه من 30 والناتج للمقابل. أي لو شهر مدته 29 يوم وعمل موظف 14 يوم وغاب 15 يوم فنعتمد 14 يوم عمل ونحسب غيابه 16 يوم. والعكس صحيح. أي لو غاب 14 يوم وعمل 15 يوم سنعتمد 14 يوم غياب ونحسب عمله 16 يوم.