AbuuAhmed

إذن في حالة الغياب ستبدل "P" بحرف "A" مثلا؟ اقتراحي لا داعي لكتابة "P" للحضور، ولا "V" لعطلة نهاية الأسبوع. أنت تحتاج فقط: كتابة "A" من Absent في حالة الغياب فقط. وكتابة "V" من Vacation في حالة كونه في إجازة. أما عطلة نهاية الأسبوع لا تحتاج إلى كتابة، وعند الرغبة فليكن حرفها "W" من Weekend. ويمكن التحكم عند الكتابة بمنع الإدخال في خانة عطلة نهاية الأسبوع كذلك ومنع إدخال غير الحروف المطلوبة. سؤال آخل ماذا لو عمل الموظف أيام العطل الأسبوعية، هل ستضع له حرفا جديدا أم ستستخدم حرف "P" أيضا؟

أعرف سؤالي قد يكون تطفلا، وما دفعني للسؤال لغرابة الطلب، أنا توقعت ستملأ الخلايا ببيانات متغيرة وليست ثابتة كـ "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