فروشگاه
انبارداری پیشرفته تحت اکسل

تنظیم خودکار عرض ستون در اکسل

آموزش تنظیم خودکار عرض ستون در اکسل هنگام وارد کردن داده ها در اکسل، متوجه خواهید شد که سلول ها فضای محدودی برای نمایش محتویات خود دارند.
که می تواند باعث قطع نمایش داده ها شود. چه متن و چه اعداد، می‌توانید به طور خودکار اندازه سلول‌ها را متناسب با محتویات متن داخل سلول اکسل با کد نوشتاری AutoFit در اکسل تغییر و تناسب دهید.
.
مطمئناً می توانید اندازه سلول ها را در ستون ها و ردیف ها به صورت دستی در Microsoft Excel تنظیم کنید.
اما یک راه سریع برای کوچک کردن یا گسترش سلول ها به تناسب متن یا اعدادبه صورت خودکار طبق کد VBA زیر وجود دارد

تنظیم خودکار عرض ستون در اکسل

تنظیم خودکار عرض ستون در اکسل

تنظیم خودکار عرض ستون در اکسل

 

دستور Cells.EntireColumn.AutoFit در VBA به منظور تنظیم عرض ستون‌ها در برنامه اکسل استفاده می‌شود. با اجرای این دستور بر روی یک ستون خاص، ستون مورد نظر به گونه‌ای تنظیم می‌شود که بهترین عرض برای نمایش محتویات سلول‌ها در آن ستون انتخاب شود.

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

پیش نهاد آکادمی روح الله برای شما :
آموزش استفاده اکسل 2021 بدون نیاز به نصب

آموزش تنظیم خودکار عرض ستون در اکسل

آموزش تنظیم خودکار عرض ستون در اکسل

آموزش تنظیم خودکار عرض ستون در اکسل

برای مثال، اگر از دستور Cells(1, 1).EntireColumn.AutoFit استفاده کنید، ستون اول در ورکشیت فعلی بر اساس محتوای سلول‌ها به طور خودکار تنظیم می‌شود. این کار باعث می‌شود که سلول‌ها به صورت کامل دیده شوند بدون نیاز به اسکرول افقی.

به طور خلاصه، Cells.EntireColumn.AutoFit برای تنظیم بهترین عرض ستون بر اساس محتوای سلول‌ها استفاده می‌شود تا محتویات سلول‌ها به طور کامل قابل مشاهده باشند.

میانگین رتبه 5/5 تعداد رای : 4
اکسل را حرفه ای یاد بگیر
نظر شما در مورد این مقاله چیست؟

نظر یا سوال شما در این مورد چیست؟

سلام دوست عزیز خوشحال میشوم نظر شما را در مورد این مقاله بدانم 👇

    صفری

    با عرض سلام و خدا قوت
    ممنون از آموزش های خوبتان
    آقای مهندس میخواستم کد مرتب کردن اعداد یک ستون بصورت صعودی یا نزولی را در کد نویسی vba برایم بفرستید یا منبعی معرفی بفرمایید.
    ممنون

    پاسخ

      خواهش می‌کنم! اگر سوال یا درخواست دیگری دارید یا به کمکی نیاز دارید، خوشحال می‌شوم که کمک کنم.
      البته که بله، میتوانید از کد زیر برای مرتب کردن اعداد یک ستون در اکسل با استفاده از VBA استفاده کنید. این کد به صورت صعودی مرتب می‌کند:


      Sub SortColumnAscending()
      Dim ws As Worksheet
      Dim lastRow As Long

      ' تنظیم ورکشیت فعال
      Set ws = ActiveSheet

      ' یافتن آخرین ردیف با داده
      lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

      ' مرتب کردن ستون A به صورت صعودی
      ws.Range("A1:A" & lastRow).Sort key1:=ws.Range("A1"), order1:=xlAscending, Header:=xlYes
      End Sub

      اگر بخواهید به صورت نزولی مرتب کنید، تغییر order1:=xlAscending به order1:=xlDescending:


      Sub SortColumnDescending()
      Dim ws As Worksheet
      Dim lastRow As Long

      ' تنظیم ورکشیت فعال
      Set ws = ActiveSheet

      ' یافتن آخرین ردیف با داده
      lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

      ' مرتب کردن ستون A به صورت نزولی
      ws.Range("A1:A" & lastRow).Sort key1:=ws.Range("A1"), order1:=xlDescending, Header:=xlYes
      End Sub

      برای اجرای این کدها، می‌توانید وارد ویرایشگر VBA شوید (Alt + F11)، یک ماژول جدید ایجاد کنید و کد را درون آن قرار دهید. سپس می‌توانید کدها را اجرا کنید.
      شاد پیروز باشید

      پاسخ
    محمد

    سلام
    وقتی کد را در شیت وارد می کنیم کلید Undo در شیت غیرفعال می شود.

    پاسخ

      سلام ارادت خدمت شما دوست عزیز
      این کد ها تست شده است با وارد کردن این کد ها هیچ مشکلی پیش نمیاد شاید از کد های دیگه باشد که وارد شیت اکسل کردین با اون کد تداخل پیدا کنید
      یا اینکه کد را به درستی وارد نکردین می توانید چندین دلی داشته باشد
      موفق باشید

      پاسخ