Bagaimana Menggunakan Struktur Kasus Pilih di Excel 2016 VBA - dummies

Struktur Select Case adalah struktur VBA yang berguna untuk keputusan yang melibatkan tiga atau lebih pilihan di Excel 2016 (meskipun juga bekerja dengan dua opsi, memberikan alternatif pada struktur If-Then-Else).

Contoh Kasus Pilih

Contoh berikut menunjukkan bagaimana menggunakan struktur Select Case:

Sub ShowDiscount3 () Dim Quantity As Long Dim Discount As Double Quantity = InputBox ("Enter Quantity:") Pilih Jumlah Kasus Kasus 0 Ke 24 Diskon = 0. 1 Kasus 25 Untuk 49 Diskon = 0. 15 Kasus 50 sampai 74 Diskon = 0. 2 Kasus Is> = 75 Diskon = 0. 25 Akhir Pilih MsgBox "Diskon:" & Diskon Akhir Sub > Dalam contoh ini, variabel Kuantitas sedang dievaluasi. Pemeriksaan rutin untuk empat kasus yang berbeda (0-24, 25-49, 50-74, dan 75 atau lebih).

Sejumlah pernyataan dapat mengikuti setiap pernyataan Kasus, dan semuanya dieksekusi jika kasusnya benar. Jika Anda hanya menggunakan satu pernyataan, seperti pada contoh ini, Anda dapat memasukkan pernyataan pada baris yang sama dengan kata kunci Kasus, yang didahului oleh titik dua - karakter pemisah pernyataan VBA. Hal ini membuat kode lebih kompak dan sedikit lebih jernih. Berikut adalah cara tampilan rutin dalam format ini:

Sub ShowDiscount4 () Dim Quantity As Long Dim Discount As Double Quantity = InputBox ("Enter Quantity:") Pilih Case Quantity Case 0 To 24: Discount = 0. 1 Case 25 To 49: Diskon = 0. 15 Kasus 50 sampai 74: Diskon = 0. 2 Kasus Is> = 75: Diskon = 0. 25 End Select MsgBox "Diskon:" & Discount End Sub

Saat VBA menjalankan struktur Select Case, struktur keluar segera setelah VBA menemukan kasus yang benar dan mengeksekusi pernyataan untuk kasus itu.

Contoh Kasus Pilih bersarang

Seperti yang ditunjukkan pada contoh berikut, Anda dapat menyarangkan struktur Select Case. Rutin ini memeriksa sel aktif dan menampilkan pesan yang menjelaskan isi sel. Perhatikan bahwa prosedurnya memiliki tiga struktur Select Case, dan masing-masing memiliki statement End Select sendiri:

Sub CheckCell () Dim Msg As String Select Case IsEmpty (ActiveCell) Case True Msg = "kosong. "Case Else Select Case ActiveCell. Kasus HasFormula True Msg = "memiliki formula" Case Else Select Case IsNumeric (ActiveCell) Case True Msg = "memiliki angka" Case Else Msg = "memiliki teks" End Select End Select End Pilih MsgBox "Cell" & ActiveCell. Alamat & "" & Msg End Sub

Logikanya seperti ini:

Cari tahu apakah selnya kosong.

1. Jika tidak kosong, lihat apakah berisi formula.

2. Jika tidak ada rumus, cari tahu apakah itu berisi nilai numerik atau teks.

3. Saat rutin berakhir, variabel Msg berisi string yang menggambarkan isi sel. Fungsi MsgBox menampilkan pesan itu.

Pesan yang ditampilkan oleh prosedur CheckCell.

Anda dapat menyarangkan struktur Select Case sedalam yang Anda butuhkan, namun pastikan setiap pernyataan Select Case memiliki pernyataan End Select yang sesuai.

Jika Anda masih belum yakin bahwa kode indentasi sepadan dengan usaha, daftar sebelumnya berfungsi sebagai contoh yang baik. Lekukan benar-benar membuat tingkat nesting menjadi jernih. Lihatlah prosedur yang sama tanpa lekukan:

Sub CheckCell () Dim Msg As String Select Case IsEmpty (ActiveCell) Case True Msg = "kosong. "Case Else Select Case ActiveCell. Kasus HasFormula True Msg = "memiliki formula" Case Else Select Case IsNumeric (ActiveCell) Case True Msg = "memiliki angka" Case Else Msg = "memiliki teks" End Select End Select End Pilih MsgBox "Cell" & ActiveCell. Alamat & "" & Msg End Sub

Cukup dimengerti, ya?