EXCEL中B1为最小值,B2为最大值,用vba生成一个B1与B2之间的随机数,要求小数点后保存两并放到C1
时间: 2024-10-20 11:06:51 浏览: 32
1_1. 产生100个随机数_求其最小值和最大值以及平均值_
5星 · 资源好评率100%
在Excel VBA中,你可以通过以下步骤来生成B1到B2之间的随机数,并保留两位小数并将其存储在C1单元格:
1. 首先,打开Visual Basic编辑器,可以通过按下`Alt + F11`快捷键来访问。
2. 在VBA编辑器的左侧窗格中,找到并双击"Sheet1"(如果随机数是在当前活动工作表上),这将插入一个新的模块。
3. 然后,在右侧的代码编辑窗口中,输入下面的VBA代码:
```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之间的一个随机数,保留了两位小数。
阅读全文