共用方式為

WorksheetBase.Scenarios 方法

  • 發行項

取得物件，表示工作表上的單一分析藍本 (Microsoft.Office.Interop.Excel.Scenario 物件) 或分析藍本的集合 (Microsoft.Office.Interop.Excel.Scenarios 物件)。

命名空間：  Microsoft.Office.Tools.Excel
組件：  Microsoft.Office.Tools.Excel.v4.0.Utilities (在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中)

語法

'宣告
Public Function Scenarios ( _
    index As Object _
) As Object

public Object Scenarios(
    Object index
)

參數

  • index
    型別：System.Object
    分析藍本的名稱或編號。請使用陣列指定多個分析藍本。

傳回值

型別：System.Object
物件，表示工作表上單一分析藍本 (Microsoft.Office.Interop.Excel.Scenario 物件) 或分析藍本集合 (Microsoft.Office.Interop.Excel.Scenarios 物件)。

範例

下列程式碼範例會使用 Scenarios 方法，將新分析藍本加入至目前工作表，然後顯示 [分析藍本管理員] 對話方塊，驗證是否已加入分析藍本。

這是示範文件層級自訂的範例。

Private Sub CreateScenario()
    Dim range1 As Excel.Range = Me.Range("A1", "B10")
    range1.Formula = "=rand()"

    Dim scenarios1 As Excel.Scenarios = _
        CType(Me.Scenarios(), Excel.Scenarios)

    Dim newScenario As Excel.Scenario = _
        scenarios1.Add("New Scenario", range1)

    ' Show Scenario Manager dialog to verify that the scenario was added.
    Me.Application.Dialogs(Excel.XlBuiltInDialog.xlDialogScenarioCells).Show()
End Sub

private void CreateScenario()
{   
    Excel.Range range1 = this.Range["A1", "B10"];
    range1.Formula = "=rand()";

    Excel.Scenarios scenarios1 =
        (Excel.Scenarios)this.Scenarios();

    Excel.Scenario newScenario = scenarios1.Add("New Scenario", 
        range1);

    // Show Scenario Manager dialog to verify that the scenario was added.
    this.Application.Dialogs[Excel.XlBuiltInDialog.xlDialogScenarioCells].Show();
}

.NET Framework 安全性

請參閱

參考

WorksheetBase 類別

Microsoft.Office.Tools.Excel 命名空間