vba生成一个随机数，要求保存到小数点后两位，区间为B1B2输入的值

在VBA中，如果你想要生成一个小数点后两位的随机数，其取值范围基于B1和B2单元格的值，可以按照以下步骤编写代码：

Sub GenerateRandomBetweenB1andB2()
    Dim rngMin As Double, rngMax As Double
    Dim randomNumber As Double
    rngMin = Range("B1").Value ' 获取B1单元格的值
    rngMax = Range("B2").Value ' 获取B2单元格的值
    If rngMax < rngMin Then ' 确保上限大于下限
        MsgBox "B2的值不能小于B1的值", vbExclamation
        Exit Sub
    End If
    randomNumber = Round((rngMax - rngMin) * Rnd + rngMin, 2) ' 生成随机数，Round函数用于保留小数点后两位
    Range("C1").Value = randomNumber ' 将结果保存到C1单元格
End Sub

这段代码首先获取B1和B2的值，然后检查它们是否满足条件（B2大于B1）。接着，它会生成一个在B1和B2之间的随机数，保留两位小数，最后将结果放在C1单元格。