Vba: rumus sederhana untuk “jika sel berisi”

Anda dapat menggunakan sintaks dasar berikut untuk menggunakan rumus “jika sel berisi” di VBA:

 Sub IfContains()
    Dim i As Integer

    For i = 2 To 8
        If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then
        Result = " Contains Turtle "
        Else
        Result = “ Does Not Contain Turtle ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Contoh khusus ini memeriksa apakah setiap sel dalam rentang A2:A8 berisi “turtle”, lalu menetapkan “Berisi kura-kura” atau “Tidak berisi kura-kura” ke setiap sel yang cocok dalam rentang B2:B8 .

Catatan : Metode Instr memeriksa apakah suatu string berisi string lain dan metode LCase mengubah teks menjadi huruf kecil untuk melakukan pencarian yang tidak peka huruf besar-kecil.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan “Jika sel berisi” di VBA

Misalkan kita memiliki daftar sel berikut di Excel yang masing-masing berisi teks berbeda:

Misalkan kita ingin memeriksa apakah setiap sel dalam rentang A2:A8 berisi teks “turtle” dan menampilkan hasilnya di sel terkait dalam rentang B2:B8 .

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub IfContains()
    Dim i As Integer

    For i = 2 To 8
        If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then
        Result = " Contains Turtle "
        Else
        Result = “ Does Not Contain Turtle ”
        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 sel terkait di kolom A berisi “kura-kura” di suatu tempat dalam teks atau tidak.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Instr 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