使用NETWORKDAYS的Excel VBA

我已经创建了一个子部分，用于检查列F中是否发生了更改，并将时间戳记写入列G中的相应单元格。我如何通过查找H列中的时间戳和包含一周开始日期A1的单元格之间的差异来编辑此子网以返回列H中的网络天数？没有VBA，公式是=ABS(NETWORKDAYS(A1, B1) - SIGN(NETWORKDAYS(A1, H1))。以下是我的代码到目前为止。任何帮助？使用NETWORKDAYS的Excel VBA

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim r As Range, c As Range 
    Application.EnableEvents = False 
    With Target 
    'check if change happened in column F 
    If .Column = 6 Then 
     'check if changed value is X 
     If Not IsEmpty(c) Then 
     'add datestamp if it is 
     Cells(.Row, 7).Value = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss") 
     Cells(.Row, 8).Value = ABS(NETWORKDAYS(G5,H2)-SIGN(NETWORKDAYS(G5,H2) 
     Else 
     'clear datestamp and Column H if not 
     Cells(.Row, 7).Value = "" 
     Cells(.Row, 8).Value = "" 
     End If 
    End If 
    End With 
    Application.EnableEvents = True 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim r As Range, c As Range 
    Dim d1 As Date, d2 As Date, wf As WorksheetFunction 
    Dim N As Long 

    Set wf = Application.WorksheetFunction 
    Application.EnableEvents = False 
    With Target 
    'check if change happened in column F 
    If .Column = 2 Then 
     'check if changed value is X 
     If Not IsEmpty(c) Then 
     'add datestamp if it is 
     d1 = Cells.Range("A1") 
     d2 = Cells.Range("B1:B2") 
     N = wf.NetworkDays(d1, d2) 
     Cells(.Row, 4).Value = N 

     Else 
     'clear datestamp and Colunm H if not 
     Cells(.Row, 4).Value = "" 
     End If 
    End If 
    End With 
    Application.EnableEvents = True 
End Sub

来源

2014-10-20 WKI

你在做什么？您的源代码在NETWORKDAYS行中没有匹配的右括号。 – ariscris 2014-10-20 13:28:12

datestamp按预期工作，但网络时间部分不是 – WKI 2014-10-20 14:20:42

我编辑了缩进，除了应检查的额外'End Sub'外。你不可能在屏幕上看到两个'Sub'和'End Sub'。 – hynekcer 2014-10-20 18:41:53

下面是如何使用NETWORKDAYS（）在VBA

Sub dural() 
    Dim d1 As Date, d2 As Date, wf As WorksheetFunction 
    Dim N As Long 
    Set wf = Application.WorksheetFunction 
    d1 = DateValue("1/1/2014") 
    d2 = DateValue("12/31/2014") 
    N = wf.NetworkDays(d1, d2) 
    MsgBox N 
End Sub

来源

2014-10-20 14:00:35

一次我清理您的缺口，很明显，你有一个“ End Sub“，在”Worksheet_Change“子文件中的”If“语句的中间。格式可以帮助你理解这种事情。

来源

2014-10-20 17:57:11

使用NETWORKDAYS的Excel VBA

回答

相关问题