根據給定的WEEKNUM和WEEKDAY查找日期-VBA

Question

考慮到WEEKNUM和WEEKDAY，我正在嘗試尋找一種查找日期值的方法

例如

WEEKNUM = 9
WEEKDAY = 4   '(Wednesday)

我可以使用下面的函數從日期中查找WEEKNUM，但是我該如何反過來呢？

Function WEEKNUM(D As Date, FW As Integer) As Integer
     WEEKNUM = CInt(Format(D, "ww", FW))
End Function

Answer 1

您可以在隱藏的工作表上使用表格，而僅使用Vlookup查找正確的日期。 例如

DATE          WEEKDAY     WEEK NO    WEEKDAY + WEEK NO
01/03/2016    Tuesday     Week 10    Tuesday 10
02/03/2016    Wednesday   Week 10    Wednesday 10

在VBA中，您可以查找工作表的名稱，即工作日，並從工作簿的文件名中獲取星期數，然后使用vlookup查找正確的日期。

weekNum = Mid(ThisWorkbook.Name, 6, 2)
searchStr = ActiveSheet.Name & " " & weekNum & " " & Format(Now(), "YYYY")
rowNo = Application.WorksheetFunction.Match(searchStr, Sheets("WEEKLIST").Range("D:D"), 0)

strSubject = Format(Sheets("WEEKLIST").Range("A" & rowNo).Value, "DD/MM")