Mungkin bisa diganti procedure nya menjadi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 7 Then
Columns("D").ColumnWidth = 22
Columns("G").ColumnWidth = 22
Else
Columns("D").ColumnWidth = 5.14
Columns("G").ColumnWidth = 5.14
End If
End Sub
----- Original Message -----
From: slamet harto
To: belajar-excel@yahoogroups.com
Cc: sofyan madinah
Sent: Wednesday, October 31, 2007 11:43 AM
Subject: Re: [belajar-excel] Cell tertentu dipilih maka akan spt Zoom
Ass Wr Wb..
Pak Sofyan terima kasih atas inputnya.. mohon maaf sekarang aku coba ingin
merubah format lebar kolomnya diperbesar dari 5.14 ke 22 dengan coding ini
tetapi debug terus..
mohon bantuan gimaa formatnya yang sebenarnya yah pak..
Terima kasih banyak atas bantuannnya.. Wassalam
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 7 Then
With ActiveCell
.ColumnWidth = 22
'Cells.ColumnWidth = 22
End With
'Columns("G:G").ColumnWidth = 22
Else
With ActiveCell
.ColumnWidth = 5.14
'Cells.ColumnWidth = 22
End With
'Cells.ColumnWidth = 5.14
End If
End Sub
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
