是否可以使用VBA宏启动方案管理器？

Question

我正在Excel中创建一个MIS（管理信息系统），并且需要使用“假设分析”＃。

我正在向场景管理器添加各种场景，并使其更加用户友好，我将全屏显示整个系统。但这意味着用户无法打开方案管理器。

我不能简单地将每个场景分配到按钮/下拉列表，因为用户需要能够编辑每个场景。因此，这意味着我需要对VBA宏进行编程以启动方案管理器。

然而，这提出了一个问题：使用VBA启动Scenario Manager似乎无法实现！

我已经尝试过搜索它，但是我访问的所有网页都包含启动具有以下内容的单个方案的代码：

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

但是，启动实际的场景管理器似乎没有任何意义：

我还试图录制一个宏来执行此操作，但宏本身是空的：

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

我尝试ActiveSheet.Scenarios().Show关于可行的机会，但它没有（没有使用该名称的方法）。

是否有可能使用VBA启动假设情景管理器？如果是这样，怎么样？

Answer 1

您要查找的方法位于Application对象中，具体为Application.Dialogs。这样的事情会做到：

Application.Dialogs(xlDialogScenarioCells).Show

枚举值确定要显示的对话框。完整的对话列表可用here。