VBA 作成した乱数をIｆ文で使う方法

Question

上で作成した、１～１０の数字の乱数を、下のif文に当てはめるにはどのようなコードを書けばよいのでしょうか？
今は８という数字が入っていて、当たりも８が設定されているため、セル１の１には"当たり"と表示されるようになっています。
この"当たり"の数字を上で作成した乱数を使って毎回ランダムな数（１～１０）になるようにするコードの書き方を教えてください。

コード
Dim random As String, i As Long
    For i = 1 To 1
            Randomize
            random = random & Int(Rnd * 10) + 1 & " "
    Next i

Const Br As Long = 8
   If Br = 8 Then
       Cells(1, 1) = "当たり"
   ElseIf 1 = Br Mod 2 Then
       Cells(1, 2) = "奇数"
   ElseIf 0 = Br Mod 2 Then
       Cells(1, 3) = "偶数"
End If

Comments

[hatena19]

「毎回ランダムな数になる」の毎回とは、なにが毎回発生するのでしょうか。コマンドボタンのクリック時とか、ユーザーが入力した時とか、具体的に説明してください。

[hatena19]

毎回発生するランダムな数と、何を比較するのでしょうか。ユーザーが入力した数ですか。もし、そうならユーザーはどこで入力するのでしょうか。これも具体的に説明してください。

[VBAsyosinsya]

今は　If Br = 8 Then　となっているので　8　が当たりの数となっていますが、これを上で作った乱数のランダムな数に変更させたいです。比較する数はユーザーが入力した数で、こちらも現在は　８　が入っております

Answer 1

良くわからないのですが、入力された値が乱数と一致かどうか、ですよね？
であれば、単純にこうなるんじゃないですかね？

' 乱数を求める
Dim random As Long
Randomize
random = Int(Rnd * 10) + 1

' Brは入力された値が入っている変数と仮定
Const Br As Long = 8

' 判定
If Br = random Then
   Cells(1, 1) = "当たり"
ElseIf 1 = Br Mod 2 Then
   Cells(1, 2) = "奇数"
ElseIf 0 = Br Mod 2 Then
   Cells(1, 3) = "偶数"
End If

そもそも乱数を文字列化しているのが良くわかりませんし、ループも1回だけですし。
的外れでしたらすみません。

Answer 2

hatena19様にコメント頂いたので、Excelで確認してみました。

10回乱数を作成し、それぞれで条件判定する方法はいかがでしょうか。

Dim i As Long
For i = 1 To 10
    Dim random As String
    Randomize
    Dim Br As Long
    Br = CLng(random & Int(Rnd * 10) + 1 & " ")
    Debug.Print Br
    
    If Br = 8 Then
        Cells(1, 1) = "当たり"
    ElseIf 1 = Br Mod 2 Then
        Cells(1, 2) = "奇数"
    ElseIf 0 = Br Mod 2 Then
        Cells(1, 3) = "偶数"
    End If
Next i

Comments

[jawa]

横から失礼しますm(__)m
原文に沿っているのだと思いますが、random変数は結局何も機能していませんし、乱数をあえて文字列化してからCLngで数値に戻す意味もないように思います。
あとループ回数を10回に増やしたのなら出力行も変えてあげたないと結果がわからなそうですね。

Answer 3

意図した内容と違っていたら申し訳ありません。
定数での宣言をやめて型変換するのはどうでしょうか。

Dim random As String, i As Long
    For i = 1 To 1
            Randomize
            random = random & Int(Rnd * 10) + 1 & " "
    Next i

Dim Br As Long
Br = CLng(random)

   If Br = 8 Then
       Cells(1, 1) = "当たり"
   ElseIf 1 = Br Mod 2 Then
       Cells(1, 2) = "奇数"
   ElseIf 0 = Br Mod 2 Then
       Cells(1, 3) = "偶数"
End If

Comments

[hatena19]

Br = CLng(random)

random には"3 4 9 1 6 3 4 3 9 10"というような文字列が入っているのでこのコードは型変換エラーになりませんか。

[pokoit]

コメントありがとうございます。
おっしゃるとおりです、申し訳ありません。