Bagaimana cara memeriksa apakah kotak teks dalam bentuk pengguna kosong atau tidak di Excel?
Jika Anda ingin memeriksa apakah kotak teks di userfom tertentu kosong atau tidak di Excel, metode dalam artikel ini dapat membantu Anda.
Periksa apakah kotak teks dalam bentuk pengguna kosong atau tidak dengan kode VBA
Periksa apakah kotak teks dalam bentuk pengguna kosong atau tidak dengan kode VBA
Kode VBA di bawah ini dapat membantu Anda untuk memeriksa apakah semua kotak teks dalam bentuk pengguna tertentu kosong atau tidak di Excel. Silakan lakukan sebagai berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela kode.
Kode VBA: Periksa apakah kotak teks dalam bentuk pengguna kosong atau tidak
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: Dalam kodenya, UserForm1 adalah nama userform yang berisi kotak teks yang akan Anda periksa.
3. tekan F5 kunci untuk menjalankan kode. Kemudian a Microsoft Excel kotak dialog muncul untuk memberi tahu Anda kotak teks mana yang kosong dan mana yang tidak kosong seperti gambar di bawah ini.
Artikel terkait:
- Bagaimana cara memeriksa apakah karakter pertama dalam sel adalah huruf atau angka di Excel?
- Bagaimana cara memeriksa apakah nilai sel di antara dua nilai di Excel?
- Bagaimana cara memformat kotak teks sebagai persentase di Excel?
- Bagaimana cara memilih teks secara otomatis dari kotak teks saat dipilih di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!