VBA代码编辑E14等于E11E12E13的平均值

在VBA（Visual Basic for Applications）中，如果你想计算E11、E12 和 E13 单元格的平均值，并将结果赋值给 E14，你可以使用下面的公式：

Range("E14").Value = (Range("E11").Value + Range("E12").Value + Range("E13").Value) / 3

这个代码片段首先将三个单元格的数值相加，然后除以3得到平均值，最后将结果存储到 E14 单元格中。

如果你想要编写一个更通用的函数来做这个操作，可以创建一个名为`CalculateAverage`的自定义函数，如下所示：

Function CalculateAverage(RangeAddress As String) As Double
    Dim sum As Double
    sum = Range(RangeAddress).Value
    CalculateAverage = sum / 3
End Function

Range("E14").Value = CalculateAverage("E11:E13")

这里我们定义了一个接受范围地址作为参数的函数，然后在调用时传入"E11:E13"。这样，如果需要更改计算区域，只需修改函数调用处的参数即可。

相关问题

把以下E11-E14单元格修改为在数据配置工作表中的E11-E14单元格 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Dim startDate As Date Dim endDate As Date startDate = DateSerial(Year(Date), Month(Date), Day(Date) - 3) endDate = Date Range("E11").Value = Format(startDate, "yyyy-mm-dd") Range("E12").Value = Format(startDate + 1, "yyyy-mm-dd") Range("E13").Value = Format(startDate + 2, "yyyy-mm-dd") Range("E14").Value = Format(endDate, "yyyy-mm-dd") End If End Sub

修改后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        Dim startDate As Date
        Dim endDate As Date
        
        startDate = DateSerial(Year(Date), Month(Date), Day(Date) - 3)
        endDate = Date
        
        Range("E11").Value = Format(startDate, "yyyy-mm-dd")
        Range("E12").Value = Format(startDate + 1, "yyyy-mm-dd")
        Range("E13").Value = Format(startDate + 2, "yyyy-mm-dd")
        Range("E14").Value = Format(endDate, "yyyy-mm-dd")
    End If
End Sub

这段代码的作用是在数据配置工作表中的B2单元格发生变化时，自动更新E11-E14单元格的值。其中，startDate代表开始日期，endDate代表结束日期。在代码中，startDate的值为当前日期往前推3天，endDate的值为当前日期。Range函数用于设置单元格的值，Format函数用于格式化日期。

以下代码中自动筛选页工作表B2单元格发生变化时，把数据输出到数据配置工作表中E11-E14单元格中 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Dim startDate As Date Dim endDate As Date startDate = DateSerial(Year(Date), Month(Date), Day(Date) - 3) endDate = Date Range("E11").Value = Format(startDate, "yyyy-mm-dd") Range("E12").Value = Format(startDate + 1, "yyyy-mm-dd") Range("E13").Value = Format(startDate + 2, "yyyy-mm-dd") Range("E14").Value = Format(endDate, "yyyy-mm-dd") End If End Sub

这段代码是用 VBA 在 Excel 中编写的，用于在自动筛选页工作表B2单元格发生变化时，将数据输出到数据配置工作表中E11-E14单元格中。具体来说，当B2单元格发生变化时，会触发 Worksheet_Change 事件，然后会执行代码中的 if 语句。如果变化的单元格是B2，则定义了两个日期变量：startDate 和 endDate。startDate 的值为当前日期减去3天，endDate 的值为当前日期。接下来，代码将 startDate 和 endDate 格式化为字符串，并将它们分别赋值给数据配置工作表中的 E11-E14 单元格。最后，代码执行完毕。