Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda bisa menggunakan Jika pernyataan di VBA di Excel berdasarkan nilai sel.

Excel VBA: Jika Pernyataan Berdasarkan Nilai Sel (Tampilan Cepat)

 Sub If_Statement_Based_On_a_Single_Cell() If Range("C3").Value>= 40 Then Range("D3").Value = "Passed" Else Range("D3").Value = "Failed" End If End Sub 

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Jika Pernyataan Berdasarkan Nilai Sel di Excel VBA

Di sini kita punya lembar kerja yang berisi nama dan tanda dari beberapa siswa sekolah dalam suatu ujian.

Tujuan kita adalah mempelajari cara menggunakan Jika pernyataan di Excel VBA berdasarkan nilai sel dari kumpulan data ini.

1. Jika Pernyataan Berdasarkan Nilai Sel dari Sel Tunggal di Excel VBA

Pertama-tama, kita akan belajar menggunakan pernyataan If berdasarkan nilai dari satu cell.

Sebagai contoh, mari kita coba melihat apakah Natalia Austin lulus ujian atau tidak, yaitu, apakah tanda dalam sel C3 lebih besar dari 40 atau tidak.

Kolom D berisi hasil dari siswa. Artinya, Jika sel C3 berisi tanda yang lebih besar dari 40, sel D3 akan berisi "Lulus" Jika tidak, itu akan berisi "Gagal" .

Kita akan menggunakan VBA Rentang untuk membuat objek ini Jika pernyataan berdasarkan nilai sel.

The VBA kode untuk ini adalah:

⧭ Kode VBA:

 Sub If_Statement_Based_On_a_Single_Cell() If Range("C3").Value>= 40 Then Range("D3").Value = "Passed" Else Range("D3").Value = "Failed" End If End Sub 

⧭ Keluaran:

Jalankan kode dari Jalankan Sub / UserForm alat di dalam VBA bilah alat.

Ini akan membuat sel D3 mengandung "Gagal" , sebagai tanda dalam sel C3 kurang dari 40 ( 32 ).

2. Jika Pernyataan Berdasarkan Nilai dari Rentang Sel di Excel VBA

Anda juga bisa menggunakan Jika pernyataan berdasarkan nilai dari rentang sel dalam VBA Anda bisa menggunakan untuk-loop untuk tujuan ini.

Sebagai contoh, di sini kita bisa mengetahui hasil dari semua siswa dengan satu kode. Kita akan melakukan iterasi melalui sebuah untuk-loop yang akan memeriksa semua sel dalam rentang C3:C12 dan mengembalikan hasil yang sesuai, "Lulus" atau "Gagal" .

The VBA kode untuk ini adalah:

⧭ Kode VBA:

 Sub If_Statement_Based_On_a_Range_of_Cells() For i = 1 To Range("C3:C12").Rows.Count If Range("C3:C12").Cells(i, 1).Value>= 40 Then Range("D3:D12").Cells(i, 1).Value = "Passed" Else Range("D3:D12").Cells(i, 1).Value = "Failed" End If Next i End Sub 

⧭ Keluaran:

Jalankan kode dari Jalankan Sub / UserForm alat di dalam VBA Ini akan mengembalikan "Lulus" untuk tanda yang lebih besar dari 40 dan "Gagal" untuk yang kurang dari itu n 40 .

Hal-hal yang Perlu Diingat

Di sini saya telah menunjukkan Jika pernyataan dengan satu kondisi. Tetapi jika Anda mau, Anda dapat menggunakan beberapa kondisi dalam sebuah Jika pernyataan .

Jika Anda menggunakan ATAU mengetikkan beberapa kondisi, gabungkan dengan ATAU .

Dan jika Anda menggunakan DAN mengetikkan beberapa kondisi, gabungkan dengan DAN .

Misalnya, untuk memeriksa apakah tanda dalam sel B3 lebih besar dari 40 dan kurang dari 50 atau tidak, gunakan:

 If (Range("C3").Value> 40 Or Range("C3").Value <50) Then