Hai Danny,
1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah activex
control, nama-nama checkbox yang diubah nilainya diawali chkKid (seperti
chkKid01, chkKid02, dan sebagainya), cells trigger (yang diubah adalah A1).
Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap oleobject
dalam sheet bernama 'Kid'
if oole.name like "chkKid*" then 'si oleobject yang
diproses memilki nama yang diawali 'chkKid' (case sensitive)
oole.value=false
endif
next oole
endif
endif
2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form control,
nama-nama check box yang diubah nilainya diawali shpChk (seperti shpChk01,
shpChk02, dan sebagainya), cells trigger (yang diubah adalah A1).
dim shp as checkbox
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each shp in sheets("kid").checkboxes
if shp.name like "shpChk*" then 'case sensitive
shp.value=xloff
endif
next shp
endif
endif
Kira-kiranya demikian.
Regards,
Kid
On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> Selamat siang, saya ingin bertanya.
>
> Jika setiap kali saya merubah nilai dalam cell L5 (berapapun nilainya)
> maka checkbox yang berada pada sheet aktif tersebut tidak tercentang.
>
> Rumus VBAnya bagaimana yaa?
>
>
>
