VBA Generic code

Sub Rand_1() '任意の最小値と最大値間の値をランダムに表示する。

    Const conMin As Long = 1    '最小値（1以上、最大値以下の整数）
    Const conMax As Long = 40   '最大値（1以上、最小値以上の整数）
    '--------------------------
    Dim lngRnd As Long
    Dim lngCount As Long
    Dim lngValue() As Long
    Dim bolFlg() As Boolean
    Dim varData As Variant

    Randomize
    lngCount = conMin
    ReDim bolFlg(conMin To conMax)
    ReDim lngValue(conMin To conMax)
    ReDim varData(conMin To conMax, 1 To 1)
    Do
        lngRnd = Int((conMax - conMin + 1) * Rnd()) + conMin '乱数取得
        If bolFlg(lngRnd) = False Then
            bolFlg(lngRnd) = True
            lngValue(lngCount) = lngRnd
            lngCount = lngCount + 1
            If conMax < lngCount Then Exit Do
        End If
    Loop
    For lngCount = conMin To conMax
        varData(lngCount, 1) = lngValue(lngCount)
    Next
    With Application
        .ScreenUpdating = False
        .Range(.Cells(1, 1), .Cells(conMax - conMin + 1, 1)).Value = varData
        .ScreenUpdating = True
    End With
End Sub

Sub Get_Rnd()
    Const MinNum As Long = -10 '最小値
    Const MaxNum As Long = 10 '最大値
    Const conRange As String = "A1" '書き出しセル
'---------------------------------------------------

    If MaxNum < MinNum Then Exit Sub
    Randomize
    Range(conRange).Value = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)
End Sub