Ribuan CheckBox (ActiveXControls ex Control ToolBox) yg di embeded di
woksit;
property 'LinkedCell'-nya dapat kita SET secara "sekali tepuk" dengan
loop seperti
ini
Sub LinkChkBoxesToCell()
' siti Vi / 25 aug 2010
Dim cbx
For Each cbx In ActiveSheet.Shapes
With cbx.OLEFormat.Object
If Left(cbx.Name, 8) = "CheckBox" Then
.LinkedCell = ckx.TopLeftCell.Offset(0, 1).Address
.Object.Object.Value = False
End If
End With
Next
End Sub
meraba semua Shape (diwakili oleh variable object [cbx] di woksit-aktip
jika ia bernama-depan 8 karkater pertama = "CheckBox", maka
*property LinkedCellnya* di set = alamat cell yg ada di sebelah KANAN-nya 1
kolom
dan *property Value *diberi nilai = FALSE
2010/8/25 STDEV(i) <[email protected]>
> gunakan CheckBox dari ActiveX-Controls (toolBar Control ToolBox)
> nanti mengatur LinkedCell nya (walau pun jutaan checkbox)
> dapat diotomatiskan dengan makro (looping)
>
>
> 2010/8/25 Mody <[email protected]>
>
>
>> Tks Info nya pak Sony,
>>
>> Jika menggunakan cara seperti saya sudah paham, cara seperti itu Ok untuk
>> checkbox kurang dari 10.
>>
>> yang saya hadapi saya memiliki 2500 checkbox lebih . tidak mungkin semua
>> cekbox harus klik kanan dan mengisi link cell secara manual..
>>
>> Mohon petunjuknya..
>>
>>
>>
>> Best Regard,
>>
>> Mody
>>
>>
>>
