文字列配列のランダム値を選択

A1セルに「Jack」または「John」のいずれかのコードをランダムに入力するにはどうすればよいですか？現在、結果は常に「2」です。文字列配列のランダム値を選択

Sub RandomNames() 

Dim UserNames(1 To 2) As String 

UserNames(1) = "Jack" 
UserNames(2) = "John" 

Range("A1").Value = Application.WorksheetFunction.RandBetween(LBound(UserNames), UBound(UserNames)) 

End Sub

出典

2017-09-08 barciewicz

ありがとう、ちょうどタイプミス。 – barciewicz

あなたのコードでは、タイプミスなく、1と2をかなり均等にします。 –

BTW：式のバージョン： '= CHOOSE（RANDBETWEEN（1,2）、" Jack "、" John "）' –

アレイ上でrandbetweenを使用してみてください。

Range("A1").Value = UserNames(Application.RandBetween(LBound(UserNames), UBound(UserNames)))

出典

2017-09-08 14:36:50 Jeeped

ありがとう、完璧に動作します。 – barciewicz

文字列配列のランダム値を選択

答えて

関連する問題