Excelで三角くじを作ってみよう

Option Explicit

'入力数値のチェック
Private Function MyGetSuchi(srange As String) As Long
On Error GoTo ErrOut
    MyGetSuchi = Range(srange)
    Exit Function
ErrOut:
    MyGetSuchi = 0
End Function

'作成開始ボタン
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
End Sub