Clase Scenario - escenario (Excel VBA)

La clase Scenario representa un escenario de una hoja de cálculo. Para usar una variable de clase Scenario, primero debe ser instanciado, por ejemplo

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Scenario en una colección.

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

ChangeScenario

Cambia el escenario para que tenga un nuevo conjunto de celdas cambiantes y (de manera opcional) valores de escenario.

Si especifica Values, la matriz deberá contener un elemento por cada celda del rango ChangingCells; de lo contrario, Microsoft Excel generará un error.

ChangeScenario (ChangingCells, Values)

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

Arguments

Un argumento con nombre

ChangingCells (Range) - Objeto Range que especifica el nuevo conjunto de celdas cambiantes del escenario. Las celdas cambiantes deben estar en la misma hoja que el escenario.

Optional arguments

Los siguientes argumentos son opcionales

Values (Scenario) - Matriz que contiene los nuevos valores de escenario de las celdas cambiantes. Si este argumento se omite, se supondrá que los valores de escenario son los valores actuales de las celdas cambiantes.

ChangingCells

Devuelve un objeto Range que representa las celdas cambiantes de un escenario. Solo lectura.

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

Comment

Devuelve o establece un valor de tipo String que representa el comentario asociado con el escenario.

El comentario no puede exceder de 255 caracteres.

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

Delete

Elimina el objeto.

Dim scn As Scenario: Set scn = 
scn.Delete

Hidden

Devuelve o establece un valor de tipo Boolean que indica si el escenario está oculto.

El valor predeterminado de esta propiedad es False. Esta propiedad no se debe confundir con la propiedad FormulaHidden .

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

Index

Devuelve un valor de tipo Long que representa el número de índice del objeto dentro de una colección de objetos similares.

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

Locked

Devuelve o establece un valor de tipo Boolean que indica si el objeto está bloqueado.

Esta propiedad devuelve true si el objeto está bloqueado o false si el objeto se puede modificar cuando la hoja está protegida.

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

Name

Devuelve o establece un valor de tipo String que representa el nombre del objeto.

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

Show

Muestra el escenario e inserta los valores en la hoja. Las celdas afectadas son las celdas del escenario que cambian.

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

Values

Devuelve una matriz de tipo Variant que contiene los valores actuales de las celdas cambiantes del escenario.

Values (Index)

Index: Posición del valor.

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