エクセルVBAのRand()関数は？

質問

エクセルでマクロを書いているのですが

Rand()関数を使用しようとするとエラーが起きてしまいます。。
アドインは全てインストールしているのですが、原因がわかりません。
知っている方しましたら、ご教授お願い致します。

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Private Sub btnCreate_Click()

'ループ用の行数。
maxQuestion = 30

'ランダム用の最大値
maxRowCnt = ActiveSheet.UsedRange.Rows.Count

For i = 1 To maxQuestion

'ランダムでコピーし貼り付け
Sheets("Answer").Select
rndm = Int(rand() * (maxRowCnt - 1) + 1)
Sheets("Answer").Range("A" & rndm & ":" & "C" & rndm).Select
Selection.Copy

Sheets("Question").Select
Range("A" & i).Select
ActiveSheet.Paste

delCol = Int(rand() * (2 - 1) + 1)
If (delCol = 1) Then
Sheets("Question").Cells(i, 1).Value = ""
Else
Sheets("Question").Cells(i, 2).Value = ""
End If

Next i

End Sub

回答No.1

Hayashi_Trek · ベストアンサー

rand()間数はrnd()の間違いでは？

回答No.2

Wendy02

こんばんは。

rndm = Int(Rnd() * (maxRowCnt - 1) + 1)

Rnd() と　Randomize　は、セットです。
Randomize は、 For i = 1 To maxQuestion の前にでも入れればよいと思います。