Menggunakan Perintah Select Case - Modul Visual Basic

Select Case.

               Select Case adalah salah satu syntax yang digunakan dalam bahasa pemrograman Visual Basic for Applications (VBA). Perintah atau syntax ini sebenarnya memiliki peran yang hampir sama dengan perintah If Then,

               Namun dalam beberapa kasus sedikit berbeda atau kadang tergantung selera dari programmer lebih memilih menggunakan

Select Case atau

If Then.

Berikut contoh penggunaannya :

Sub Select_Case_text()

    Select Case Range("A1").Text

          Case "Januari"

                 Sheet1. [a5:c10].Copy Sheet3.[a5]

          Case "Februari”

                Sheet2. [a5:c10].Copy Sheet3.[a5]

         End Select

End Sub

Sub copy_case_angka ()

Select Case [a1]

 Case 1

Sheet1. [a5:c10].Copy Sheet3.[a5]

Case 2

Sheet2. [a5:c10].Copy Sheet3.[a5]

End Select

End Sub

Sub Klarifikasi_umur()

Dim age As Integer

age = Range("a1").Value

Select Case age

            Case 0 To 17

                Range("a2").Value = "NON PRODUKTIF"

            Case 18 To 65

                 Range("a2").Value = "PRODUKTIF"

            Case Else

                 Range("a2").Value = "LANJUT USIA"

        End Select

End Sub