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

在Excel中使用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`宏名来运行它。

相关问题

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

在Excel中，你可以使用VBA（Visual Basic for Applications）来编写一段宏，实现这个功能。以下是一个简单的示例：

Sub GenerateDecimal()
    Dim minValue As Double
    Dim maxValue As Double
    Dim result As String

    ' 获取B1和B2的值
    minValue = Range("B1").Value
    maxValue = Range("B2").Value
    
    ' 计算范围并四舍五入到小数点后两位
    result = Format((maxValue - minValue) / (maxValue * 0.01), "0.00")
    
    ' 将结果存储在C1
    Range("C1").Value = result
End Sub

这段代码首先定义了变量`minValue`和`maxValue`分别存储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之间的一个随机数，保留了两位小数。