الشافعي

الف شكر استاذ عبدالله وجزاك الله الف خير

وربنا يجعله في ميزان حسانتك 

للرفع

للرفع

للرررفع

السلام عليكم 

اولاً شكرا علي مساعدتكم الدائمة 

اذا تكرمتوا احتاج دالة تضع المبلغ أمام كل مدة بشرط المدة أمام كل مبلغ 

مرفق ملف أكسيل 

‎⁨نسخة aaaa⁩.xlsx

شكرا لك استاذ محمد هشام على مجهودك 

والله يجعله في ميزان حسناتك 

السلام عليكم استاذ محمد 

وجزاك الله ألف خير 

الكود صحيح ١٠٠٪؜ وجزاك الله ألف خير

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

إذا الله يحفظك في طريقة يكون نفس الكود هذا بس معادلة 

الكود صحيح مليون في ١٠٠٪؜ وجزاك ألف خير والله يجعله في ميزان حسانتك

بس احتاج أنها تكون معادلة

الاستاذ / محمد هشام المحترم 

شكرا على مجهودك وتعبك والله يجزآك ألف خير 

بس إذا ممكن دالة لان الان الاكسيل هذا في أشياء كثيرة مرتبته ببعضها غير المرسلة في الكود ما راح يضبط معاي 

والف مليون شكر لتعبكم 

القسط الأول يبدء من الشهر رقم واحد ومدة حتي نهاية القسط الأول 

القسط الثاني  يبدء عن تغيير رقم القسط الأول ومدته من نهاية القسط الأول الي تغيير رقم القسط الثاني 

وهكذا 

يعني في الجدول رقم ١ 

القسط يمثل  MAX Installment limit وعدد الاقساط يمثل NO
يبدء القسط الأول من الشهر رقم ١ وحسب الجدول يكون مثلا ٨٣٠٠ وينتهي عن الشهر ٧٧

القسط رقم يبدء عن تغير الرقم ٨٣٠٠ وهيتغير في الشهر ٧٨ ويكون ٧٣٠٠ وينتهي عند الشهر ٨٨ يعني مدته ١١ شهر 

الشرط القسط يبدء من الشهر رقم ١ وكل ما يتغير القسط ينقل القسط هذا في الجدول رقم ٢ ويحسب مدته ويضعه في الجدول رقم ٢ 

اتمني ان يكون وصل فكرتي ولو في رقم للتواصل ممكن اتصل عليك واعتذر الموضوع مطلوب في العمل ومهم جدا 

الله يجعله في ميزان حسانتكم 

السلام عليكم

مبارك عليكم الشهر 

اذا تكرمتوا مطلوب دالة تبحث عن المبلغ وعن المدة في الجدول رقم ١ وحسب كل مبلغ وكل مدة تضعها القيمة والمدة في الجدول رقم ٢ 

مرفق ملف يوضح المطلوب 

وجزاكم الله الف خير 

Book2.xlsx

السلام عليكم استاذ محمود 

كل عام وانتم بخير 

وشكرا لكم على مساعدتك ووالمشاركة 

انا ارفقت ملف جديد يوضح المطلوب في جدوله تحت الجدول الرئيسي 

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

واعتذر ان اطلت عليكم واعتذر عن سوء الشرح ويرب يكون وصلت فكرتي 

Bookk3.xlsx

السلام عليكم 

كل عام وانتم بخير 

اذا ممكن احد يسعدني ضروري في ايجاد دالة تحسب مدة كل التزام حسب الالتزام او مجموع الالتزام في كل مدة 

مرفق لكم ملف اكسيل يشرح المطلوب 

الله يجعله في ميزان حسناتكم 

Book1.xlsx

22 ساعات مضت, محمد هشام. said:

 السلام عليكم ورحمة الله تعالى وبركاته

ضع  الصيغة التالية في الخلية (E6) مع سحبها للاسفل 

=IFERROR(INDEX($J$6:$J$11,MATCH(TRUE,MMULT(--(ROW($J$6:$J$11)>=TRANSPOSE(ROW($J$6:$J$11))),$I$6:$I$11)>=ROWS($1:1),0)),"")

في حالة الرغبة بتسلسل عمود  المدة بقدر بيانات عمود المبلغ  في الخلية (F6) مع سحب المعادلة للاسفل 

=IF(E6<>"",ROWS($A$1:A1),"")

 

 

Book1.xlsx 41.25 kB · 5 downloads

اشكرك جدا استاذ محمد هشام على مجهودك وربنا يجعله في ميزان حسناتك 

اشكرك جدا استاذ محمد وربنا يجعله في ميزان حسناتك

