Excelコンボボックス条件式空白を検出するIf文

Question

2つのコンボボックスでオプションが選択されているかどうかをテストするIf文を作成しています。チェックされているコンボボックスは2つの値を持つ配列から生成されます。これらのセルの1つは空白なので、コンボボックスの先頭の値は空白です。

私の文が
ある場合、配列は

Private Sub cbApplicationSelection_Change() 
    If (eMassWelcome.cbwesitechoose.text = "") Then 
    eMassWelcome.cbApplicationSelection.text = "" 
    MsgBox "A website has not been selected. Please select a website from the dropdown and try again." 
    End If 
    Exit Sub 
End Sub 

この作品です。

問題は、ポップアップが3回現れて、わからない理由です。私はIsNull()とlistindex = -1を試しました。 IsNull()が機能せず、リストインデックスが私に上記と同じ結果をもたらしました。これはすべてvbaで秀でています。

Answer 1

cbApplicationSelectionの変更イベントを配置しましたか？そうであれば、値を変更すると、変更イベントもトリガーされます。

Private Sub cbApplicationSelection_Change() 
    If eMassWelcome.cbwesitechoose.text = "" Then 
    MsgBox "A website has not been selected. Please select a website from the dropdown and try again." 
    End If 
Exit Sub 
End Sub