Ինչպե՞ս ստուգել, թե օգտվողի ձևի տուփերը դատարկ են, թե ոչ 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
Note: In the code, UserForm1 is the name of the userform which contains the textboxes you will check.
3. Press the F5 key to run the code. Then a Microsoft Excel dialog box pops up to tell you which textbox is empty and which is not empty as below screenshot shown.
Related articles:
- How to check if first character in a cell is a letter or number in Excel?
- How to check if a cell value is between two values in Excel?
- How to format a textbox as a percentage in Excel?
- How to auto select text of a textbox when it is selected in Excel?
The Best Office Productivity Tools
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
- Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
