Select Case

Sub test()
Dim hari As Byte

hari = Weekday(VBA.Date)

Select Case hari
Case 1
MsgBox "Hari Ahad"
Case 2
MsgBox "Hari Senin"
Case 3
MsgBox "Hari Selasa"
Case 4
MsgBox "Hari Rabu"
Case 5
MsgBox "Hari Kamis"
Case 6
MsgBox "Hari Jum'at"
Case 7
MsgBox "Hari Sabtu"
Case 8, 9
MsgBox "Hari ini LIBUR"
End Select



End Sub
----------------------------------------------------


Sub test()
Dim hari As Byte

hari = Month(VBA.Date)

Select Case hari
Case 1 To 5: MsgBox "Semester gasal"
Case 1 To 9: MsgBox "semester ganjil"
Case 10: MsgBox "Bulan Oktober"
End Select

End Sub

--------------------------------------------------------


Sub test()
Dim hari As Byte

jumlah = Range("A1").Value


Select Case jumlah
Case Is <= 50: MsgBox "Anda GAGAL TOTAL"
Case Is <= 99: MsgBox "Anda MAKBUL"
Case Is = 100: MsgBox "Anda MUMTAZ"
End Select

End Sub


--------------------------------------------------------
Sub test()


Select Case MsgBox("Apakah anda ingin mengcopy sheet saat ini?", vbYesNo + vbInformation, "Info")

Case vbNo
MsgBox "Ok gak masalah"
Exit Sub
Case vbYes
MsgBox "Bagus..! Terima kasih atas konfirmasinya"
ActiveSheet.Copy before:=ActiveSheet
End Select
End Sub

IIF

Sub test()
Dim hari As Byte

hari = Weekday(VBA.Date)

MsgBox IIf(hari = 3, "sekarang hari Selasa", "rabu")


End Sub

Menentukan Hari Sekarang Berdasarkan Angka

Sub test()
Dim hari As Byte

hari = Weekday(VBA.Date)

If hari = 1 Then
MsgBox "Ahad"
ElseIf haari = 2 Then
MsgBox "Senin"
ElseIf hari = 3 Then
MsgBox "Selasa"
Else
MsgBox "rabu"
End If

End Sub