Pick letter randomly

[Temporary-Failure]

I want code which will choose randomly T, D or S letter. How to do it?

edit, well this is one way...

    kerroin1 = Int((3 - 1 + 1) * Rnd + 1)
        Select Case kerroin1
            Case 1
                etuliite1 = "S"
            Case 2
                etuliite1 = "D"
            Case 3
                etuliite1 = "T"
        End Select

 

[doublej_jj]

I am not a code guy, so pre-apologies. However, here is a concept that you probably can get to work.

Have your code choose a random number from 1 to 3, then right If statements to associate the number with a letter.

RandNumber = RandBetween (1,3)
RandLetter =

if RandNumber = 1, "S"
Else
if RandNumber = 2, "D"
Else
"T"
Endif

Then do your cases. If fact, unless there is a reason, why not just use the number without associating to a letter?

Again, no code guy here, but hope this spurs some thought.

Jeff

 

[GTO]

Maybe,

Option Explicit
    
Sub CallIt()
    MsgBox PickALetter("S", "D", "T")
End Sub
    
Function PickALetter(ParamArray Letters()) As String
    
    If UBound(Letters) - LBound(Letters) Then
        PickALetter = Letters(Int((UBound(Letters) - LBound(Letters) + 1) * Rnd))
    Else
        PickALetter = Letters(0)
    End If
End Function