小编use*_*702的帖子

我已经创建了3个组合框,如下所示,它们可以从列表框中生成结果.如果3个组合框中的任何一个留空,我想生成一个错误框.但是,我编写的代码会生成多个错误消息框.我该怎么解决这个问题,所以msgbox只出现一次？

Private Sub Generateresults_Click()
Dim x As Integer
Dim i As Integer
Dim j As Integer
Dim p As Integer
p = Sheets("Training1A").UsedRange.Rows.Count
Sheets("Results").Range("A2:P" & p).ClearContents
x = 2
For i = 0 To Me.Listtest.ListCount - 1
    If Me.Searchoption = "AND" Then
        If Me.Listtest.Column(1, i) = Search1 And Me.Listtest.Column(2, i) = Search2 Then
            For j = 0 To 9
                Sheets("results").Cells(x, j + 1) = Me.Listtest.Column(j, i)
            Next j
            x = x + 1
        Else
            x = x
        End If

        ElseIf …