Setelah pelajaran ini kamu bisa menelusuri If/ElseIf/Else dan Select Case, termasuk urutan syarat, rentang To dan Is, serta nilai yang tidak cocok dengan Case mana pun.
±13 menit
3 latihan
Diperiksa 28 Okt 2026
Latihan di pelajaran ini butuh akun gratis. Progres, kode, dan catatanmu hanya tersimpan di browser ini. Masuk untuk menyimpannya
Materi
If memeriksa syarat dari atas ke bawah. Begitu satu syarat bernilai True, blok di bawahnya dijalankan, lalu eksekusi melompat ke setelah End If; syarat sesudahnya tidak diperiksa lagi. Karena itu urutan ElseIf menentukan hasil, dan syarat yang lebih sempit ditaruh lebih dulu. Else menangkap semua nilai yang tidak cocok dengan syarat mana pun.
If omzet >= 50000000 Then
bonus = 0.05
ElseIf omzet >= 20000000 Then
bonus = 0.03
Else
bonus = 0
End If
Bentuk satu baris, If stok < 5 Then pesan = "Pesan ulang", tidak memakai End If. Bila setelah Then masih ada pernyataan di baris yang sama, VBA menganggapnya If satu baris.
Select Case cocok saat satu nilai dibandingkan dengan banyak kemungkinan. Case boleh berisi daftar seperti Case "Medan", "Padang", rentang dengan To seperti Case 1 To 5 (angka kecil di depan), atau perbandingan dengan Is seperti Case Is >= 90. Hanya Case pertama yang cocok yang dijalankan, walau Case lain juga cocok. Case Else menangkap sisanya; tanpa Case Else, nilai yang tidak cocok dilewati tanpa pesan apa pun.
Latihan
0/3 lulus
Jawaban diperiksa di server. Lulus berarti kamu memahami contohnya, bukan penilaian seluruh pekerjaanmu.
Latihan 1 dari 3
Sel B2 berisi 92. Apa isi C2 setelah BeriPredikat dijalankan?
Sub BeriPredikat()
Dim nilai As Long
nilai = Range("B2").Value
If nilai >= 70 Then
Range("C2").Value = "Cukup"
ElseIf nilai >= 85 Then
Range("C2").Value = "Baik"
ElseIf nilai < 70 Then
Range("C2").Value = "Remedial"
End If
End Sub
Latihan 2 dari 3
Sel B5 berisi berat paket 4 kg. Apa isi C5 setelah TentukanOngkir dijalankan?
Sub TentukanOngkir()
Dim berat As Double
berat = Range("B5").Value
Select Case berat
Case Is <= 1
Range("C5").Value = 10000
Case 1 To 5
Range("C5").Value = 25000
Case Is > 3
Range("C5").Value = 40000
Case Else
Range("C5").Value = 0
End Select
End Sub
Latihan 3 dari 3
Kode di bawah dijalankan dengan kota berisi "Makassar". Apa isi variabel wilayah tepat setelah End Select?
Dim kota As String, wilayah As String
kota = "Makassar"
Select Case kota
Case "Medan", "Padang", "Palembang"
wilayah = "Sumatra"
Case "Bandung", "Semarang"
wilayah = "Jawa"
End Select
