تغییر پهنای ستونها به اندازه کاراکترهای نوشته شده در آن ، بعد از هر بار تایپ

[misammisam]

باسلام
با کد زیر میتونید بعد از هر بار تایپ در هر سلول ، اندازه ستون رو بطور خودکار مرتب کنید

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim value
Application.ScreenUpdating = False
For Each value In Target.Columns
    Worksheets(Sh.Name).Columns(value.Column).AutoFit
Next value
Application.ScreenUpdating = True
End Sub 

فایل ضمیمه میشه ، میتونید نحوره کار رو در فایل ضمیمه ببینید ، فقط کافیه داخل یکی از سلولها شروع به نوشتن بکنید .
موفق باشید

[p30vahid]

با سلام

از بابت این آموزش بسیار کاربردی تشکر می کنم ولی امکانش هست برای یک ستون و یا سطر و حتی سلول خاص هم توشیحاتی بفرمایید به نحوی که این تغییر سایز فقط در رابطه با تغییر در داده های یک سطر و یا یک ستون و یا یک سلول باشد.

با سپاس فراوان

[misammisam]

بله امکانش هست ، فقط کافیه یه IF بهش اضافه کنید ، مثلا اگه بخواید فقط در ستون (B:B) که میشه معادل ستون 2 ، تغییرات اعمال بشه باید به شکل زیر عمل کنید .

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 

برای بقیه موارد مثل سطر خاص یا از ستون فلان تا ستون فلان و یا حتی سلول خاص هم که خودتون استادید میزارم به عهده خودتون .