帮我用VBA写一个获取本年本月前三天至今天的日期到E11-E14单元格中，且以5.1日期格式输出

请尝试以下代码，它会将本年本月前三天至今天的日期以5.1日期格式输出到 E11-E14 单元格中：

Sub GetDate()
    Dim i As Integer
    For i = 0 To 3
        Range("E11").Offset(i, 0).Value = Format(Date - i, "d.m")
        Range("E11").Offset(i, 0).NumberFormat = "[$-F800]d.m"
    Next i
End Sub

代码中 `Range("E11").Offset(i, 0).Value = Format(Date - i, "d.m")` 用于计算日期，`Range("E11").Offset(i, 0).NumberFormat = "[$-F800]d.m"` 用于将日期以 5.1 日期格式输出到单元格中。

相关问题

帮我用VBA写一个获取本年本月前三天至今天的日期到E11-E14单元格中

以下是VBA代码：

Sub GetDate()

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 Sub

这段代码将本年本月前三天至今天的日期分别存储在E11-E14单元格中。可以将代码复制到VBA编辑器中，并在需要的时候运行它。

帮我用VBA写一个获取本月前三天至今天的日期到E11-E14单元格中，且以5.1日期格式输出

以下是VBA代码：

Sub GetDates()
    Dim i As Integer
    For i = 0 To 3
        Range("E" & (i + 11)).Value = Format(Date - i, "m.d")
    Next i
    Range("E11:E14").NumberFormat = "m.d"
End Sub

这段代码将会在E11-E14单元格中输出本月前三天至今天的日期，格式为5.1式日期格式。