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 tio.ad...@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>: > > > 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:* belajar-excel@yahoogroups.com [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 tioali2...@yahoo.co.id [belajar-excel] > <belajar-excel@yahoogroups.com>: > > > > 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 > > > > >