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单元格。

相关问题

EXCEL中B1为最小值，B2为最大值，用vba生成一个B1与B2之间的随机数，要求小数点后保存两并放到C1

在Excel VBA中，你可以通过以下步骤来生成B1到B2之间的随机数，并保留两位小数并将其存储在C1单元格：

1. 首先，打开Visual Basic编辑器，可以通过按下`Alt + F11`快捷键来访问。

2. 在VBA编辑器的左侧窗格中，找到并双击"Sheet1"（如果随机数是在当前活动工作表上），这将插入一个新的模块。

3. 然后，在右侧的代码编辑窗口中，输入下面的VBA代码：

Sub GenerateRandomNumber()
    Dim rng As Range
    Dim randomNum As Double
    Set rng = Range("B1:B2") ' 定义范围
    randomNum = Application.WorksheetFunction.Rnd() * (rng.Cells(2, 1) - rng.Cells(1, 1)) + rng.Cells(1, 1) ' 生成随机数
    FormatNumber randomNum, 2 ' 保留两位小数
    Cells(1, 3).Value = randomNum ' 将结果写入C1
End Sub

4. 按下 `F5` 或者点击工具栏上的 "运行" 按钮来执行这段代码，C1单元格就会显示B1和B2之间的一个随机数，保留了两位小数。

在一个区间内去10个随机数包含小数保存两位小数

要在一个区间内生成10个包含两位小数的随机数，并将其保存到列表中，可以使用 random 模块和 round 函数。

下面是一个示例代码，可以生成10个在区间 [start, end] 内的两位小数，并将其保存到列表中：

import random

start = 0.0  # 区间起始值
end = 1.0  # 区间结束值

random_numbers = [round(random.uniform(start, end), 2) for _ in range(10)]
print(random_numbers)

在这个示例中，我们使用了列表推导式来生成包含10个两位小数的列表。每次循环时，uniform 函数会生成一个在 start 和 end 之间的随机小数，然后使用 round 函数将其四舍五入到两位小数，并将其添加到列表中。

你可以根据需要调整起始值和结束值，并且可以使用这种方法生成任意数量的两位小数。