具有公司假期的Excel VBA Networkdays，無法獲取Networkdays屬性

Question

在我的宏中，我計算了兩個日期之間的網絡日，但它還應包括公司假期。

所以對於我的代碼：

With MasterWB.Worksheets("Company Holidays")
    .Activate
    Holidaylist = .Range("H:H").Value
End With

If (Application.WorksheetFunction.NetworkDays(date1, date2, Holidaylist) > 14) Then
 'do something
End If

錯誤顯示它無法獲取worksheetfunction屬性，但無法弄清原因。 文檔顯示，在包含公司假期的給定單元格范圍內，應該是可行的。

編輯

date1和date2是正常的日期值，例如 date （今天）和2019/09/19是我的工作表中的一個范圍，其中包含date值，例如

2019/8/10
2019/8/11
2019/8/12

Answer 1

我認為問題在於第三個參數包含其他數據，例如，標題行（如（假日日期））。 如果您知道假期的確切位置，則應在較小范圍內輸入，例如B2：B10。

如果您不知道它是否可以更改，則可以使用.End和.Resize函數確定范圍。 讓我們假設您在B1中有“假日日期”，第一個實際日期在B2中，而所有其他日期都在它下面的連續行中。 在這種情況下，您應該使用以下內容來設置假期列表：

Holidaylist = .Range(.Range("B2"), .Range("B1").End(xlDown)).Value