私は以下のコードで少し挑戦しています。 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)
@DirkReichel - ありがとうございましたが、SQLGeorgeが私が探していた答えがありました。私は単に異なるデータ型を忘れていました。 – Sythr
ああ...別の方法でもコードが間違っていました...もし 'myWTI * Len(myProject)Then Then'がその場合にはうまくいくでしょう:P(' Then'と 'Else'部分を入れ替える必要があります) –
もう一度そのようなもので汚い仕事をする必要があるなら、私はそれを念頭に置いておきます。 :) – Sythr