RE: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Berhasil Mr. Kid.
Terima kasih Mr. Kid, semoga Tuhan membalas kebaikan Mr.Kid dengan pahala yang 
lebih baik. Amiin…

Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, March 28, 2017 7:12 PM
To: BeExcel
Subject: Re: [belajar-excel] Code vba membuat visible false untuk beberapa 
textbox dan label


Oh sorry, ada yang keliru :
               if typename(lcase(octl.name<http://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<mailto:tio.ad...@ptssb.co.id> [belajar-excel] 
<belajar-excel@yahoogroups.com<mailto: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> 
[mailto: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<http://octl.name>))="textbox" then
                    if left(lcase(octl.name<http://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<mailto:tioali2...@yahoo.co.id> [belajar-excel] 
<belajar-excel@yahoogroups.com<mailto: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