Tips kali ini berasal dari tulisan Brian Gillham di www.abstractvb.com yang berguna untuk memeriksa suatu nilai apakah terdapat pada array atau tidak. Nah kelebihannya adalah dengan cara ini kita tidak perlu menggunakan looping untuk memeriksa satu per satu. Gimana caranya? Simak saja code berikut ini.
Public Function IsInArray(FindValue As Variant, _
arrSearch As Variant) As Boolean
If Not IsArray(arrSearch) Then
Exit Function
End If
IsInArray = InStr(1, vbNullChar & _
Join(arrSearch, vbNullChar) & _
vbNullChar, vbNullChar & FindValue & vbNullChar) > 0
End Function
Sekian dulu dan semoga berguna buat pembaca sekalian. Jika ada komentar silakan dikirim melalui
sony-ak@sony-ak.com. Untuk melihat artikel menarik lainnya silakan kunjungi
Sony AK Knowledge
Center.
Mission completed on 10:13 AM.
| Send
your comments or suggestions |
|
|
|
