vba - 如果条件不满足但代码仍然执行

Question

我对下面的这段代码有一点挑战。 If 子句中的条件不满足，但代码仍会触发。有人知道我能做些什么吗？ (我已经尝试过使用 If Not 语句，但这也不起作用。)

这应该是我的学习和/或我在空闲时间所做的工作的一个小工作时间跟踪器。

Option Explicit
Dim Timestamp As Date
Dim myProject As String
Dim myWTI As Integer
Dim myPayment As String
Dim myPaymentDetail As String
Dim i As Integer
Public Sub StartTime()

Application.ScreenUpdating = False

myProject = [cell_Project]
myWTI = [cell_WorktimeInterval]
myPayment = [cell_Payment]
myPaymentDetail = [cell_Paymentdetail]

If myWTI Or myProject = Empty Then
    MsgBox "No Project and/or WTI chosen.", vbCritical, "Error: No Project/WTI"
    Exit Sub
Else (rest of the code - this runs perfectly fine without this If-clause)

Answer 1

在 VBA 中，您不能编写类似

If myWTI Or myProject = Empty Then

那没有任何意义。
你需要这样的东西:

If myWTI = 0 Or myProject = "" Then

另请注意，myInt 被声明为 Integer，而 myProject 被声明为 String。因此，它们不能为“null”或“empty”，它们总是需要分配一个值，例如 0 或“”。