Исключение проверки

Question

интересовался, может ли кто-нибудь помочь с созданием и исключением для определенного поля в моей пользовательской форме, в частности моего поля поиска для заполнения других полей в форме. Это не будет заполнено при отправке данных на лист. Заранее спасибо !!!!

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
        If Ctrl.Value = vbNullString Then
            MsgBox "You must complete all entries"
            Ctrl.SetFocus
            Exit Sub
        End If
    End If
Next Ctrl

Answer 1

Полагаю, вы хотите исключить одно текстовое поле из приведенного выше фрагмента кода.

Предположим, текстовое поле, которое вы хотите исключить, имеет имя txtSearch, тогда вы можете использовать следующий код

Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            If Ctrl.Name <> "txtSearch" Then
                If Ctrl.Value = vbNullString Then
                    MsgBox "You must complete all entries"
                    Ctrl.SetFocus
                    Exit Sub
                End If

            End If
        End If
    Next Ctrl