Yup, sudah benar. Event change milik si worksheet 2017-07-28 19:48 GMT+07:00 Danny Prasetyo [email protected] [belajar-excel] <[email protected]>:
> > > Baik Mr. Kid nanti saya coba kembali. > Btw rumus yg Mr. Kid suruh ini (prosedur event di sheet 'Kid' untuk event > bernama change) udah benar belum yaa? > > Private Sub Worksheet_Change(ByVal Target As Range) > > Saya takut salah > *Dari:* [email protected] > *Terkirim:* 28 Juli 2017 7.38 PM > *Kepada:* [email protected] > *Balas ke:* [email protected] > *Hal:* Re: [belajar-excel] Merubah nilai checkbox dengan nilai cell > > > > oh sorry, > > begini : > 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*.object*.value=false > endif > next oole > endif > endif > > Regards, > Kid > > > > On Fri, Jul 28, 2017 at 10:38 AM, Danny Prasetyo [email protected] > [belajar-excel] <[email protected]> wrote: > >> >> >> Ini rumus yang saya gunakan Mr. Kid, rumus ini saya isi di sheet 1, >> dan CheckBox yang saya gunakan adalah ActiveX Control. >> >> Private Sub Worksheet_Change(ByVal Target As Range) >> Dim oOLE As OLEObject >> If Target.Count = 1 Then >> If Target.Address = "$K$5" Then >> For Each oOLE In Sheets("Sheet1").OLEObjects >> If oOLE.Name Like "CheckBox1" Then >> oOLE.Value = False >> End If >> Next oOLE >> End If >> End If >> End Sub >> >> Masalahnya adalah: >> setelah saya coba mengisi atau merubah isi Cell di K5 dan posisi CheckBox >> tercentang, hasilnya bukan CheckBox tidak tercentang, malah terdapat >> keterangan seperti di bawah ini: >> >> Run-time error '438': >> Object doesn't support this property or method >> >> yang merujuk ke rumus ini >> oOLE.Value = False >> >> Mohon dibantu Mr. Kid dan terima kasih sudah bersedia membantu. >> >> >> Pada Kamis, 27 Juli 2017 23:53, "'Mr. Kid' [email protected] >> [belajar-excel]" <[email protected]> menulis: >> >> >> >> 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? >> >> >> >> >> > >
