Bagaimana Menggunakan If-Then di Excel 2016 VBA - dummies

Jika-Then adalah struktur kontrol VBA yang paling penting. Anda mungkin akan menggunakan perintah ini setiap hari. Gunakan struktur If-Then saat Anda ingin mengeksekusi satu atau lebih pernyataan secara kondisional. Klausa Else opsional, jika disertakan, memungkinkan Anda mengeksekusi satu atau lebih pernyataan jika kondisi yang Anda uji tidak benar . Berikut adalah prosedur CheckUser sederhana, recoded untuk menggunakan struktur If-Then-Else:

Sub CheckUser2 () UserName = InputBox ("Masukkan Nama Anda:") Jika UserName = "Satya Nadella" Lalu MsgBox ("Selamat Datang Satya …") '… [Kode lainnya disini] … Else MsgBox "Maaf. Satya Nadella hanya bisa menjalankan ini. "End If End Sub

If-Then examples

Rutin berikut menunjukkan struktur If-Then tanpa klausa Else opsional:

Sub GreetMe () Jika Waktu <0. 5 maka MsgBox" Good Morning "End Sub

Prosedur GreetMe menggunakan fungsi Waktu VBA untuk mendapatkan waktu sistem. Jika waktu saat ini kurang dari. 5, rutin menampilkan ucapan ramah. Jika Waktu lebih besar dari atau sama dengan. 5, rutinitas berakhir, dan tidak ada yang terjadi.

Untuk menampilkan salam berbeda jika Waktu lebih besar dari atau sama dengan. 5, Anda dapat menambahkan pernyataan If-Then lain setelah yang pertama:

Sub GreetMe2 () Jika Waktu = 0. 5 Kemudian MsgBox "Selamat Siang" End Sub

Perhatikan bahwa> = (lebih besar dari atau sama dengan) digunakan untuk pernyataan If-Then kedua. Ini memastikan bahwa sepanjang hari ditutupi. Telah> (lebih besar dari) telah digunakan, tidak ada pesan akan muncul jika prosedur ini dilaksanakan tepat pukul 12.00 siang. Itu sangat tidak mungkin, tapi dengan program penting seperti ini, Anda tidak ingin mengambil risiko.

Contoh If-Then-Else

Pendekatan lain terhadap masalah sebelumnya menggunakan klausa Else. Inilah rutinitas yang sama yang di recoded untuk menggunakan struktur If-Then-Else:

Sub GreetMe3 () Jika Waktu <0. 5 maka MsgBox "Selamat Pagi" Lain-lain "MsgBox" Selamat Siang "End Sub

Perhatikan bahwa garis Karakter kelanjutan (underscore) digunakan dalam contoh sebelumnya. Pernyataan If-Then-Else sebenarnya adalah sebuah pernyataan tunggal. VBA memberikan cara yang sedikit berbeda untuk pengkodean If-Then-Else constructs yang menggunakan pernyataan End If. Oleh karena itu, prosedur GreetMe dapat ditulis ulang sebagai

Sub GreetMe4 () Jika Waktu <0. 5 maka MsgBox "Selamat Pagi" Lain MsgBox "Selamat Siang" End If End Sub

Sebenarnya, Anda dapat memasukkan sejumlah pernyataan di bawah Jika sebagian dan sejumlah pernyataan di bawah bagian lain. Sintaks ini lebih mudah dibaca dan membuat pernyataan lebih pendek.

Bagaimana jika Anda perlu memperluas rutinitas GreetMe untuk menangani tiga kondisi: pagi, siang, dan malam? Anda memiliki dua pilihan: Gunakan tiga pernyataan If-Then atau gunakan struktur <- nested

