VBA IsEmpty

IsEmpty adalah fungsi lembar kerja yang digunakan untuk mengetahui apakah referensi sel tertentu atau rentang sel kosong atau tidak karena ini adalah fungsi lembar kerja sehingga untuk menggunakannya di VBA kita menggunakan Aplikasi. Metode lembar kerja di VBA untuk menggunakan fungsi ini, fungsi ini berada di bawah daftar fungsi logis dan mengembalikan nilai true jika referensi kosong.

Fungsi IsEmpty VBA

VBA IsEmpty adalah fungsi logika yang menguji apakah yang dipilih kosong atau tidak. Karena ini adalah fungsi logis, ini akan mengembalikan hasil dalam nilai Boolean yaitu TRUE atau FALSE.

Jika sel yang dipilih kosong itu akan mengembalikan TRUE atau akan mengembalikan FALSE.

Pada artikel ini, kami akan menunjukkan kepada Anda bagaimana menggunakan fungsi "ISEMPTY" di VBA untuk memeriksa sel menggunakan kode VBA.

Apa Fungsi ISEMPTY Lakukan di VBA?

Seringkali sel kosong membuat kita frustasi untuk bekerja secara efisien di lembar kerja. Menemukan sel kosong bukanlah yang tersulit tetapi jika sel kosong menyembunyikannya di tengah-tengah data, maka dibutuhkan tol untuk menemukannya.

Untuk mencari sel kosong di excel kita memiliki fungsi yang disebut "ISBLANK" sebagai fungsi lembar kerja tetapi di VBA disebut "ISEMPTY".

Ini bekerja mirip dengan fungsi lembar kerja "ISBLANK". Sekarang lihat rumus di bawah dari fungsi "ISEMPTY".

Seperti yang bisa kita lihat pada gambar di atas, ia mengembalikan hasilnya sebagai Boolean yaitu TRUE atau FALSE.

Contoh Fungsi ISEMPTY di VBA

Berikut ini adalah contoh IsEmpty di VBA.

Anda dapat mengunduh Template Excel IsEmpty VBA ini di sini - Template Excel IsEmpty VBA

Contoh 1

Sekarang kita akan melihat contoh praktis pertama dari "ISEMPTY". Untuk ini lihat gambar di bawah ini dari lembar kerja.

Sekarang kami akan menerapkan fungsi excel VBA ISEMPTY untuk menguji semua ini.

Langkah 1: Tentukan variabel sebagai Boolean .

Kode:

 Sub IsEmpty_Example1 () Dim K Sebagai Boolean End Sub 

Langkah 2: Untuk variabel ini, tetapkan nilai melalui fungsi VBA  ISEMPTY .

Kode:

 Sub IsEmpty_Example1 () Dim K Sebagai Boolean K = IsEmpty (End Sub 

Langkah 3: Ekspresi tidak lain adalah apa sel yang kita uji. Sekarang kami menguji sel A1 sel .

Kode:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Nilai) End Sub 

Langkah 4: Tunjukkan nilai variabel ini di VBA Msgbox .

Kode:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Nilai) MsgBox K End Sub 

Jalankan kode ini untuk memeriksa hasilnya.

Karena ada nilai di sel A1 kami mendapatkan hasilnya sebagai FALSE.

Sekarang saya akan mengubah referensi sel dari A1 menjadi A5.

Kode:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Nilai) MsgBox K End Sub 

Jalankan kode ini untuk melihat hasilnya.

Kami mendapatkan hasil sebagai TRUE sel yang direferensikan A5 sebenarnya adalah sel kosong sehingga kami mendapatkan hasil sebagai "TRUE".

Sekarang saya akan menguji sel A8.

Kode:

 Sub IsEmpty_Example1 () Dim K Sebagai Boolean K = IsEmpty (Range ("A8"). Nilai) MsgBox K End Sub 

Jalankan kode ini untuk melihat hasilnya.

Oh !!! Tahan…

Kami mendapat hasil sebagai FALSE meskipun tidak ada nilai di sel A8.

Sekarang pertanyaannya apakah itu hasil kesalahan dari rumus "ISEMPTY" ?.

Tidak… Sama Sekali Tidak !!!

Saat saya mencoba memeriksa sel A8 sebenarnya ada karakter spasi di dalam sel yang tidak mudah dilihat dengan mata telanjang.

Jadi kesimpulannya bahkan Space dianggap sebagai karakter dalam bahasa excel dan VBA.

Contoh # 2 - Kombinasi ISEMPTY VBA dengan Kondisi IF

Sebenarnya, penggunaan sebenarnya dari fungsi "ISEMPTY" sangat mengagumkan ketika kita menggunakannya dengan fungsi logis lainnya.

Apalagi jika kita menggunakannya dengan kondisi IF kita bisa mendapatkan banyak hasil yang bermanfaat darinya.

Untuk demonstrasi ini, lihat contoh di bawah ini.

Pada kolom Status jika kolom "Status PF" kosong kita membutuhkan nilai sebagai "No Update" dan jika ada nilai kita membutuhkan nilai sebagai "Collected Updates".

Ingat di sini kita tidak membutuhkan hasil default TRUE atau FALSE. Kita membutuhkan hasil kita sendiri disini, untuk mendapatkan hasil kita sendiri kita perlu menggunakan Excel VBA ISEMPTY dengan kondisi IF.

Langkah 1: Buka kondisi IF .

Kode:

 Sub IsEmpty_Example2 () Jika 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

We have an alternative to ISEMPTY function, without applying the excel VBA ISEMPTY function we can actually test the cell.

For an example look at the below code.

Code:

 Sub IsEmpty_Example3() If Range("B2").Value = "" Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collected Updates" End If End Sub 

The line of code Range(“B2″).Value = ” ” means whether the cell B2 cell is equal to empty or not.

Double Quotes (“ ”) represents an empty cell or not if the empty result is TRUE or else FALSE.