اذهب الي المحتوي
أوفيسنا

ايجاد قيمة ثلاثة مجاهيل


الردود الموصى بها

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

اذا كان عندنا معادلتين بالشكل الآتى

س + ص + ع = 185 

0.05 س + 0.10 ص + 0.25 ع = 21.60

فكيف نوجد قيمة س ، ص ، ع 

ومرفق مثال بالمطلوب:

 

تركيب معادلة بها ثلاث مجاهيل.rar

رابط هذا التعليق
شارك

أخي الكريم هشام محمد

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

 

الاحتمالات للمثال الأول على سبيل المثال كثيرة جداً ..

فالأرقام  1 ، 163 ، 21 مجموعهم يساوي 185 ، ولو ضربت النسب المذكورة ( 0.05 / 0.10 / 0.25) في الأرقام ستجد مجموعهم يساوي 21.6

وكذلك الأرقام 4 ، 159 ، 22

وكذلك 25 ، 131 ، 29

ويوجد احتمالات كثيرة للغاية ..!!!! فكيف تريد الحل؟

رابط هذا التعليق
شارك

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

هل باستطاعتنا استنتاج هذه الارقام بمعادلة ثابتة دون استخدام الحل بطريقة ال Solver حيث أن هذه الطريقة يعيبها أنها لا يمكن تطبيقها إلا على معادلة واحدة ولا يمكن استخدامها آليا على جدول به العديد من الأرقام 

رابط هذا التعليق
شارك

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

أخي الكريم، من وجهة الرياضيات لا يمكن حل جملة معادلتين خطيتين من ثلاثة مجاهيل... إذ يجب أن يكون عدد المعادلات مساويا على الأقل عدد المجاهيل... وفي الملف المرفق وضعت طريقة للحل بوساطة معادلات لكن بحجز (وضع) قيمة أحد المجاهيل بطريقة يدوية (قيمة إحدى شرائح الضريبة وقد اخترت شريحة 5%) وهو عمل يشبه عمل Solver أو خاصية "الخلية الهدف" Target Cell ... أرجو أن يكون المطلوب...

بن علية

تركيب معادلة بها ثلاث مجاهيل.rar

رابط هذا التعليق
شارك

11 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم هشام محمد

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

 

الاحتمالات للمثال الأول على سبيل المثال كثيرة جداً ..

فالأرقام  1 ، 163 ، 21 مجموعهم يساوي 185 ، ولو ضربت النسب المذكورة ( 0.05 / 0.10 / 0.25) في الأرقام ستجد مجموعهم يساوي 21.6

وكذلك الأرقام 4 ، 159 ، 22

وكذلك 25 ، 131 ، 29

ويوجد احتمالات كثيرة للغاية ..!!!! فكيف تريد الحل؟

لم تجبني على سؤالي أخي الكريم هشام

يوجد العديد من الاحتمالات .. فكيف سيكون الحل في هذه الحالة؟

انظر للصورة التالية ..هذه الاحتمالات للأرقام 185 و 21.6 ...مع العلم بأن الأرقام المدرجة في مثالك بها كسر بسيط جداً جداً وهو الرقم 83.0000000000001

4	159	22
7	155	23
13	147	25
16	143	26
19	139	27
22	135	28
25	131	29
28	127	30
31	123	31
34	119	32
37	115	33
40	111	34
43	107	35
46	103	36
55	91	39
58	87	40
73	67	45
76	63	46
79	59	47
94	39	52
97	35	53
100	31	54
103	27	55
106	23	56
109	19	57
112	15	58
115	11	59

 

Untitled.png

رابط هذا التعليق
شارك

الاستاذ بن حجى الرابط غير مستجيب برجاء رفع الملف مرة أخرى

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

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

تم تعديل بواسطه هشام محمد شرقاوى
رابط هذا التعليق
شارك

أخي الكريم هشام

تراني أصعب الأمور أم أنني أوضح لك فقط أن المنطق والمعطيات غير كافية مما يؤدي إلى أن الأمور سيكون بها أكثر من احتمال (وسؤالي لك ما هو المنطق الذي يمكن أن يتبع في هذه الحالة)

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

 

رابط هذا التعليق
شارك

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

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

** وسؤالى الأخير هو عن شكل المعادلات المطلوبة وكيف تكون لاستخراج قيمة من ثلاثة مجاهيل؟

  • Like 1
رابط هذا التعليق
شارك

أخي العزيز هشام محمد شرقاوي