اخي العزيز 

اشكركم على مجهودك ولكن انا احتاج دالة وليس كود اذا امكن 

السلام عليكم 

ارجو المساعدة احتاج دالة في نقل المبلغ من الجدول حسب المدة 

بطريقة عمودية وتجاهل المدة اللي امامها صفر وتكملة المدة بالمبلغ الموجودة بها عدد

مرفق المرفق 

اشكركم مقدما للمساعدة

Book1.xlsx

السلام عليكم 

احتاج معادلة تحويل السنوات من هجري الى ميلادي  

مثال 

٢٠ سنة هجري فيها كم سنة ميلادي 

٢٤٠ شهر هجري فيهم كم شهر ميلادي 

تظهر الرسالة هذه

الاخوة الافاضل 

كرما دعمكم في دمج الاكواد ادناه في صفحة واحدة 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    If Target.Address = "$E$16" Then
        v = Target.Value
        Rows("46:360").Hidden = False
        If v = Range("BB1249") Then
            Rows("46:360").Hidden = True
        ElseIf v = Range("BB1250").Value Then
            Rows("71:360").Hidden = True
        ElseIf v = Range("BB1251").Value Then
            Rows("46:71").Hidden = True
            Rows("117:360").Hidden = True
        ElseIf v = Range("BB1252").Value Then
            Rows("46:117").Hidden = True
            Rows("139:360").Hidden = True
        ElseIf v = Range("BB1253").Value Then
            Rows("46:139").Hidden = True
            Rows("181:360").Hidden = True
         ElseIf v = Range("BB1254").Value Then
            Rows("46:181").Hidden = True
            Rows("209:360").Hidden = True
        ElseIf v = Range("BB1255").Value Then
            Rows("46:209").Hidden = True
            Rows("246:360").Hidden = True
        ElseIf v = Range("BB1256").Value Then
            Rows("46:246").Hidden = True
            Rows("274:360").Hidden = True
        ElseIf v = Range("BB1257").Value Then
            Rows("46:274").Hidden = True
            Rows("311:360").Hidden = True
        ElseIf v = Range("BB1258").Value Then
            Rows("46:311").Hidden = True
            Rows("336:360").Hidden = True
        ElseIf v = Range("BB1259").Value Then
            Rows("46:336").Hidden = True
    
            
        End If
    End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[T1] Then Exit Sub
    If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

اشكرك اخي كريم 

لكن احتاج الكود كامل لان احتاج اظهار صفوف في المنتصف ولا ادري كيف طريقتها 

السلام عليكم 

الاخوة والاخوات 

اذا تكرمتوا احد يساعدني في كود اخفاء الصفوف بشرط من قائمة منسدلة بحسب اختيار الشرط يتم اخفاء عدد محدد من الصفوف واظهار الباقية وعند اختيار من القائمة شرط ثاني يتم اخفاء عدد اخر من الصفوف واظهار الباقية مرفق ملف للشرح 

شاكر ومقدر مقدما 

ولكم جزيل الشكر 

كود اخفاء الصفوف بشرط.xlsx

الشكر كل الشكر

للاستاذ lionheart والاستاذ AbuuAhmed على مهجودكم والله يجعله في ميزان حسناتكم 

اشكر اهتمامك 

مرفق توضيح اكثر يقل المبلغ كلما زاد الراتب 

Book1.xlsx

السلام عليكم 

مرفق ملف اكسيل يوضح ويوجد قيمة مفقودة احتاج معرفتها حسب التسلسل 

Book1.xlsx

الف مليون شكر

كل عام واتنت بخير عيدك مبارك

وربي يسعدك ويجعله في ميزان حسناتك

الاستاذ سليم 

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

وفي جميع اشهر السنة بشكل راسي 

ولكم يعطي عدد المناديب6 ولكن عدد المناديب اكبر من كذا

مرفق ملف للتوضيح بصورة افضل

Book1.xlsx

استاذ سليم 

الف مليون شكر وربي يسعدك ولكم جزيل الشكر والتقدير 

ربنا يجعله في ميزان حسانك تم عمل اللازم 

وشكرا لاهتمامك 

جربت الملف الاخير المرسل لك وضبط معي 

السلام عليكم استاذ سليم 

شكرا لك على ردك وربنا يجعله في ميزان حسانك ولكن احتاج عدم تكرار 

يعني يعطيني النتيجة ل احمد 4 موظفين فقط وليس 12

ومحمد 2 ومحمود 3

احتاج اني هي تعد من العمود b  حيث ان اكود المناديب في العمود بناء على قائد الفريق