EXCEL中B1为最小值,B2为最大值,用vba生成一个最大值与最小值之间的小数点后保存两位的小数存放到C1
时间: 2024-10-20 20:06:50 浏览: 26
Excel-VBA宏编程实例源代码-自定义函数-获取指定数值之间的最大值.zip
在Excel中使用VBA编写一个宏来完成这个任务很简单。你可以创建一个自定义函数或直接在工作簿级别编写代码。下面是一个简单的例子:
```vba
Function MidRange(num1 As Double, num2 As Double) As Double
MidRange = Round((num2 - num1) / 100 * 100, 2)
End Function
Sub GenerateMidValue()
Dim minVal As Double, maxVal As Double
'假设B1是最小值,B2是最大值
minVal = Range("B1").Value
maxVal = Range("B2").Value
'计算并存储到C1
Range("C1").Value = MidRange(minVal, maxVal)
End Sub
```
这个宏首先定义了一个名为`MidRange`的函数,它接收两个数值作为输入,计算它们差值的一半,并四舍五入保留两位小数。然后`GenerateMidValue`宏会获取B1和B2的值,调用`MidRange`函数,并将结果写入C1。
要在VBA编辑器中运行这个代码,你需要先按下`Alt + F11`打开VBA编辑器,插入一个新的模块(Module),粘贴上述代码,然后双击`GenerateMidValue`宏名来运行它。
阅读全文