If-Then-Else. Bersarang berarti menempatkan struktur If-Then-Else di dalam struktur If-Then-Else yang lain. Pendekatan pertama, dengan menggunakan tiga pernyataan If-Then, lebih sederhana: Sub GreetMe5 () Dim Msg As String If Time = 0. 5 Dan Time = 0. 75 Kemudian Msg = "Evening" MsgBox "Good" & Msg End Sub Sebuah sentuhan baru ditambahkan dengan penggunaan variabel. Variabel Msg mendapat nilai teks yang berbeda, tergantung pada waktu. Pernyataan MsgBox menampilkan salam: Selamat Pagi, Selamat Siang, atau Selamat Malam.

Rutin berikut melakukan tindakan yang sama tetapi menggunakan struktur If-Then-End If:

Sub GreetMe6 () Dim Msg As String If Time = 0. 5 Dan Time = 0. 75 Then Msg = "Evening" End If MsgBox "Good" & Msg End Sub

Menggunakan ElseIf

Pada contoh sebelumnya, setiap pernyataan dalam rutinitas dijalankan. Struktur yang sedikit lebih efisien akan keluar dari rutinitas begitu kondisi ditemukan benar. Di pagi hari, misalnya, prosedur harus menampilkan pesan Good Morning dan kemudian keluar - tanpa mengevaluasi kondisi lain yang berlebihan.

Dengan rutinitas kecil seperti ini, Anda tidak perlu khawatir dengan kecepatan eksekusi. Tapi untuk aplikasi yang lebih besar di mana kecepatan sangat penting, Anda harus tahu tentang sintaks lain untuk struktur If-Then.

Inilah cara Anda bisa menulis ulang rutinitas GreetMe dengan menggunakan sintaks ini:

Sub GreetMe7 () Dim Msg As String If Time = 0. 5 Dan Waktu <0. 75 maka Msg = "Siang" Lain Msg = "Sore hari "End If MsgBox" Good "& Msg End Sub

Bila sebuah kondisi benar, VBA mengeksekusi pernyataan bersyarat, dan struktur If berakhir. Dengan kata lain, prosedur ini sedikit lebih efisien daripada contoh sebelumnya. Trade-off adalah kode yang lebih sulit dimengerti.

Contoh If-Then lain

Berikut contoh lain yang menggunakan bentuk sederhana dari struktur If-Then. Prosedur ini meminta pengguna untuk jumlah tertentu dan kemudian menampilkan diskon yang sesuai, berdasarkan jumlah pengguna yang masuk:

Sub ShowDiscount () Dim Quantity As Long Dim Discount As Double Quantity = InputBox ("Enter Quantity:") Jika Quantity > 0 Kemudian Diskon = 0. 1 Jika Kuantitas> = 25 Kemudian Diskon = 0. 15 Jika Kuantitas> = 50 Kemudian Diskon = 0. 2 Jika Kuantitas> = 75 Kemudian Diskon = 0. 25 MsgBox "Diskon:" & Diskon Akhir Sub

Perhatikan bahwa setiap pernyataan If-Then dalam rutinitas ini dijalankan, dan nilai Discount dapat berubah saat pernyataan dieksekusi. Namun, rutinitas akhirnya menampilkan nilai Discount yang benar karena pernyataan If-Then berada dalam urutan nilai Discount yang naik.

Prosedur berikut melakukan tugas yang sama dengan menggunakan sintaks ElseIf alternatif. Dalam kasus ini, rutinitas berakhir segera setelah mengeksekusi pernyataan untuk kondisi yang benar:

Sub ShowDiscount2 () Dim Quantity As Long Dim Discount As Double Quantity = InputBox ("Enter Quantity:") If Quantity> 0 And Quantity <25 lalu Diskon = 0.1 ElseIf Quantity> = 25 Dan Kuantitas <50 maka Diskon = 0. 15 ElseIf Quantity> = 50 Dan Kuantitas <75 maka Diskon = 0. 2 ElseIf Quantity> = 75 Kemudian Diskon = 0. 25 Akhir Jika MsgBox "Diskon:" & Discount End Sub

Struktur multiple If-Then ini agak merepotkan. Anda mungkin ingin menggunakan struktur If-Then hanya untuk keputusan biner sederhana.