تحديد صافي الدخل اليومي

[خليل القيسي]

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

 

تصفيات العيادات.xlsx

[خليل القيسي]

محتاج من حضراتكم معادلة لعمل المطلوب من فضلكم 

[Foksh]

6 ساعات مضت, خليل القيسي said:

محتاج من حضراتكم معادلة لعمل المطلوب من فضلكم 

أخي الكريم ، الفكرة ليست بمعادلة وينتهي الموضوع !!!!

بناءً على ملفك المرفق فإنه حتى المعادلة لن تأتي لك بالمطلوب لأسباب كثيرة .

1. نمط التاريخ وشكله وتنسيقه غير واضح في الخلايا داخل الورقات اليومية .
2. الخلية التي سيكون بها تاريخ المقارنة يجب أن يكون في خلية ثابتة في جميع الورقات .
3. خلية عرض الصافي أيضاً يجب أن تكون في خلية ثابتة . فليس من المنطقي أن تكون مرة في Q ومرة في R ومرة في F ... إلخ

وعليه تم العمل من خلال ماكرو واستدعاؤه داخل الورقة الرئيسية كالتالي :-

Sub GetValuesFromSheets()
    Dim wsCurrent As Worksheet
    Dim wsOther As Worksheet
    Dim i As Long
    Dim j As Long
    Dim targetDate As Date
    Dim found As Boolean
    Dim lastRow As Long
    
    Set wsCurrent = ThisWorkbook.ActiveSheet
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    wsCurrent.Range("C3:C33").ClearContents
    
    For i = 3 To 33
        If wsCurrent.Cells(i, "B").Value <> "" Then
            If IsDate(wsCurrent.Cells(i, "B").Value) Then
                targetDate = CDate(wsCurrent.Cells(i, "B").Value)
                found = False
                
                For Each wsOther In ThisWorkbook.Worksheets
                    If wsOther.Name <> wsCurrent.Name Then
                        lastRow = wsOther.Cells(wsOther.Rows.Count, "B").End(xlUp).Row
                        If lastRow > 33 Then lastRow = 33
                        
                        For j = 3 To lastRow
                            If wsOther.Cells(j, "B").Value <> "" Then
                                If IsDate(wsOther.Cells(j, "B").Value) Then
                                    If CDate(wsOther.Cells(j, "B").Value) = targetDate Then
                                        wsCurrent.Cells(i, "C").Value = wsOther.Range("R27").Value
                                        found = True
                                        Exit For
                                    End If
                                End If
                            End If
                        Next j
                    End If
                    If found Then Exit For
                Next wsOther
                
                If Not found Then
                    wsCurrent.Cells(i, "C").Value = "غير موجود"
                End If
            End If
        End If
    Next i
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    Call GetValuesFromSheets
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B33")) Is Nothing Then
        Call GetValuesFromSheets
    End If
End Sub

 

وهذا مرفقك بعد إجراء بعض التعديلات عليه وضبط المواضع التي تحدثت عنها سابقاً

تصفيات العيادات.xlsm

ملاحظة .. تم تعديل التاريخ في كل ورقة ليصبح

2026-06-19

2026-06-20

2026-06-21

2026-06-22

[خليل القيسي]

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

اخي الكريم Foksh 

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

1- قيمة الكشف     متغيرة 
2- قيمة الاستشارة   متغيرة
3- يوجد فكسد ثابت لكل طبيب   متغيرة 
4- قيمة الخدمات في العيادة       متغيرة
5- صافي حساب الطبيب هتكون الفكسد + نصف قيمة الخدمات في العيادة + نصف قيمة الاستشارات + نصف قيمة الكشوف لو زاد العدد عن 10 كشوف 

في حالة لو عدد الكشوف في العيادة اقل من 10 كشوف يكون صافي حساب الطبيب فقط الفكسد + نصف قيمة الخدمات 

6- صافي دخل المبني هيكون     اول 10 كشوف في العيادة + نصف قيمة الاستشارة + نصف قيمة الخدمات في العيادة + نصف قيمة الكشوف لو زاد العدد عن 10 كشوف .

في حالة لو عدد الكشوف في العيادة اقل من 10 كشوف يكون صافي صافي دخل المبني فقط قيمة + نصف قيمة الخدمات + قيمة الاستشارات 

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

مع حضراتكم لو اي حاجة مطلوبة تاني 
 

تصفيات العيادات.xlsm

[خليل القيسي]

منتظر رد حضراتكم للمساعدة في ادارة المكان الخيري دة 
المركز الطبي بخلوصي 

[Foksh]

10 ساعات مضت, خليل القيسي said:

5- صافي حساب الطبيب هتكون الفكسد + نصف قيمة الخدمات في العيادة + نصف قيمة الاستشارات + نصف قيمة الكشوف لو زاد العدد عن 10 كشوف 
في حالة لو عدد الكشوف في العيادة اقل من 10 كشوف يكون صافي حساب الطبيب فقط الفكسد + نصف قيمة الخدمات

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

=IF(E3>10, N3 + K3/2 + J3/2 + F3/2, N3 + K3/2)

يعني كمثال في الورقة 22/6 . هل النتيجة في خلية الدكتور صحيحة ؟؟؟

 

أما الطلب الثاني ، فلم أركز به جيداً حتى افهمه بوضوح .. ولكن حاول بعد التحقق من الطلب الأول وصحته ، أن تشرح بوضوح أكثر مطلبك الثاني وخصوصاً عبارة اول 10 كشوف في العيادة

 

[خليل القيسي]

الاخ الفاضل عنما قمت بتحمل الملف لم يعمل علي الجهاز 

 

 

اخي الحبيب دة المثال الصحيح 

 

بخصوص موضوع او 10 كشوف 

 

اقصد اني المبني لة الحق في عدد 10 كشوف من اجمالي العدد الكلي للطبيب والباقي يكون مناصفة بمعني ثاني من الكشف الاول الي العاشر يكون للمركز الطبي ثم من بعد الكشف العاشر هوة مناصفة بين الطبيب والمركز 

 

[Foksh]

12 دقائق مضت, خليل القيسي said:

اقصد اني المبني لة الحق في عدد 10 كشوف من اجمالي العدد الكلي للطبيب والباقي يكون مناصفة بمعني ثاني من الكشف الاول الي العاشر يكون للمركز الطبي ثم من بعد الكشف العاشر هوة مناصفة بين الطبيب والمركز 

انت بتصعبها علي كده ليه  ..

طيب علشان ابسطها أكثر ..

اعطيني بالارقام على الصورة اللي ارفقتها ..

عدد الكشوف = 21

قيمة أول 10 كشوف = 800

قيمة الكشف الواحد = 80

بكده اجمالي قيمة الكشوف حيكون 21 * 80 = 1680 اللي هو في اجمالي قيمة العيادة يومياً ..

الآن بما انه عدد الكشوف = 21 = أكبر من 10

يعني للمبنى 800 + ((1680 - 800 ) / 2 )  = 880 اللي هي باقي قيمة الكشوف .

وبكدة يكون للمبنى نصيب = 1240 ( صحيح الى هذا الفهم )

طيب لو عدد الكشوف أقل من 10 !!!!

احسبهالي انت واعطيني مثال زي كدة . لأني في الأمور المحاسبية فهمي شوي على ما قُسُم  😇