VBA 随机生成 4、8 或 9 的值

在 VBA 中，可以使用 Rnd 函数来生成随机数。下面是一个生成随机数等于 4、8 或 9 的 VBA 代码示例：

Sub RandomValue()
    Dim value As Integer
    
    Randomize ' 初始化随机数生成器
    
    ' 生成随机数，范围在 1 到 3 之间
    value = Int((3 - 1 + 1) * Rnd + 1)
    
    ' 根据随机数的值，确定最终的结果
    Select Case value
        Case 1
            value = 4
        Case 2
            value = 8
        Case 3
            value = 9
    End Select
    
    MsgBox '随机值为: ' & value
End Sub

运行上述代码，将会生成一个随机值等于 4、8 或 9，并通过消息框显示结果。每次运行代码，得到的随机值可能不同。