web-dev-qa-db-ja.com

Excel VBAのIFステートメントの複数の条件

おそらく簡単なものですが、私のprogスキルは限られています。私はアカウント入力ツールを作成しましたが、2つのタイプがある支出タイプのクレジット金額を入力した場合にユーザーに警告します。 「Restricted_Expenditure」と「Unrestricted Expenditure」。通常、このタイプの値は借方にする必要があります。

私はそれをステートメントの1つのタイプで機能させることができますが、「または」ステートメントで他の支出タイプを追加する場合はできません。

助けていただければ幸いです-私が使用できる「Or If ...」タイプの関数はありますか?

私のコードは

If inputWks.Range("d9") > 0 And inputWks.Range("d11") = "Restricted_Expenditure" Or "Unrestricted_Expenditure" Then

Dim Response As Integer

 Response = MsgBox(Prompt:="You've entered a credit amount against an expenditure type.  If this is correct then press 'Yes' or else press 'No' to change", Buttons:=vbYesNo)

If Response = vbYes Then

GoTo Line1

Else

Exit Sub

End If
4
Mark Tennant

VBAではif jj = 5 or 6 thenは使用できませんif jj = 5 or jj = 6 thenを使用する必要があります

多分これ:

If inputWks.Range("d9") > 0 And (inputWks.Range("d11") = "Restricted_Expenditure" Or inputWks.Range("d11") = "Unrestricted_Expenditure") Then
8
Fadi