Klasse Scenario - Szenario (Excel VBA)

Die Klasse Scenario stellt ein Szenario auf einem Arbeitsblatt dar. Um eine Scenario -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

For Each

Hier ist ein Beispiel für die Verarbeitung der Scenario -Elemente in einer Sammlung

Dim scns As Scenarios: Set scns = 
For Each scn In scns.Merge Source:=
	With scn
		
	End With
Next scn

ChangeScenario

Ändert das Szenario, sodass eine neue Gruppe von veränderbaren Zellen und (optional) Szenariowerten verwendet wird.

Wenn Sie das Argument Values angeben, muss das Array für jede Zelle im Bereich ChangingCells ein Element enthalten, oder es wird von Microsoft Excel ein Fehler generiert.

ChangeScenario (ChangingCells, Values)

Worksheets("Sheet1").Scenarios(1).ChangeScenario ChangingCells:=Worksheets("Sheet1").Range("A1:A10")

Arguments

Ein benanntes Argument

ChangingCells (Range) - Ein Range -Objekt, das den neuen Satz von veränderbaren Zellen für das Szenario angibt.

Optional arguments

Das folgendes Argument ist optional

Values - Scenario

ChangingCells

Gibt ein Range -Objekt zurück, das die sich verändernden Zellen für ein Szenario darstellt.

Dim scn As Scenario: Set scn = 
Dim rngChangingCells As Range
Set rngChangingCells = scn.ChangingCells

Comment

Gibt einen String-Wert zurück, der den dem Szenario zugeordneten Kommentar darstellt, oder legt diesen fest.

Der Kommentartext kann bis zu 255 Zeichen lang sein.

Worksheets("Sheet1").Scenarios(1).Comment =  "Worst case July 1993 sales"

Delete

Löscht das Objekt.

Dim scn As Scenario: Set scn = 
scn.Delete

Hidden

Gibt einen Boolean-Wert zurück, der angibt, ob das Szenario ausgeblendet ist, oder legt diesen fest.

Der Standardwert für diese Eigenschaft ist False. Verwechseln Sie diese Eigenschaft nicht mit der FormulaHidden -Eigenschaft.

Dim scn As Scenario: Set scn = 
scn.Hidden = True

Index

Gibt einen Long-Wert zurück, der die Indexnummer des Objekts in der Auflistung ähnlicher Objekte darstellt.

Dim scn As Scenario: Set scn = 
Dim lngIndex As Long
lngIndex = scn.Index

Locked

Gibt einen Boolean-Wert zurück, der angibt, ob das Objekt gesperrt ist, oder legt diesen fest.

Diese Eigenschaft gibt true zurück, wenn das Objekt gesperrt ist, oder false , wenn das Objekt geändert werden kann, wenn das Blatt geschützt ist.

Dim scn As Scenario: Set scn = 
scn.Locked = True

Name

Gibt einen String-Wert zurück, der den Namen des Objekt darstellt, oder legt diesen Wert fest.

Dim scn As Scenario: Set scn = 
scn.Name =

Show

Zeigt das Szenario durch Einfügen der entsprechenden Werte auf dem an.

Dim scn As Scenario: Set scn = 
Dim booShow As Boolean
booShow = scn.Show

Values

Gibt ein Variant-Array mit den aktuellen Werten der veränderbaren Zellen des Szenarios zurück.

Values (Index)

Index: Die Position des Werts.

Dim scn As Scenario: Set scn = 
Dim varValues As Variant
varValues = scn.Values