تنظیم حداقل و حداکثر هنگام تنظیم خودکار عرض ستون

Question

Ken یک کاربرگ با بیش از 100 ستون با عرض های مختلف دارد. برای خوانایی آن، کل کاربرگ (به جز ردیف سرصفحه) را انتخاب می کند و از AutoFit Column Width استفاده می کند. برخی از ستون ها یک رقمی هستند و او توانایی خواندن سرصفحه را از دست می دهد. برخی از ستون ها بیش از 200 کاراکتر دارند، بنابراین بیش از حد گسترده می شوند. کن تعجب می کند که آیا راهی برای تنظیم حداقل (7) و حداکثر (50) عرض ستون برای عملکرد AutoFit وجود دارد.

این را نمی توان به صورت بومی در اکسل انجام داد زیرا هیچ روش داخلی برای تنظیم حداقل یا حداکثر وجود ندارد. با این حال، انجام آن با استفاده از ماکرو به اندازه کافی آسان است. در اینجا یک مثال از یکی که این کار را انجام می دهد:

Sub SetColWidths()
    Dim c As Range
    Dim iMin As Integer
    Dim iMax As Integer

    iMin = 7
    iMax = 50
    Application.ScreenUpdating = False
    For Each c In Selection.Columns
        c.AutoFit
        If c.ColumnWidth < iMin Then c.ColumnWidth = iMin
        If c.ColumnWidth > iMax Then c.ColumnWidth = iMax
    Next c
    Application.ScreenUpdating = True
End Sub

به منظور استفاده از ماکرو، به سادگی سلول های ستون هایی را که می خواهید روی آن تأثیر بگذارند انتخاب کنید (همانطور که کن انجام می دهد)، و سپس ماکرو را اجرا کنید. AutoFit را روی ستون ها اعمال می کند و سپس از هر یک عبور می کند تا مطمئن شود که هیچ چیزی باریک از 7 یا عریض تر از 50 نیست.