Цей підручник покаже вам, як використовувати пошук цілей у VBA
Шукати цілі -це один із інструментів аналізу «Що -якщо», доступних у Excel, який дозволяє застосовувати різні значення до формул та порівнювати результати.
Синтаксис пошуку цілей
Функція GoalSeek має 2 аргументи - мета (клітинка, яку потрібно змінити), і ChangingCell (клітинку, яку потрібно змінити). Функція повертає значення True або False - True, якщо ціль знайдена, і False, якщо мета не знайдена.
Використання пошуку цілей у VBA
Розглянемо наступний аркуш нижче.
Щоб змінити необхідне погашення кожного місяця, змінивши термін у місяцях, ми можемо написати таку процедуру.
1234 | Термін додаткового збільшення ()'Зробіть B6 100, змінивши B5Діапазон ("B6"). Мета GoalSeek: = 100, ChangingCell: = Діапазон ("B5")End Sub |
Зверніть увагу, що у клітинці B6 має бути формула, а в клітинці B5 - значення.
Використання пошуку цілей з оператором If
Ви також можете використовувати GoalSeek з оператором If для спрямування потоку вашого коду.
12345678 | Термін додаткового збільшення ()'зробіть B6 100, змінивши B5 - і поверніть повідомлення користувачевіЯкщо Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True ТодіMsgBox "Новий термін успішно знайдено"ІнакшеMsgBox ("Новий термін не знайдено")Закінчити ЯкщоEnd Sub |