İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

İstifadəçi formadakı mətn qutularının boş və ya Excel-də olmadığını yoxlamaq üçün necə?

Müəyyən bir userfomdakı mətn qutularının boş və ya Excel-də olmadığını yoxlamaq istəyirsinizsə, bu yazıda göstərilən üsul sizə kömək edə bilər.

İstifadəçi formasında mətn qutularının boş və ya VBA kodu ilə yoxluğunu yoxlayın


İstifadəçi formasında mətn qutularının boş və ya VBA kodu ilə yoxluğunu yoxlayın


Aşağıdakı VBA kodu, müəyyən bir istifadəçi formundakı bütün mətn qutularının boş və ya Excel-də olmadığını yoxlamağa kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda kod penceresine kopyalayın.

VBA kodu: İstifadəçi formadakı mətn qutularının boş və ya yox olduğunu yoxlayın

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

QeydKod: UserForm1, kontrol edəcək mətn qutularını ehtiva edən istifadəçi formasının adıdır.

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Sonra a Microsoft Excel informasiya qutusu hansı mətn qutusunun boş olduğunu və ekran görüntüsünün aşağıda olduğu kimi boş olmadığını bildirmək üçün açılır.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.