是否可以使用VBAmacros启动schemepipe理器?

我正在Excel中创build一个MIS(pipe理信息系统),并且需要使用“假设分析”。

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

我不能简单地将每个场景分配给button/下拉列表,因为用户需要有能力编辑每个场景。 这意味着我需要编程一个VBAmacros来启动场景pipe理器。

然而,这却带来了一个问题: 使用VBA启动schemepipe理器似乎不可能!

我已经尝试过search它,但是我访问过的所有页面都包含启动一个单独场景的代码,如下所示:

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

但是似乎没有什么可以启动实际的场景pipe理器:

在这里输入图像说明

我也试图logging一个macros来做到这一点,但macros本身是空的:

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

我尝试了ActiveSheet.Scenarios().Show的机会,将工作,但它不(没有方法与该名称)。

是否有可能启动使用VBA的假设情景pipe理器? 如果是这样,怎么样?

您正在查找的方法位于Application对象中,特别是Application.Dialogs 。 像这样的事情会做到这一点:

 Application.Dialogs(xlDialogScenarioCells).Show 

枚举值决定了要显示的对话框。 对话框的完整列表可以在这里find 。