Vba: cara menggunakan if not (dengan contoh)


Anda dapat menggunakan sintaks dasar berikut untuk menggunakan logika IF NOT di VBA untuk menguji apakah suatu kondisi tidak terpenuhi:

 SubIfNot ()
    Dim i As Integer
    
    For i = 2 To 11
        If Not Range(" B " & i) = " West " Then
        Result = “ Not WestElse
        Result = " West "
        End If
    Range(" C " & i) = Result
    Next i

End Sub

Contoh khusus ini memeriksa apakah setiap sel dalam rentang B2:B12 tidak sama dengan “Barat”, lalu menetapkan “Bukan Barat” atau “Barat” ke setiap sel terkait dalam rentang C2:C12 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan IF NOT di VBA

Misalkan kita memiliki kumpulan data berikut di Excel yang memperlihatkan nama tim dan divisi dari berbagai tim bola basket:

Katakanlah kita ingin memberikan nilai “Barat” atau “Bukan Barat” pada setiap sel di kolom C berdasarkan apakah setiap tim berada di divisi Barat atau tidak.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubIfNot ()
    Dim i As Integer
    
    For i = 2 To 11
        If Not Range(" B " & i) = " West " Then
        Result = “ Not WestElse
        Result = " West "
        End If
    Range(" C " & i) = Result
    Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Nilai di kolom C memberi tahu kita apakah setiap pembagian di kolom B sama dengan “Barat” atau tidak.

Misalnya:

  • Tim A milik “Barat”, jadi kolom C menunjukkan “Barat”
  • Tim B milik “Timur”, jadi kolom C menunjukkan “Bukan Barat”
  • Tim C milik “Timur”, jadi kolom C menunjukkan “Bukan Barat”
  • Tim D milik “Utara”, jadi kolom C menunjukkan “Tidak ke Barat”

Dan seterusnya.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menggunakan IF OR untuk menguji beberapa kondisi
VBA: Cara menggunakan IF AND untuk menguji beberapa kondisi
VBA: cara memeriksa apakah suatu string berisi string lain

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *