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之间的一个随机数，保留了两位小数。

相关问题

excel中，B1为最大值，B2为最小值，使用vba生成9个小数点后保留两位的随机数，要求在最大值与最小值之间，且9个数最大变化范围不能超过0.04并填到C4-C12中

在Excel VBA中，你可以通过以下步骤生成满足条件的随机数：

1. 首先，我们需要获取`B1`和`B2`单元格的实际数值。假设`B1`存储的是最大值`MaxValue`，`B2`存储的是最小值`MinValue`。

Dim MaxValue As Double
Dim MinValue As Double
MaxValue = Range("B1").Value
MinValue = Range("B2").Value

2. 接着，我们需要计算允许的最大差值，即0.04除以你要生成的随机数的数量（这里是8，因为从C4到C12共9个位置减去已知的两个）。我们将这个差值平均分配给每个随机数。

Dim Delta As Double
Delta = 0.04 / (Range("C12").Row - Range("C4").Row + 1)

3. 然后我们创建一个循环来生成随机数，并确保它们落在指定范围内，包括最大值和最小值，以及每步不超过`Delta`的变化：

For i = 4 To 12 ' 使用Range("C4").Row到Range("C12").Row
    Dim RandomNum As Double
    RandomNum = MinValue + ((MaxValue - MinValue) * Rnd()) ' Rnd()生成[0,1)内的随机数
    RandomNum = Round(RandomNum, 2) ' 四舍五入到小数点后两位
    If RandomNum < MinValue Or RandomNum > MaxValue Then ' 如果不在范围内，则重新生成
        RandomNum = MinValue + ((MaxValue - MinValue) * Rnd())
        RandomNum = Round(RandomNum, 2)
    End If
    Cells(i, 3).Value = RandomNum ' 填充到C列对应行
Next i

excel中，B1为最大值，B2为最小值，使用vba生成9个随机数，要求在最大值与最小值之间，且9个数极差不能超过0.04

在Excel中，可以使用VBA编写一段代码来生成符合条件的随机数。这里是一个例子，假设B1单元格存储的是最大值，B2单元格存储的是最小值，我们想要生成9个在两者之间的随机数，且它们的极差不超过0.04：

Sub GenerateRandomNumbersInRange()
    Dim rngMax As Range
    Set rngMax = Range("B1") ' 最大值所在的单元格
    Dim rngMin As Range
    Set rngMin = Range("B2") ' 最小值所在的单元格
    Dim randomArray(1 To 9) As Double ' 用于存放随机数的数组
    Dim diff As Double
    Dim totalDiff As Double
    Dim i As Integer
    
    ' 获取最大值和最小值
    Dim maxValue As Double
    maxValue = rngMax.Value
    Dim minValue As Double
    minValue = rngMin.Value
    
    ' 计算允许的最大极差，0.04加上两个端点的差值
    diff = 0.04 + maxValue - minValue
    totalDiff = 0 ' 初始化总差值
    
    For i = 1 To 9
        ' 生成一个随机数并检查是否超出范围
        Do While totalDiff > diff
            randomArray(i) = minValue + Rnd() * (maxValue - minValue) ' 生成随机数
            totalDiff = WorksheetFunction.AverageAbs(randomArray) ' 计算平均绝对偏差
        Loop
    Next i
    
    ' 输出随机数组
    Dim j As Integer
    For j = LBound(randomArray) To UBound(randomArray)
        Debug.Print randomArray(j), " "
    Next j
End Sub

这段代码通过循环确保每次添加的随机数都不致于使整个序列的极差超过0.04。