الأستهداف Goal Seek

[Sharaf]

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

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

فمثلا :

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

و مطلوب أستنتاج قيمة اصل الراتب بحيث يكون صافى الراتب 1000 بعد خصم 14% ضريبة و خصم 7% تامينات و إضافة 20% علاوة ..

و أصل الراتب فى المثال فى الخلية الزرقاء B4

و صافي الراتب فى الصفراء G4

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

و كذلك أن تكون الخلية المطلوب أستنتاجها قيمة و ليست معادلة

goal_seek.zip

تم تعديل يوليو 30, 2003 بواسطه محمد طاهر

[محمد طاهر عرفه]

بعد إذن الأخ أحمد

استغليت نفس المثال لاضافة الطريقة بالكود

اختار الخلية الهدف ( الصفراء )

ثم شغل الماكرو ( ALT+F8 )

ثم اختار الماكرو و اضغط Run

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

Sub GoolSeekit()

Dim x As Double

    x = InputBox("Please Choose the Value", "Goal Seek Example ", 900)

    ActiveCell.GoalSeek Goal:=x, ChangingCell:=Range("b4")

End Sub

[أبو هادي]

السلام عليكم

بعد إذن Sharaf ومحمد طاهر

هذا مثال قديم يجسد استخدام الإستهداف

آمل أن يكون مفيدا

تحياتي .

Installments.zip