That's great !!! makasih banyak Mr. Kid. smga sukses selalu.
--- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote:
>
> 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 <abduhsuryadi@...>
>
> > **
> >
> >
> > 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
> >
> >
> >
>
