Cara Menguji Array Tetap - Macro VBA Excel

Pembahasan array kita kali ini adalah mengenai pengujian dan pembuktian apakah suatu elemen dalam sel tertentu di suatu sheet memang benar-benar merupakan bagian dari suatu array.

Sebagai hasil akhirnya, macro akan menampilkan kotak pesan untuk mengesahkan bahwa elemen dinyatakan ya atau tidak ditemukan di dalam array.

Sebagai contoh, Anda membuat daftar nama alat pancing berikut:

1. reel
2. joran
3. kail
4. senar
5. timah

Adapun sel A1 di Sheet1 akan menjadi contoh letak pengujian seperti yang dipertunjukkan dalam gambar. 

Berikut ini langkah demi langkah yang bisa Anda ikuti:

1. Di Excel buat sheet baru dan beri nama contoh Rahasia.

2. Buka VBE dengan Alt+F11.

3. Buka module di menu Insert > Module

4. Ketik macro misalnya ContohArray, jangan lupa tekan Enter hingga memunculkan garis kode End Sub:

Sub ContohArray()

5. Tepat di bawahnya buat garis kode berikut sebagai contoh hasil jika elemen ditemukan atau tidak ditemukan dalam array. Jika tidak ditemukan maka sheet Rahasia akan disembunyikan:

Worksheets("Rahasia").Visible = xlSheetVeryHidden

6. Tentukan nama variabel array dan di garis kode berikutnya tuliskan nama-nama yang akan terdaftar dalam array tersebut:

Dim AlatPancing As Variant
AlatPancing = Array("reel", "joran", "kail", "senar", "timah")

7. Buat variabel berjenis data String untuk mewakili elemen yang akan diuji dan mengacu pada sel A1 di Sheet1:

Dim V1 As String
V1 = Worksheets("Sheet1").Range("A1").Value

8. Tentukan variabel berjenis data Integer untuk membantu melakukan loop pada kelima elemen dalam array, dan variabel dengan jenis data Boolean untuk membantu menggolongkan nilai string pada sel A1 Sheet1 apakah dinyatakan True atau False terhadap elemen dalam array:

Dim x As Integer, V2 As Boolean

9. Anda bisa memasukkan kata misalnya "joran" di sel A1 Sheet1.

10. Untuk membuktikan kata "joran" memang benar-benar ada dalam array, lakukan loop ke setiap elemen lalu bandingkan dengan variabel String, jika dinyatakan cocok, hentikan proses loop dan infokan dengan membuka sheet Rahasia yang tersembunyi, namun jika variabel String tidak ditemukan, infokan juga dan sheet Rahasia tetap disembunyikan:

For x = LBound(AlatPancing) To UBound(AlatPancing)
If V1 = AlatPancing(x) Then
V2 = True
MsgBox "Betul! " & AlatPancing(x) & " ada di daftar alat pancing!", , "Sah"
Worksheets("Rahasia").Visible = xlSheetVisible
Exit For
End If
Next x
If V2 = False Then _
MsgBox V1 & " tidak terdaftar.", , "Maaf, Gagal."

11. Setelah disatukan, kode macro menjadi seperti ini:

Sub ContohArray()
Worksheets("Rahasia").Visible = xlSheetVeryHidden
Dim AlatPancing As Variant
AlatPancing = Array("reel", "joran", "kail", "senar", "timah")
Dim V1 As String
V1 = Worksheets("Sheet1").Range("A1").Value
Dim x As Integer, V2 As Boolean
For x = LBound(AlatPancing) To UBound(AlatPancing)
If V1 = AlatPancing(x) Then
V2 = True
MsgBox "Betul! " & AlatPancing(x) & " ada di daftar alat pancing!", , "Sah"
Worksheets("Rahasia").Visible = xlSheetVisible
Exit For
End If
Next x
If V2 = False Then _
MsgBox V1 & " tidak terdaftar.", , "Maaf, Gagal."
End Sub

12. Buka Excel dan jalankan macro dengan Alt+F8.

Demikian penjelasan tentang bagaimana cara menguji dan membuktikan suatu nilai dalam sel tertentu dinyatakan ada dalam suatu array tetap macro

Share :