以下代码中自动筛选页工作表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 单元格。最后，代码执行完毕。