vba - 将上周的日期替换为本周的日期

Question

我正在尝试使用 vba 将上周的日期替换为本周的日期来更新数字。我已经尝试过以下方法，但我认为我不理解替换函数在 VBA 中的工作原理。

Dim lastweek As String
lastweek = Format(Now - 7, "yyyymmdd")
Dim thisweek As String
thisweek = Format(Now, "yyyymmdd")
Replace (lastweek,lastweek,thisweek)

此外，我是否使用了上周的正确公式来提取 7 天前的日期？

Answer 1

将上周转换为日期并添加 7 天，以获得下周值

Function MyWeek(lastweek As String) As String
lw = DateSerial(CInt(Left(lastweek, 4)), CInt(Mid(lastweek, 5, 2)), CInt(Right(lastweek, 2)))
MyWeek = Format(lw + 7, "yyyymmdd")
End Function

然后使用，

=REPLACE(A1,SEARCH("2*]",A1,1),8,Myweek(MID(A1,SEARCH("2*]",A1,1),8)))

用新日期替换日期，假设要替换的字符串位于单元格 A1