ابزار Goal Seek در VBA

سلام

از این خط کد استفاده کنید:

Range(...).GoalSeek Goal:=..., ChangingCell:=Range(...)

بجای ... ها مقادیر را به ترتیب جایگزاری کنید (از سمت چپ):

اول سلولی که می خواهید به مقدار هدف برسد. دوم مقدار هدف و سوم سلولی که باید مقادیرش تغییر داده شود.

مثال:

Range("C1").GoalSeek Goal:=200, ChangingCell:=Range("B1")

من میخواهم سلول C1 با تغییر دادن مقدار سلول B1 به عدد 200 برسد.

ممنون از پاسخ شما

بیشتر میخواستم بدونم مقدار goalseek goal که داخل کد هست رو میشه داینامیک کرد؟ چون خالص پرداختی نفرات لیست متفاوت هستش

شما توی vba می تونید هر مقداری رو تمایل داشتید محاسبه کنید یا از یک سلول بخوانید و به عنوان مقدار به پارامترها ارسال کنید.

محدودیتی ندارید