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