Function DieRoll(number As Double, sides As Double, modifier As Double) As Double Dim I DieRoll = 0 For I = 1 To number DieRoll = DieRoll + Application.WorksheetFunction.RandBetween(1, sides) Next I DieRoll = DieRoll + modifier End Function
Rollback Post to RevisionRollBack
To post a comment, please login or register a new account.
Function DieRoll(number As Double, sides As Double, modifier As Double) As Double
Dim I
DieRoll = 0
For I = 1 To number
DieRoll = DieRoll + Application.WorksheetFunction.RandBetween(1, sides)
Next I
DieRoll = DieRoll + modifier
End Function