Maknyos Mr. Kid,
Thank solusinya, benar ini yang saya maksud
Wassalam
imar
2012/10/28 Mr. Kid
> **
>
>
> Oh gitu...
> Kalau gitu, hapus saja event selection change-nya.
> Coba langkah berikut :
> 1. buat module baru di VBE
> 2. copas prosedur berikut :
> Public Sub HapusShape()
> Dim shp
Ops lupa,
Prosedur TurnOn bla juga sebaiknya disesuaikan offset topleftcell nya si
shape agar bisa lebih pas yang di turn on.
Assign macro si tumbul ke prosedur turn on tersebut (prosedur dalam object
class ber scope private, jadi harus ada nama si object class didepan nama
prosedurnya).
Wassalam,
Oh gitu...
Kalau gitu, hapus saja event selection change-nya.
Coba langkah berikut :
1. buat module baru di VBE
2. copas prosedur berikut :
Public Sub HapusShape()
Dim shp As Shape, rngArea As Range
Set rngArea = Intersect(Selection, ActiveSheet.Range("a2:f8"))
If Not rngArea Is Nothing
Thanks untuk tanggapannya Mr, Kid, mungkin pertanyaan saya kurang jelas,
*Saya ingin menggunakan macro untuk menghapus object (checkbox) dengan cara
men-select cell-nya* (bukan object-nya), ini dikarenakan object checkbox
ini cukup banyak di sheet dan jika memilih objectnya (dengan menekan ctrl,
h
Coba pakai event selection change milik si worksheet.
Prosedurnya begini :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column < 7 Then
If .Row > 1 Then
If .Row < 9 Then
Be-Exceler,
[image: Inline image 1]
Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan cara
men-select (me-range) A2:A5 atau A2:B5
saya ada contoh untuk meng-aktif-kan checkbox dengan men-select cell-nya,
bagaimana me-modifikasi yang terpilih object checkbox-nya?
Wassalam
imar
6 matches
Mail list logo
