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?
>
>
>
>
>
>
