如果不满足条件，但代码执行

下面的代码我有一个轻微的挑战。 If条件中的条件不符合，但是代码触发。 任何人都知道我能做些什么吗？ （我已经尝试了If If Not Statement，但是这也不行。）

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

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。 因此，它们不能是“空”或“空”，它们总是需要分配一个值，如0或“”。