Този урок ще ви покаже как да използвате Goal Seek във VBA
Търсенето на цел е един от инструмента за анализ на What -if, наличен в Excel, който ви позволява да прилагате различни стойности към формулите и да сравнявате резултатите.
Синтаксис за търсене на цел
Функцията GoalSeek има 2 аргумента - целта (клетката, която искате да промените), и ChangingCell (клетката, която трябва да бъде променена). Функцията връща True или False - True, ако целта е намерена, и False, ако целта не е намерена.
Използване на Търсене на цел във VBA
Помислете за следния работен лист по -долу.
За да променим изискуемото погасяване всеки месец чрез промяна на срока в месеци, можем да напишем следната процедура.
| 1234 | Условие за допълнително увеличаване ()„направете B6 100, като смените B5Диапазон ("B6"). GoalSeek Цел: = 100, ChangingCell: = Диапазон ("B5")End Sub |
Имайте предвид, че трябва да има формула в клетка В6 и стойност в клетка В5.
Използване на Търсене на цел с изявление If
Можете също да използвате GoalSeek с оператор If, за да насочите потока на вашия код.
| 12345678 | Условие за допълнително увеличаване ()„направете B6 100, като промените B5 - и върнете съобщение на потребителяАко Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = Вярно тогаваMsgBox "Новият термин е намерен успешно"ИначеMsgBox ("Нов термин не е намерен")Край АкоEnd Sub |
