Pernyataan VBA If - Then - Else di Excel (4 Contoh)

Hugh West

16-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Pernyataan bersyarat digunakan untuk melakukan serangkaian tindakan tergantung pada kondisi yang ditentukan dalam bahasa pemrograman. Pada artikel ini, kami akan menunjukkan kepada Anda apa itu Jika - Lalu - Lain-lain pernyataan bersyarat dalam VBA Excel dan cara menggunakannya.

Unduh Buku Kerja

Anda bisa mengunduh buku kerja Excel latihan gratis dari sini.

Jika-Maka-Kemudian-Sebaliknya dalam VBA.xlsm

Pengenalan Pernyataan If - Then - Else dalam VBA

VBA Jika - Lalu - Lain Pernyataan bersyarat terutama digunakan untuk memutuskan alur eksekusi kondisi. Jika kondisinya benar maka serangkaian tindakan tertentu dieksekusi, dan jika kondisinya salah maka serangkaian tindakan lain dilakukan.

  • Sintaksis 
 Jika kondisi Maka [pernyataan] [Lain-lain else_pernyataan]

Atau, 

 If kondisi Then [pernyataan] [Else [else_pernyataan]] End If

Di sini,

Argumen Wajib/ Opsional Deskripsi
kondisi Diperlukan Ekspresi numerik atau ekspresi string yang mengevaluasi apakah ekspresi tersebut Benar atau Salah Jika kondisi adalah Null, maka dianggap Salah .
pernyataan Opsional Formulir baris tunggal yang tidak memiliki Lain-lain Satu atau lebih pernyataan harus dipisahkan oleh titik dua. Jika pernyataan kondisi adalah Benar , maka pernyataan ini dieksekusi.
else_statements Opsional Satu atau lebih pernyataan dilakukan jika tidak ada pernyataan sebelumnya kondisi adalah Benar .

4 Contoh Penggunaan Pernyataan VBA If - Then - Else di Excel

Dalam bagian ini, Anda akan belajar cara menggunakan Jika-Maka-Kemudian-Sebaliknya di VBA kode dengan 4 contoh.

1. Temukan Angka Terbesar di Antara Dua Angka dengan Pernyataan If - Then - Else

Jika Anda memiliki dua angka dan Anda ingin mengetahui mana yang lebih besar (atau lebih kecil), maka Anda bisa menggunakan Jika-Maka-Kemudian-Sebaliknya pernyataan dalam VBA .

Langkah-langkah:

  • Tekan Alt + F11 pada keyboard Anda atau buka tab Pengembang -> Visual Basic untuk membuka Editor Visual Basic .

  • Di jendela kode pop-up, dari bilah menu, klik Sisipkan -> Modul .

  • Salin kode berikut ini dan tempelkan ke jendela kode. 
 Private Sub BiggestNumber() Dim Num1 As Integer Dim Num2 As Integer Num1 = 12345 Num2 = 12335 If Num1> Num2 Then MsgBox "Angka pertama lebih besar dari angka kedua" ElseIf Num2> Num1 Then MsgBox "Angka kedua lebih besar dari angka pertama" Else MsgBox "Angka pertama dan angka kedua sama" End If End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini, kita membandingkan dua angka 12345 dan 12335 Proses ini biasanya sempurna untuk menemukan angka-angka besar dalam dataset yang besar.

  • Tekan F5 pada keyboard Anda atau dari bilah menu pilih Jalankan -> Jalankan Sub/UserForm Anda juga bisa mengklik pada ikon Putar kecil di bilah sub-menu untuk menjalankan makro.

Anda akan mendapatkan hasilnya di Excel MsgBox

Dalam kasus kami, nomor 12345 - disimpan dalam variabel Num1 - lebih besar dari angka 12335 , Num2 Jadi MsgBox menunjukkan kepada kita bahwa Angka pertama lebih besar dari angka kedua .

Baca Juga: Rumus Excel untuk Menghasilkan Angka Acak (5 contoh)

2. Memeriksa Hasil Belajar Siswa Menggunakan Pernyataan If - Then - Else dalam VBA

Anda bisa mengecek apakah seorang siswa lulus atau gagal dalam ujian dengan pernyataan ini di dalam VBA kode.

Langkah-langkah:

  • Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub CheckResult() If Range("D5").Value> 33 Then MsgBox "Hasil John Lulus" Else MsgBox "Hasil John Gagal" End If End Sub

Kode Anda sekarang siap untuk dijalankan.

Kode ini akan memeriksa apakah Cell D5 memegang nilai yang lebih besar dari 33 Jika ya, maka akan menampilkan satu output, jika tidak maka akan menampilkan sesuatu yang lain.

  • Lari makro dan Anda akan mendapatkan hasil sesuai dengan kode Anda.

