Text Editing VBA

[excelnewbie2018]

Dear community,

I am pretty new to the world of VBA! I am currently working on an assignment and I would like to produce a regular report out of my analysis so that I can keep tracks of the changes. I would only like the report to look natural instead of being ckearly generated by a computer, therefore I would like to create a code picking a term from a pre-prepared list of words, so that the comment looks innovative every time.
I do not think that the function CHOOSE works in this case.

To be more precise the code I have created would be the following:

If output.Range("B2") < 20 Then
        amt_hours = Choose("part time", "seasonal work")

However, I am not sure that this is the right oath to follow. I would really appreciate if someone could help me with this.
Thanks in advance!

 

[gallen]

Hello and welcome.

This explains how the function works. You need to provide the index. Therefore if you want a random choice you will need to generate a random variable and use that as the choice...

 

[gallen]

Here is an example using the Choose function:

Sub TestRandom()
    Dim iIndex As Integer, iLower As Integer, iUpper As Integer
    Dim sRandomResult As String
    
    
    iLower = 1
    iUpper = 3


    Randomize
    'GET RANDOM NUMBER BETWEEN iLower and iUpper
    iIndex = Int(iLower + Rnd() * (iUpper - iLower + 1))
    
    'use random number to select out of list
    sRandomResult = Choose(iIndex, "Choice1", "Choice2", "Choice3")
    
    MsgBox sRandomResult
    
End Sub

 

[excelnewbie2018]

Here is an example using the Choose function:

Sub TestRandom()
    Dim iIndex As Integer, iLower As Integer, iUpper As Integer
    Dim sRandomResult As String
    
    
    iLower = 1
    iUpper = 3


    Randomize
    'GET RANDOM NUMBER BETWEEN iLower and iUpper
    iIndex = Int(iLower + Rnd() * (iUpper - iLower + 1))
    
    'use random number to select out of list
    sRandomResult = Choose(iIndex, "Choice1", "Choice2", "Choice3")
    
    MsgBox sRandomResult
    
End Sub

That is exactly what I have just done! Thank you so much for your precious help.