PDA

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

snb
09-25-2013, 12:25 PM
Sub M_snb()
Randomize
For j = 1 To 10
MsgBox IIf(Rnd() < 0.5, 1, -1)
Next
End Sub