把以下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
时间: 2023-06-19 15:08:53 浏览: 88
修改后的代码如下:
```
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函数用于格式化日期。
阅读全文