Làm cách nào để kiểm tra xem hộp văn bản trong biểu mẫu người dùng có trống hay không trong Excel?
Nếu bạn muốn kiểm tra xem hộp văn bản trong một userfom được chỉ định có trống hay không trong Excel, phương pháp trong bài viết này có thể giúp bạn.
Kiểm tra xem các hộp văn bản trong biểu mẫu người dùng có trống hay không bằng mã VBA
Kiểm tra xem các hộp văn bản trong biểu mẫu người dùng có trống hay không bằng mã VBA
Mã VBA dưới đây có thể giúp bạn kiểm tra xem tất cả các hộp văn bản trong một biểu mẫu người dùng được chỉ định có trống hay không trong Excel. Hãy làm như sau.
1. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ mã.
Mã VBA: Kiểm tra xem các hộp văn bản trong biểu mẫu người dùng có trống hay không
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
Chú thích: Trong mã, UserForm1 là tên của biểu mẫu người dùng chứa các hộp văn bản mà bạn sẽ kiểm tra.
3. Nhấn nút F5 phím để chạy mã. Sau đó a Microsoft Excel hộp thoại bật lên để cho bạn biết hộp văn bản nào trống và hộp nào không trống như hình minh họa bên dưới.
Các bài liên quan:
- Làm cách nào để kiểm tra xem ký tự đầu tiên trong ô là chữ cái hay số trong Excel?
- Làm thế nào để kiểm tra xem một giá trị ô có nằm giữa hai giá trị trong Excel hay không?
- Làm thế nào để định dạng một hộp văn bản dưới dạng phần trăm trong Excel?
- Làm cách nào để tự động chọn văn bản của hộp văn bản khi nó được chọn trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!