Classe Scenario - cenário (Excel VBA)

A classe Scenario representa um cenário em uma planilha. Para usar uma variável de classe Scenario, ela primeiro precisa ser instanciada por exemplo

For Each

Aqui está um exemplo de processamento dos itens Scenario em uma coleção.

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

ChangeScenario

Altera o cenário para ter um novo conjunto de células variáveis e opcionalmente valores de cenário.

Se você especificar Values, a matriz precisará conter um elemento para cada célula do intervalo ChangingCells, caso contrário o Microsoft Excel gerará um erro.

ChangeScenario (ChangingCells, Values)

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

Arguments

O seguinte argumento é necessário

ChangingCells (Range) - Um objeto Range que especifica o novo conjunto de células variáveis para o cenário. As células variáveis precisam estar na mesma planilha que o cenário.

Optional arguments

The following argument is optional

Values (Scenario) - Uma matriz que contenha os novos valores de cenário para as células variáveis. Quando esse argumento é omitido, os valores atuais nas células variáveis são atribuídos aos valores de cenário.

ChangingCells

Retorna um objeto Range que representa as células variáveis de um cenário. Somente leitura.

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

Comment

Retorna ou define um valor String que representa o comentário associado ao cenário.

O texto do comentário não pode exceder 255 caracteres.

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

Delete

Exclui o objeto.

Dim scn As Scenario: Set scn = 
scn.Delete

Hidden

Retorna ou define um valor Boolean que indica se o cenário está oculto.

O valor padrão para essa propriedade é False. Não confunda essa propriedade com a propriedade FormulaHidden .

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

Index

Retorna um valor Long que representa o número de índice do objeto dentro da coleção de objetos semelhantes.

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

Locked

Retorna ou define um valor Boolean que indica se o objeto está bloqueado.

Essa propriedade retorna true se o objeto estiver bloqueado ou false se o objeto puder ser modificado quando a planilha estiver protegida.

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

Name

Retorna ou define um valor String que representa o nome do objeto.

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

Show

Mostra o cenário inserindo seus valores na planilha. As células afetadas são as células variáveis do cenário.

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

Values

Retorna uma matriz que contém os valores atuais das células variáveis do cenário.

Values (Index)

Index: A posição do valor.

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