Ինչպե՞ս ստուգել, ​​թե օգտվողի ձևի տուփերը դատարկ են, թե ոչ Excel- ում:

Եթե ​​ցանկանում եք ստուգել, ​​թե նշված userfom- ում տեքստային տուփերը դատարկ են, թե ոչ Excel- ում, այս հոդվածի մեթոդը կարող է օգնել ձեզ:

Ստուգեք ՝ օգտագործողի ձևի տուփերը դատարկ են, թե ոչ ՝ VBA կոդով

Ստուգեք ՝ օգտագործողի ձևի տուփերը դատարկ են, թե ոչ ՝ VBA կոդով

Ստորև ներկայացված VBA կոդը կարող է օգնել ստուգել, ​​թե նշված օգտվողի ձևի բոլոր տուփերը դատարկ են, թե ոչ Excel- ում: Խնդրում եմ, արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդը ծածկագրի պատուհանում:

VBA կոդ. Ստուգեք ՝ օգտագործողի ձևի տուփերը դատարկ են, թե ոչ

Sub CheckTextBox()
    Dim fTextBox As Object
    Dim xTxtName As String
    Dim xEptTxtName As String
    For Each fTextBox In UserForm1.Controls
        If TypeName(fTextBox) = "TextBox" Then
            If fTextBox.Text = "" Then
                xEptTxtName = xEptTxtName & fTextBox.Name & " is empty" & vbNewLine
            Else
                xTxtName = xTxtName & fTextBox.Name & " is not empty" & vbNewLine
            End If
        End If
    Next
    If xEptTxtName <> "" Or xTxtName <> "" Then
        MsgBox xEptTxtName & vbNewLine & xTxtName
    End If
End Sub

ՆշումԿոդում UserForm1-ը օգտվողի ձևի անունն է, որը պարունակում է այն տեքստային տուփերը, որոնք դուք կստուգեք:

3. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո ա Microsoft Excel- ը Երկխոսության տուփը հայտնվում է, որպեսզի ձեզ ասի, թե որ տեքստային տուփն է դատարկ, և որը դատարկ չէ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը:

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ստուգել, ​​արդյոք բջջի առաջին նիշը Excel- ում տառ կամ թիվ է:
• Ինչպե՞ս ստուգել, ​​արդյոք բջջային արժեքը Excel- ում երկու արժեքի միջև է:
• Ինչպե՞ս ձևափոխել տեքստային տուփը որպես տոկոս Excel- ում:
• Ինչպե՞ս ավտոմատ կերպով ընտրել տեքստային տուփի տեքստը, երբ այն ընտրված է Excel- ում: