Vba: cara menggunakan "jika tidak kosong"

Anda dapat menggunakan Not IsEmpty di VBA untuk memeriksa apakah sel tidak kosong.

Berikut ini contoh bagaimana Anda bisa menggunakan sintaks ini di makro:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Contoh khusus ini memeriksa apakah setiap sel dalam rentang A2:A13 tidak kosong, lalu mencetak “Sel tidak kosong” atau “Sel kosong” untuk setiap sel yang cocok dalam rentang B2:B13 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan “Jika tidak kosong” di VBA

Misalkan kita memiliki daftar nama tim bola basket berikut di Excel:

Misalkan kita ingin memeriksa apakah setiap sel dalam rentang A2:A13 tidak kosong, lalu menampilkan hasilnya di sel terkait dalam rentang B2:B8 .

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B memberi tahu kita apakah masing-masing sel terkait di kolom A kosong atau tidak.

Anda juga bisa menggunakan makro berikut untuk sekadar mengembalikan nama tim itu sendiri di kolom B jika nilainya tidak kosong di kolom A:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = Range(" A " & i).Value
        Else
        Result = " Empty "
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B sekarang mengembalikan nama tim di kolom A jika sel tidak kosong.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA IsEmpty di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung kemunculan karakter dalam sebuah string
VBA: cara memeriksa apakah suatu string berisi string lain
VBA: rumus untuk “Jika” sel berisi”