Crystal Ball Macros

Understanding the Crystal Ball Macro Framework

	Macro Name	Runs...
	CBBeforeSimulation	Immediately after the Start Simulation command or Single-Step command
	CBBeforeTrial	Before random numbers have been placed in assumption cells
	CBAfterRecalc	After Excel has recalculated the model but before a trial value has been retrieved from the forecast cells
	CBAfterTrial	After the forecast trial values have been retrieved and entered into the forecast charts
	CBAfterSimulation	When the simulation is complete or stopped with a Stop command, by single-stepping (after each step), or for any other reason

 

The above are all functions, but we can call procedure inside these functions. For example:

 

 

Macro

Public Sub EmbedSolver()

    Range("C17:G17").Select

    Selection.Copy

    Range("C13:G13").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    SolverOk SetCell:="$B$15", MaxMinVal:=1, ValueOf:=0, ByChange:="$C$9:$G$11", _

        Engine:=2, EngineDesc:="Standard Simplex LP"

    SolverSolve (True)

    Range("B15").Select

End Sub

Function

Public Function CBAfterTrial(aTrial As Long) As Integer

    Call EmbedSolver

End Function