| シートコード |
|
下記のコードに変更してください。
'作成開始ボタン
Private Sub CommandButton1_Click()
Dim ln1 As Long
Dim ln2 As Long
ln1 = MyGetSuchi("C2")
If ln1 <= 0 Or ln1 > 100 Then
MsgBox "くじ枚数は1〜100の範囲で入力してください。"
Exit Sub
End If
ln2 = MyGetSuchi("C3")
If ln2 < 0 Or ln2 > ln1 Then
MsgBox "当たり枚数は,くじ枚数より少なくしてください。"
Exit Sub
End If
Range("C2") = ln1
Range("C3") = ln2
'オートシェイプ作成
ExMakeShape
'当たりくじを作成する
ExAtariKujiMake ln1, ln2
'くじを配置する
ExKujiSet ln1
End Sub
下記のコードを追加してください。
'くじを配置する
Private Sub ExKujiSet(maisu As Long)
Dim i As Integer
Dim xmax As Long
Dim ymax As Long
Dim xx As Long
Dim yy As Long
Dim rr As Long
'配置する範囲を取得
xmax = ActiveSheet.Range("A1:M30").Width
ymax = ActiveSheet.Range("A1:M30").Height
'乱数の生成
Randomize
For i = 1 To maisu
xx = Int((Rnd * xmax) + 1)
yy = Int((Rnd * ymax) + 1)
rr = Int((Rnd * 360) + 1)
Next
End Sub
|
|
|
|
|
|
|
|