Comboboxメッセージボックスの[はい]ボタンを押した後に表示されるメッセージ

Question

If MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbNo Then 
MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation") 

If MSG4 = vbYes Then 
Related_to.Show 

If Me.Related_to.Value = Royalties Then 
MsgBox ("Whatever") 
End If 

Answer 1

更新されたコードでは、次の調整が必要です。これがあなたが探しているものでない場合は、実際の質問を含めるように質問を更新してください。

Sub Test() 

    If MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbNo Then 
     MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation") 

    ElseIf MSG4 = vbYes Then 
     Related_to.Show 

    ElseIf Me.Related_to.Value = Royalties Then 
     MsgBox ("Whatever") 
    End If 

End Sub 

Answer 2

サブaccount_validation_Issued整数、文字列としてMSForms.ReturnString、ロングとしてByVal SCODE、ByValのソースとしてByValの説明として、（）

MSG1 = MsgBox("Is the invoice X Related?", vbYesNo, "Account Validation") 
MSG2 = MsgBox("Is the invoice ECD?", vbYesNo, "Account Validation") 
MSG3 = MsgBox("Is the invoice Project related?", vbYesNo, "Account Validation") 

If MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbYes Then 
MsgBox ("Unvalid answer combiantion") 

ElseIf MSG1 = vbYes And MSG2 = vbYes And MSG3 = vbYes Or MSG1 = vbYes And MSG2 = vbNo And MSG3 = vbYes Then 
MsgBox ("Projects: XXXX") 

ElseIf MSG1 = vbYes And MSG2 = vbYes And MSG3 = vbNo Or MSG1 = vbYes And MSG2 = vbNo And MSG3 = vbNo Then 
MsgBox ("Projects: XXXX") 

ElseIf MSG1 = vbNo And MSG2 = vbNo And MSG3 = vbNo Then 
MsgBox ("Projects: XXXX") 

ElseIf MSG1 = vbNo And MSG2 = vbNo And MSG3 = vbYes Then 
MsgBox ("Unvalid answer combiantion") 

ElseIf MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbNo Then 
MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation") 

Related_to.Show 

End If 

End Subの

ます。Private Sub UserForm_Error（ByValの番号、 ByVal HelpFileをStringとして、ByVal HelpContextをLongとしてByVal CancelDisplayとしてMSForms.ReturnBoolean）

Select Case Me.MyCombo C ASE "ロイヤルティ" のMsgBox "上記目標性能のコメントを入力してください"

MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation") 

If MSG4 = vbYes And Me.Related_to.Value = Royalties Then 

    MsgBox ("Whatever") 
End If 

End Subの