AbuuAhmed

إذن في حالة الغياب ستبدل "P" بحرف "A" مثلا؟

اقتراحي لا داعي لكتابة "P" للحضور، ولا "V" لعطلة نهاية الأسبوع.
أنت تحتاج فقط:
كتابة "A" من Absent في حالة الغياب فقط.
وكتابة "V" من Vacation في حالة كونه في إجازة.

أما عطلة نهاية الأسبوع لا تحتاج إلى كتابة، وعند الرغبة فليكن حرفها "W" من Weekend.
ويمكن التحكم عند الكتابة بمنع الإدخال في خانة عطلة نهاية الأسبوع كذلك ومنع إدخال غير الحروف المطلوبة.

سؤال آخل ماذا لو عمل الموظف أيام العطل الأسبوعية، هل ستضع له حرفا جديدا أم ستستخدم حرف "P" أيضا؟
 

في 24‏/12‏/2023 at 10:51, abdelfattahbadawy said:

كود إذا وجد يوم الجمعة يقوم بتلوين أسفله بحسب عدد الأسماء الموجود فى العمود B ويتم وضع حرف V فى العمود و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 أبعاد، ولا أعرف إذا يتكيف مع طلبك أو لا.
سأبحث عنه وإن وجدته صالحا لطلبك سأرسله لك على الخاص لأني لا أعرف هل بعض المعلومات التي به تعتبر من أسرار العمل لدى المصنع أو لا.
سأرجع لك ولك قد أتأخر عليك.

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

23 ساعات مضت, ahmad5544 said:

SendKeys "^f", True

أضف هذه الدالة إلى الوحدة النمطية (المديول):
 

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 ساعات مضت, mtgtrs said:

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

4 سنوات 0 شهور 0 ايام - 3 سنوات 12 شهر 20 وم

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

يحتاج إلى فحص النتائج أكثر منكم.

الترقيات بالمدد الهجرية_02.xlsm

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

الترقيات بالمدد الهجرية_01.xlsm

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

Days2yymmdd_02.xlsx

14 ساعات مضت, ابو جودي said:

نظرا لوجود بعض المشاكل التقنية رد الاستاذ الفاضل @AbuuAhmed جزاه الله خيرا هو 

"يجب ان يتم الموافقه علي هذا المحتوي قبل نشره.

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

هل قمتم بحظري رفع المرفقات؟؟!!
آمل أن لا تحذفوا مشاركتي هذه.

جرب محاولتي

Days2yymmdd_01.xlsx

14 دقائق مضت, kkhalifa1960 said:

مكن تسامحني لأني توني راجع من مصر بعد إجراء عمليات جراحية ومابقدر أركز وأمحص بسبب تأثير عمليات عيني

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

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

7 ساعات مضت, kkhalifa1960 said:

هذه محاولتي .

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

5 دقائق مضت, Moosak said:

ليش ؟

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

22 دقائق مضت, Moosak said:

جرب هذا 🙂 :

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

في 14‏/1‏/2019 at 22:24, محمد احمد لطفى said:

T = Replace(T, "ي ", "ى ")

جرب هذه
 

T = RTrim(Replace(T & " ", "ي ", "ى "))

جرب هذا الحل

Courses_01.accdb

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

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

Hijri2Gregorian_01.xlsm