View Full Version : [SOLVED:] vba function to return random sign
xltrader100
09-25-2013, 10:33 AM
I'd like a vba function that does this:
Function randomSign() As long
randomSign = <code that returns +1 or -1 at random>
End Function
Kenneth Hobs
09-25-2013, 11:26 AM
Sub Test_RBetween1()
Dim i As Integer
For i = 1 To 10
Debug.Print RBetweenN1to1
Next i
End Sub
Function RBetweenN1to1() As Long
Dim i As Integer, lowerbound As Integer, upperbound As Integer
lowerbound = -1
upperbound = 1
Do
i = WorksheetFunction.Floor((upperbound - lowerbound + 1) * Rnd + lowerbound, 1)
Loop Until i <> 0
RBetweenN1to1 = i
End Function
Sub M_snb()
Randomize
For j = 1 To 10
MsgBox IIf(Rnd() < 0.5, 1, -1)
Next
End Sub
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.