Question

我遇到if语句的这个序列有问题。我得到的错误是：需要对象。我只是给出代码的相关区域，请假设所有变量都已正确定义。

For i = 6 To LastRow
    If Cell.Value("$I" & i) = "" Then
        Cell.Value("$I" & i) = Format(Now(), "MMM-DD-YYYY")
    ElseIf Cell.Value("$N" & i) = "" Then
        Cell.Value("$I" & i) = Application.WorksheetFunction.WorkDay("$J" & i + "$L" & i - 1, 1)
    End If
Next i

我无法让工作日功能正常工作。有什么想法吗？

Answer 1

让我们尝试添加一些修补程序：

For i = 6 To LastRow
    If Cells( i, "I").Value = "" Then
        Cells( i, "I").Value = Format(Now(), "MMM-DD-YYYY")
    ElseIf Cells( i, "N").Value = "" Then
        Cells( i, "I").Value = Format(Application.WorksheetFunction.WorkDay(Cells(i, "J").Value, 1), "MMM-DD-YYYY")
    End If
Next i

如果循环使用workday（）vba

1 个答案: