vba根据条件生成随机数

可以使用VBA中的Randomize和Rnd函数来生成随机数，并且可以通过条件来控制随机数的范围。以下是一个示例代码，可以根据输入的最小值和最大值生成指定范围内的随机数：

Sub GenerateRandomNumber()

    Dim minVal As Integer
    Dim maxVal As Integer
    Dim randomVal As Integer
    
    '获取用户输入的最小值和最大值
    minVal = InputBox("请输入最小值：")
    maxVal = InputBox("请输入最大值：")
    
    '生成随机数
    Randomize
    randomVal = Int((maxVal - minVal + 1) * Rnd + minVal)
    
    '输出随机数
    MsgBox "生成的随机数为：" & randomVal
    
End Sub

在这个示例中，用户可以通过输入框输入最小值和最大值，然后通过Randomize和Rnd函数来生成指定范围内的随机数，并将结果输出到消息框中。可以根据实际需求修改代码来满足不同的条件。