Lihatlah dataset di atas dengan hasilnya, Cell D5 memegang 95 yang tentunya lebih dari 33 , oleh karena itu ia menampilkan Hasilnya adalah Lulus Tetapi jika kita menjalankan kode untuk Cell D7 (22), maka akan menampilkan sebaliknya.

Baca selengkapnya: Cara Menggunakan Pernyataan Kasus VBA (13 Contoh)

Bacaan Serupa

  • Cara Menggunakan Fungsi Log di Excel VBA (5 Contoh yang Sesuai)
  • Gunakan Fungsi VBA LTrim di Excel (4 Contoh)
  • Cara Menggunakan Fungsi VBA FileDateTime di Excel (3 Penggunaan)
  • Gunakan Operator VBA Mod (9 Contoh)
  • Fungsi VBA EXP di Excel (5 Contoh)

3. Memperbarui Komentar di Nilai Siswa Menggunakan Beberapa Pernyataan If - Then - Else di VBA

Anda telah mempelajari cara mengekstrak apakah seorang siswa lulus atau tidak dengan satu Jika-Maka-Kemudian-Sebaliknya pernyataan, tetapi kali ini Anda akan belajar tentang Beberapa Jika-Maka-Maka-Kemudian-Sebaliknya dengan contoh berikut ini.

Kami akan menjalankan VBA kode untuk mengisi kode-kode tersebut Komentar kotak berdasarkan beberapa kondisi.

Langkah-langkah:

  • Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub UpdateComment() For Each grade In Range("D5:D10") If grade = "A" Then grade.Offset(0, 1).Value = "Great Work" ElseIf grade = "B" Then grade.Offset(0, 1).Value = "Keep It Up" ElseIf grade = "C" Then grade.Offset(0, 1).Value = "Needs Improvement" Else grade.Offset(0, 1).Value = "Parents-Teacher Meeting" End If Next grade EndSub

Kode Anda sekarang siap untuk dijalankan.

Kode ini akan mencetak komentar sesuai dengan nilai yang dicapai oleh siswa.

  • Lari kode ini dan lihat gambar berikut di mana kotak komentar diisi oleh hasil yang sesuai.

4. Pernyataan Jika-Maka-Kemudian-Sebaliknya untuk Memperbarui Arah Mata Angin Berdasarkan Kode di Excel

Anda juga bisa memanfaatkan Jika-Maka-Kemudian-Sebaliknya untuk menemukan arah mata angin berdasarkan kode indikator yang diberikan. Lihatlah gambar berikut ini dimana kita akan menemukan arah mata angin berdasarkan inisial yang telah diberikan.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub UpdateDirection() For Each iDirection In Range("B5:B8") If iDirection = "N" Then iDirection.Offset(0, 1).Value = "North" ElseIf iDirection = "S" Then iDirection.Offset(0, 1).Value = "South" ElseIf iDirection = "E" Then iDirection.Offset(0, 1).Value = "East" Else iDirection.Offset(0, 1).Value = "West" End If Next iDirection EndSub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan Anda akan mendapatkan nama arah di sel masing-masing.

Atau, jika Anda ingin menemukan hanya satu arah berdasarkan kode, maka Anda bisa menggunakan kode di bawah ini. 

 Sub UpdateDirections() Dim iDirection As String Dim iDirectionName As String iDirection = Range("B5").Value If iDirection = "N" Then iDirectionName = "North" ElseIf iDirection = "S" Then iDirectionName = "South" ElseIf iDirection = "E" Then iDirectionName = "East" Else iDirectionName = "West" End If Range("C5").Value = iDirectionName End Sub

Kode ini akan mengambil nilai dari Cell B5 menjadi pertimbangan dan mengembalikan hasilnya sesuai dengan itu di Cell C5 .

Contohnya, jika Anda menulis " N " di Cell B5 , itu akan memberi Anda " Utara ; jika Anda menulis " S " di Cell B5 , itu akan menunjukkan kepada Anda " Selatan " di Cell C5 .

Kesimpulan

Artikel ini menunjukkan kepada Anda cara menggunakan Jika - Lalu - Lain-lain pernyataan di Excel dengan VBA Saya harap artikel ini sangat bermanfaat bagi Anda. Jangan ragu untuk bertanya jika Anda memiliki pertanyaan mengenai topik ini.

Postingan sebelumnya IF dengan INDEX-MATCH di Excel (3 Pendekatan yang Sesuai)
Postingan berikutnya Cara Memberi Nomor Baris Secara Otomatis di Excel (8 Metode)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.