Можно ли запустить диспетчер сценариев с помощью макроса VBA?

Question

Я создаю MIS (Management Information System) в Excel, и мне необходимо использовать «What-If Analysis».

Я в процессе добавления различных сценариев в диспетчер сценариев, чтобы сделать его более удобным для пользователя, я показываю всю систему в полноэкранном режиме. Это означает, что пользователь не сможет открыть диспетчер сценариев.

Я не могу просто присвоить каждому сценарию ниспадающий список кнопок, поскольку пользователь должен иметь возможность редактировать каждый сценарий. Это означает, что мне нужно запрограммировать макрос VBA для запуска диспетчера сценариев.

Это, однако, представило проблему: не представляется возможным запустить диспетчер сценариев с помощью VBA!

Я пытался искать его, но тем не менее все страницы, которые я посетил содержат код для запуска отдельного сценария со следующим:

ActiveSheet.Scenarios("[scenario name here]").Show 

Однако не кажется, нет ничего запуска фактический менеджер сценария:

Я также попытался записать макрос, чтобы сделать это, но сам макрос пуст:

Sub whatIfManager() 
' 
' whatIfManager Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+W 
' 
End Sub 

Я пробовал ActiveSheet.Scenarios().Show на случайный случай, который бы сработал, но это не так (без метода с этим именем).

Возможно ли вообще запустить диспетчер сценариев if-if с помощью VBA? Если да, то как?

Answer 1

Метод, который вы ищете, находится в объекте Application, в частности Application.Dialogs. Что-то вроде этого сделают это:

Application.Dialogs(xlDialogScenarioCells).Show 

Значение перечисления определяет диалоговое окно для отображения. Полный список диалогов доступен here.