بله امکانش هست ، فقط کافیه یه IF بهش اضافه کنید ، مثلا اگه بخواید فقط در ستون (B:B) که میشه معادل ستون 2 ، تغییرات اعمال بشه باید به شکل زیر عمل کنید .
کد PHP:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim value
Application.ScreenUpdating = False
For Each value In Target.Columns
If value.Column = 2 Then
Worksheets(Sh.Name).Columns(value.Column).AutoFit
End If
Next value
Application.ScreenUpdating = True
End Sub
برای بقیه موارد مثل سطر خاص یا از ستون فلان تا ستون فلان و یا حتی سلول خاص هم که خودتون استادید میزارم به عهده خودتون .
علاقه مندی ها (Bookmarks)