Oh sorry, ada yang keliru :
if typename(lcase(octl.name))="textbox" then
harusnya :
if lcase(typename(octl <http://octl.name>))="textbox" then
2017-03-27 15:10 GMT+07:00 Tio Adi Bayu Adjie [email protected]
[belajar-excel] <[email protected]>:
>
>
> Salam Mr.Kid dan teman-teman,
>
> Saya sudah mencoba dengan membuat contoh seperti code vba yang Mr. Kid
> berikan, tapi belum ada reaksi. Apakah ada yang kurang dari code vba saya
> ya ?
>
> Saya hanya merubah txtxx menjadi temp.
>
>
>
> Contoh terlampir.
>
>
>
> Regards,
>
> Tio
>
>
>
> *From:* [email protected] [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* Sunday, March 26, 2017 9:10 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Code vba membuat visible false untuk
> beberapa textbox dan label
>
>
>
>
>
> Hai Tio,
>
> Langkah 1 :
>
> > Properti bernama '(Name)' dari setiap textbox yang akan di-loop diberi
> nama dengan prefix tertentu, seperti txtXX01, txtXX02, dst
>
> > Jadi, ada identifier setiap textbox control di 5 karakter pertama
> properti '(Name)' berbunyi sesuatu yang khas menurut kelompoknya.
>
> Langkah 2 :
>
> > pada event Click milik sebuah commandbutton control diisi dengan proses
> loop terhadap seluruh controls, seperti ini :
>
> dim oCtl as object
>
> for each octl in me.controls
>
> if typename(lcase(octl.name))="textbox" then
>
> if left(lcase(octl.name),5)="txtxx" then
>
> octl.visible=false
>
> endif
>
> endif
> next octl
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
>
>
> 2017-03-26 15:56 GMT+07:00 Tio Ali [email protected] [belajar-excel]
> <[email protected]>:
>
>
>
> Salam Be Exceller
>
>
>
> Misal di userform ada beberapa textbox dan label yang tag nya dikasih
> nilai "xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.
>
>
>
> Bagaimana sintax dari code for each next untuk membuat visible false
> ketika tombol di klik pada beberapa textbox dan label yg tagnya bernilai
> "xx'"?
>
>
>
> Terima kasih atas bantuannya.
>
>
>
> Salam
>
> Tio
>
>
>
>
>
