网络天数不包括假日，但另一个工作簿中的假日数据
网络天数不包括假日，但另一个工作簿中的假日数据
提问于 2020-06-25 10:01:17
Sub duration()
Dim lr As Long
Dim ws As ThisWorkbook
Set ws = ThisWorkbook
ls = Sheets("COBACOBA").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To ls
Cells(i, 29).Formula = Application.WorksheetFunction.NetworkDays_Intl(CDate(Cells(i, 16)), CDate(Cells(i, 28)))
Next i
End Sub我必须找出两个日期之间的工作天数，这应该不包括周末和国定假日。我在vba中使用函数NETWORKDAYS，这不包括周末，但我也想排除一些国庆节。如何使用这个函数NETWORKDAYS(startDate，endDate，holidays)来过国庆节。但是我的节假日列表是在另一个excel文件中，如何将数据从我的holiday.xlsx输入到我的vba
Sub duration()
Dim ws As ThisWorkbook
Set ws = ThisWorkbook
Dim wk As Workbook
lr = Sheets("COBACOBA").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lr
Cells(i, 29).Formula = Application.WorksheetFunction.NetworkDays_Intl(CDate(Cells(i, 16)), CDate(Cells(i, 28)), , Workbooks("Holiday.xlsx").Worksheets("Hol").Range("A2:A56"))
Next i
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2020-06-25 15:36:06
子持续时间()
Dim ws As ThisWorkbook Set ws = ThisWorkbook
Dim wk As Workbook
lr = Workbooks("Holidays.xlsx").Worksheets("Hol").Range("A2:A56")) (“COBACOBA”).Range(“A”& Rows.Count).End(xlUp).Row For i=2 To lr Cells(i，29).Formula =Sheets 16)，CDate(Cells(i，28))，，Sheets Next i
结束子对象
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/62566759
复制相关文章
相似问题
腾讯云开发者
