Wa'alaikumussalam Wr. Wb.
Pada sebuah module bisa dilakukan deklarasi enumeration dengan syntax :
[scope] Enum nama_enumeration
item1 = nilai_item1
item2 = nilai_item2
itemN = nilai_itemN
End Enum
kemudian gunakan nama_enumeration sebagai tipe data dalam script.
Contoh :
variabel msg akan berisi item tetap A,B,C. Maka dibuat enumeration :
Public Enum Pesan
A = "A"
B = "B"
C = "C"
end enum
Pubilc sub ContohPakai1()
dim sKet as Pesan
'lalu tulis dibaris baru berbunyi sKet=
end sub
Public sub ContohPakai2( sTeks as pesan)
'isi prosedurnya bebas, misal :
debug.print steks
end sub
Public sub ContohPakai3()
'coba panggil prosedur ContohPakai2 caranya :
'tulis nama prosedur ContohPakai2 lalu spasi
end sub
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/7 Adi <[email protected]>
> **
>
>
> Assalamu'alaikum Wr. Wb.
> Dear Master....
> Bagaimana cara membuat pilihan seperti drop down list di area vba? seperti
> halnya ketika membuat sebuah message box, maka setelah menulis string
> message trus koma, maka akan muncul pilihan bentuk dari message itu.
> Sebagai contoh, saya mempunyai kode berikut:
>
>
> Private Sub tMessage(msg as string)
>
> Dim sStr as String
>
> Select Case msg
>
> Case "A"
>
> sStr="Nama saya Adi"
>
> Case "B"
>
> sStr="Saya dari Lombok"
>
> Case "C"
>
> sStr="Lombok Barat NTB"
>
> End Select
> MsgBox sStr
>
> End Sub
>
>
> Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita kita
> tuliskan tMessage?
>
> Contoh:
>
> Sub Tampilkan_Klik()
>
> tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik tMessage
> trus
>
> End Sub
>
> Mohon dear penjelasannya..., karena logika yang seperti ini sangat penting
> untuk project yang saya buat agar lebih efisien. maaf klu ada yang tidak
> jelas n brtele2
> Thanks
>
>
>