لغة البرمجة تعني المنطق في الطلب ، وقد طلبت أمراً ما ، ويوجد الكثير من الاحتمالات ..فقم بتحديد أي الاحتمالات أقرب إليك والذي يمكنه أن يحل مشكلتك بشكل جذري ..

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

حاول تحدد معايير للاحتمال المطلوب .. ما رأيك مثلاً في أن يكون المجموع (على سبيل المثال 185) يقسم على 2 والناتج أو أقرب ناتج له يكون الأساس في العمل

إذا كنت توافقني هذا الاقتراح فأعلمني بذلك ، وإذا كان لديك فكرة أخرى أو اقتراح آخر فلتتفضل به

وإن شاء الله نصل لحل ..

تقبل تحياتي

Goal Seek To Calculate Tax YasserKhalil Officena.rar

  • Like 1
رابط هذا التعليق
شارك

 

استاذنا أبو البراء يعجبنى فيكم تفكيركم الغير اعتياى فى حل المشكلات وتطويعها بما يتلائم مع المعطيات المتاحة.

وكأساس يمكن اعتماد هذه الطريقة حتى نوحد الحل لجميع الاحتمالات.

ولكن هذا الحل يوجد به أرقام سالبة وهذه نتيجة غير مقبولة عند المراجعة فلو أمكن حل يكون به أرقام غير سالبة.

وجزاكم الله كل الخير على صبركم ونفع بكم .

رابط هذا التعليق
شارك

أخي الكريم هشام

الأرقام السالبة للأسف تظهر بسبب أن الأرقام التي بهذه الصفوف 413.60 و 70.05 لا يوجد لها احتمالات أرقام صحيحة فيأتي آخر احتمال ..

عموماً سأحاول العمل مرة أخرى على الملف ..رغم أنه لا يوجد منطق ثابت للعمل وهذا ما يضعني في حيرة من أمري

تقبل تحياتي

رابط هذا التعليق
شارك

جرب التعديل التالي في الكود

Sub Goal_Seek_Tax()
    Dim Opt_a, Opt_b, Opt_c, T As Integer, I As Integer
    Dim A As Single, B As Single, C As Single

    Application.ScreenUpdating = False
        Range("D10:F14").ClearContents
    
        For I = 10 To 14
            Range("E" & I).Formula = "=(C" & I & "-D" & I & "*5%-F" & I & "*25%)/10%"
    
            For T = Int(Range("B" & I).Value / 2) To Range("B" & I).Value
                Range("D" & I).Value = T
                Range("G" & I).GoalSeek Goal:=1, ChangingCell:=Range("F" & I)
    
                A = Round(Range("D" & I).Value, 2)
                B = Round(Range("E" & I).Value, 2)
                C = Round(Range("F" & I).Value, 2)
    
                If A > 0 And B > 0 And C > 0 And A = Int(A) And B = Int(B) And C = Int(C) Then
                    A = Range("D" & I).Value
                    B = Range("E" & I).Value
                    C = Range("F" & I).Value
    
                    GoTo 10
                End If
            Next T
10
            If B < 0 Then
                Range("D" & I).Value = Int(Range("B" & I).Value / 4)
                Range("G" & I).GoalSeek Goal:=1, ChangingCell:=Range("F" & I)
                A = Round(Range("D" & I).Value, 2)
                B = Round(Range("E" & I).Value, 2)
                C = Round(Range("F" & I).Value, 2)
            End If
    
            Range("D" & I).Value = A
            Range("E" & I).Value = B
            Range("F" & I).Value = C
        Next I
    Application.ScreenUpdating = True
End Sub

أرجو أن يفي بالغرض إن شاء الله

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

 

أستاذى الفاضل ياسر : يسر الله لك كل الأمور 

                             وجعلك خليل المصطفى فى الفردوس الأعلى إن شاء الله

                              وجعل بينك وبين النار براءة وعصمة

والشكر موصول للاستاذ بن عليه حاجى وسليم حاصبيا أيضاً

هذا الحل يفى بالغرض إن شاء الله ، وإلى الملتقى والسلام عليكم ورحمة الله وبركاته

رابط هذا التعليق
شارك

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أسعدني انك توصلت لحل يرضيك وإن كان الحل لا يرضيني .. ولكن ما دام يرضيك فكفي ..

جزيت خيراً على دعواتك الطيبة المباركة ، ولك بمثل إن شاء الله

تقبل وافر تقديري واحترامي

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information