أبوأحـمـد

المصنف1.xlsx

دالة جمع ناقص 1.xlsx

3.xlsx

دالة جمع ناقص 1.xlsx

=(A1+(60*365.25))-1 باعتبار أن A1 هي 14/4/1943

وعليكم السلام هذه المشكلة تحدث إذا كان التنسيق ليس رقم فرز.xlsx

ما فهمت.. وضح بمثال شفتها بالموضوع الخاص بها بس ما فهمت المطلوب أرجو التوضيح أكثر وذكر أمثلة في موضوعها الخاص بها عملت فقط بند مدة افتراضية ولم أكمل لأن المعادلات ستصبح طويلة بسبب الاشتراطات إذا يقدر أحد من الأعضاء يكمل أو تقتنع بالموجود التعديل كان في ورقة جديدة مدة الخدمة حسم وإضافة (1) (2).xlsx

السبب لأن تعديل في الجدول قبلها مسافة " تعديل"

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

Option Explicit Public ii As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1:c11"), Target) Is Nothing And ii = True And ActiveSheet.ProtectContents = True Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ii = False If Not IsEmpty(Target) Then ii = True End Sub جرب هذا

أخي أرجو مراجعة هذه النقاط : الثبات على ترتيب البنود تاريخ استحقاق المعاش مرة تقول دالة لجمع C2 , C3 ومرة تخليه إدخال يدوي لم تضع مثال على مدة افتراضية (3 سنوات او المدة المكملة ايهما افل) اجمالى مدد الاشتراك (بعد جبر كسر الشهر) هل تريدها أن تتجاوز الأشهر 11 شهر أم تضاف إلى السنة التاريخ الأفضل أن يكون في خلية واحدة لسهولة الكتابة وسهولة التعامل مع دوال التاريخ ، للجمع بين ما تريد وبين الأفضل قمت بتنسيقها بطريقة توحي بأن كل جز في خلية أرجو المراجعة بشكل دقيق واعتماد ما تريد بشكل نهائي مدة الخدمة حسم وإضافة (1) (2).xlsx

تحسب من إجمالي الدرجة =((إجمالي درجة الموظف)/84)*100 مثال موظف حصل على 71 =(71/84)*100 النتيجة 84.52

تم عمل المطلوب حسب ما فهمت آمل المراجعة وإبداء الملاحظات مدة الخدمة حسم وإضافة (1) (2).xlsx

وعليكم السلام جرب الآن Option Explicit Public ii As String Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("C603:j611"), Target) Is Nothing And ii <> "" And ActiveSheet.ProtectContents = True Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Range("C603:j611"), Target) Is Nothing Then ii = Target.Value End Sub

وضح أكثر .. ما المشكلة في الكود؟

أحتاج بعض الإيضاحات

تحت أمرك ولكن حفاظا على قوانين المنتدى افتح موضوع جديد بعنوان حساب استحقاق صرف المعاش

الحالة هذه لازم نحسب الشهر 30 يوما لأن رقم الشهر غير معروف أما إذا أردنا حساب الأيام الفعلية للشهر فلا بد أن يكون لدينا تاريخين مثل لو أردنا حساب مدة خدمة بين 2000/10/08 و 2020/06/20

جرب هذا Sub ExportScreenshot() Dim pic_rng As Range Dim ShTemp As Worksheet Dim wbA As Workbook Dim ChTemp As Chart Dim PicTemp As Picture Dim name_jpg As String Dim strPath As String Dim strPathFile As String Dim myFile As Variant Set ShTemp = ActiveSheet Set wbA = ActiveWorkbook Application.ScreenUpdating = False 'تحديد النطاق المطلوب أخذ صورة له Set pic_rng = ShTemp.Range("D2:AR34") Set ShTemp = Worksheets.Add Charts.Add ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name Set ChTemp = ActiveChart pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture ChTemp.Paste Set PicTemp = Selection With ChTemp.Parent .Width = PicTemp.Width + 800 .Height = PicTemp.Height + 350 End With On Error GoTo errHandler 'الحصول على اسم الصورة من الخلية A1 name_jpg = Range("A1").Value & ".jpg" 'الحصول على مجلد المصنف النشط strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" strPathFile = strPath & name_jpg ' حدد مجلدًا للملف myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="jpg Files (*.jpg), *.jpg", _ Title:="حدد المجلد واسم الملف للحفظ") 'التصدير إلى صورة إذا تم تحديد مجلد If myFile <> "False" Then ChTemp.Export Filename:=myFile, FilterName:="jpg" 'رسالة تأكيد الحفظ مع معلومات الملف MsgBox "تم حفظ الصورة: " _ & vbCrLf _ & myFile End If Application.DisplayAlerts = False ShTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True exitHandler: Exit Sub errHandler: MsgBox "تعذر حفظ الصورة" Resume exitHandler End Sub

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

شوف هذا هل يلبي طلبك؟ مدة الخدمة حسم وإضافة.xlsx

تفضل =IF(AND(A5="طائرة";OR(WEEKDAY(A1)=3;WEEKDAY(A1)=5));"مصرح بالاجازه ";"")

هل تريد الحساب على أساس الشهر 30 يوما أم الحساب على الأيام الفعلية للشهر فبعضها 31 يوم وأخرى 30 و 29 و 28

الكود السابق كما طلبت خاص بالبحث ولعرض الأسماء في القائمة عدل الرقم 2 كما في الصورة حسب احتياجك تأكد نفس التعديل ثلاث أرقام المظللة بالأصفر

السلام عليكم أتمنى من القائمين على هذا المنتدى المبارك إضافة بنود جديد على قواعد المشاركة في الموقع ومنها : 1- عدم طرح سؤال جديد أو طلب جديد من خلال الردود 2- عدم رفع ملفات تحتوي على معلومات لأشخاص حقيقيين خاصة البند الأول أحدهم يسأل في بداية الموضوع عن معادلة جمع A1 مع B1 وفي نهاية الموضع تكون سويت له برنامج محاسبي. أعان الله الجميع ووفقهم أرجو عدم الزعل فنحن إخوان والصراحة بيننا مطلوبة والعتب على قدر المحبة