excel - Excel VBA - 別のフィールドの値に基づいて複数のフィールドを必須にする

Question

フォームに入力された値に基づいて送信ボタンを使用して Outlook で電子メールを生成する VB を使用して Excel でリクエスト フォームを作成しました。

すべて正常に動作します。ただし、ユーザーは要求を送信する前に必要なフィールドをすべて入力しないことがよくあります。

ユーザーが要求を送信する前にセル D7 に特定の値が入力されたときに、ユーザーがすべての必須フィールドに入力していることを確認する必要があります。

ここで迷子になります... 2 つの少し異なる方法でアプローチしてみました。

うまくいけば、誰かがこれで私を助けることができます!

アプローチ 1:

送信ボタンを押すと…

Button_click()

If Range("D7").Value = "Special Request" THEN
'Make cells B6, B7, B8, B9, D14 mandatory in order to generate email 

    On Error Resume Next
    If ThisWorkbook.Worksheets("Request").Range _
    ("B6, B7, B8, B9, D14 ") Is Nothing Then

    MsgBox ("Please confirm all required fields have been completed!")

'Do not generate email

---

アプローチ 2:

送信ボタンを押すと…

Button_click()


'If the value of cell D7 is ANYTHING OTHER THAN "Special Feature", 
'execute code as normal to generate email

'Else, check for empty fields in the required cells ("B6, B7, B8, B9, D14 ") 

'if any required cells are empty, display message and do not generate email    
MsgBox ("Please confirm all required fields have been completed!")   

'If D7 = "Special Feature" AND NO REQUIRED FIELDS ARE MISSING, 
'continue with executing code to     generate email