IsEmpty adalah fungsi lembaran kerja yang digunakan untuk mengetahui sama ada rujukan sel yang diberikan atau julat sel kosong atau tidak kerana ini adalah fungsi lembaran kerja sehingga untuk menggunakannya di VBA kita menggunakan Aplikasi. Kaedah lembaran kerja di VBA untuk menggunakan fungsi ini, fungsi ini berada di bawah senarai fungsi logik dan kembali benar jika rujukan kosong.
Fungsi VBA IsEmpty
VBA IsEmpty adalah fungsi logik yang menguji sama ada yang dipilih kosong atau tidak. Oleh kerana ia adalah fungsi logik, ia akan mengembalikan hasilnya dalam nilai Boolean iaitu BENAR atau SALAH.
Sekiranya sel yang dipilih kosong, ia akan kembali BETUL atau yang lain akan mengembalikan SALAH.
Dalam artikel ini, kami akan menunjukkan kepada anda cara menggunakan fungsi "ISEMPTY" di VBA untuk memeriksa sel menggunakan kod VBA.
Apa Fungsi ISEMPTY dalam VBA?
Selalunya sel kosong mengecewakan kita untuk bekerja dengan cekap dalam lembaran kerja. Mencari sel kosong bukanlah yang paling sukar tetapi jika sel kosong menyembunyikannya di tengah-tengah data maka memerlukan tol untuk mencari mereka.
Untuk mencari sel kosong di excel kita mempunyai fungsi yang disebut "ISBLANK" sebagai fungsi lembar kerja tetapi dalam VBA disebut "ISEMPTY".
Ini berfungsi sama dengan fungsi lembaran kerja "ISBLANK". Sekarang perhatikan formula fungsi “ISEMPTY” di bawah ini.
Seperti yang dapat kita lihat pada gambar di atas, ia mengembalikan hasilnya sebagai Boolean iaitu BENAR atau SALAH.
Contoh Fungsi ISEMPTY dalam VBA
Berikut adalah contoh IsEmpty dalam VBA.
Contoh # 1
Sekarang kita akan melihat contoh praktikal pertama "ISEMPTY". Untuk ini lihat gambar lembaran kerja di bawah.
Sekarang kita akan menerapkan fungsi excel VBA ISEMPTY untuk menguji semua ini.
Langkah 1: Tentukan pemboleh ubah sebagai Boolean .
Kod:
Sub IsEmpty_Contoh1 () Dim K Sebagai Sub Boolean End
Langkah 2: Untuk pemboleh ubah ini tetapkan nilai melalui fungsi VBA ISEMPTY .
Kod:
Sub IsEmpty_Contoh1 () Dim K Sebagai Boolean K = IsEmpty (Sub Akhir
Langkah 3: Ekspresi tidak lain adalah sel yang sedang kita uji. Sekarang kita menguji sel A1 sel .
Kod:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Julat ("A1"). Nilai) Akhir Sub
Langkah 4: Tunjukkan nilai pemboleh ubah ini di Kotak Pesan VBA .
Kod:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Julat ("A1"). Nilai) MsgBox K Akhir Sub
Jalankan kod ini untuk memeriksa hasilnya.
Oleh kerana terdapat nilai dalam sel A1, kami mendapat hasilnya sebagai PALSU.
Sekarang saya akan menukar rujukan sel dari A1 ke A5.
Kod:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Julat ("A5"). Nilai) MsgBox K Akhir Sub
Jalankan kod ini untuk melihat hasilnya.
Kami mendapat hasilnya sebagai BENAR sel A5 yang dirujuk sebenarnya adalah sel kosong sehingga kami mendapat hasilnya sebagai "BENAR".
Sekarang saya akan menguji sel A8.
Kod:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Julat ("A8"). Nilai) MsgBox K Akhir Sub
Jalankan kod ini untuk melihat hasilnya.
Oh !!! Tunggu…
Kami mendapat hasilnya sebagai PALSU walaupun tidak ada nilai dalam sel A8.
Sekarang persoalannya apakah ini hasil ralat dari formula "ISEMPTY" ?.
Tidak … Sama sekali tidak !!!
Semasa saya cuba memeriksa sel A8 sebenarnya terdapat watak ruang di dalam sel yang tidak mudah dilihat dengan mata kasar.
Jadi kesimpulannya ialah Space dianggap sebagai watak dalam bahasa excel dan VBA.
Contoh # 2 - Gabungan ISTIMEWA VBA dengan Keadaan IF
Sebenarnya, penggunaan sebenar fungsi "ISEMPTY" sangat mengagumkan ketika kita menggunakannya dengan fungsi logik yang lain.
Terutama apabila kita menggunakannya dengan keadaan JIKA kita dapat memperoleh banyak hasil yang berguna daripadanya.
Untuk demonstrasi ini lihat contoh di bawah.
Di lajur Status, jika kolom "Status PF" kosong, kita memerlukan nilainya sebagai "Tidak ada Pembaruan", dan jika ada nilai, kita memerlukan nilai sebagai "Kemas Kini yang Dikumpulkan".
Ingat di sini kita tidak memerlukan hasil lalai dari BENAR atau SALAH. Kita memerlukan hasil kita sendiri di sini, untuk mendapatkan hasil kita sendiri, kita perlu menggunakan Excel VBA ISEMPTY dengan keadaan IF.
Step 1: Open IF condition.
Code:
Sub IsEmpty_Example2() If End Sub
Step 2: Inside the IF condition open ISEMPTY function.
Code:
Sub IsEmpty_Example2() If IsEmpty( End Sub
Step 3: The first logical test is cell B2 value is empty or not.
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then End Sub
Step 4: If the logical test in excel vba is TRUE i.e., if the cell is empty, we need the result as “No Update” in cell C2.
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" End Sub
Step 5: If the logical test is FALSE, we need the result in cell C2 as “Collected Updates.”
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collects Updates" End If End Sub
Ok, we are done.
Run the code to get the result.
We got the result as “Collected Updates” because we have the non-empty cell in B2.
Now similarly apply the code for other cells to test.
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collects Updates" End If If IsEmpty(Range("B3").Value) Then Range("C3").Value = "No Update" Else Range("C3").Value = "Collected Updates" End If If IsEmpty(Range("B4").Value) Then Range("C4").Value = "No Update" Else Range("C4").Value = "Collected Updates" End If End Sub
Run this code to have the results.
In cell C3 we got the result as “No Update” because there is no value in cell B3 i.e. Empty Cell. Since the logical formula returned TRUE we got the respective result.
Example #3 - Alternative to VBA ISEMPTY Function
Kami mempunyai alternatif untuk fungsi ISEMPTY, tanpa menerapkan fungsi excel VBA ISEMPTY kita sebenarnya dapat menguji sel.
Sebagai contoh, lihat kod di bawah.
Kod:
Sub IsEmpty_Example3 () Jika Julat ("B2"). Nilai = "" Lalu Julat ("C2"). Nilai = "Tidak Ada Kemas Kini" Julat Lain ("C2"). Nilai = "Pengemaskinian Yang Dikumpulkan" Tamat Jika Akhir Sub
Garis kod Julat ("B2 ″). Nilai =" " bermaksud sama ada sel B2 sel sama dengan kosong atau tidak.
Petikan Berganda (“”) mewakili sel kosong atau tidak jika hasil kosong itu BENAR atau yang SALAH.
