جردن تعدادی سلول را در کاربرگ خود قالب بندی کرد تا متن را درون آنها بپیچد. حتی اگر متن در سلول‌ها بسته می‌شود، اکسل به‌طور خودکار ارتفاع ردیف را برای نمایش تمام متن‌های پیچیده تنظیم نمی‌کند. جردن به این فکر می کند که آیا راهی برای "تنظیم مجدد" ردیف وجود دارد تا اکسل ارتفاع آن را بر اساس متنی که در سلول ها پیچیده شده است تنظیم کند.
به‌طور پیش‌فرض، زمانی که متن را در یک سلول قرار می‌دهید، اکسل به‌طور خودکار ارتفاع ردیف را تنظیم می‌کند تا تمام متن موجود در سلول قابل مشاهده باشد. فقط دو استثنا برای این پیش فرض وجود دارد:
- سلولی که متن را در آن قرار می دهید در واقع با سلول دیگری ادغام شده است.
- ارتفاع ردیفی که سلول در آن قرار دارد قبلاً تغییر کرده بود.
در مورد Jordans، هیچ سلول ادغام شده در ردیف مشکل وجود ندارد. این ما را با دومین استثنا باقی می گذارد - به نظر می رسد که ارتفاع ردیفی که سلول در آن قرار دارد به صراحت قبل از روشن شدن wrapping در برخی از سلول های ردیف تنظیم شده است.
در این مورد، راه حل ساده است: تنظیم مجدد ارتفاع ردیف. در واقع چند راه وجود دارد که می توانید این کار را انجام دهید. ابتدا می توانید ردیف را انتخاب کنید و سپس روی "مرز" بین ردیف و ردیف مجاور دوبار کلیک کنید. با انتخاب سطر، نگاهی به سرصفحه ردیف، در سمت چپ ستون A بیندازید. این ناحیه حاوی یک شماره ردیف است، و "مرز" که باید روی آن دوبار کلیک کنید، بین این شماره ردیف و شماره ردیف بعدی است.
قرار دادن نشانگر ماوس در محل صحیح برای انجام دوبار کلیک کردن ممکن است کمی مشکل باشد، بنابراین رویکردی که من ترجیح می دهم این است که ردیف را انتخاب کرده و زبانه صفحه اصلی نوار را نمایش دهم. در گروه Cells ابزار Format وجود دارد. روی آن کلیک می کنم و سپس AutoFit Row Height را انتخاب می کنم. این به اکسل اجازه می دهد تا ارتفاع ردیف مناسب را بر اساس محتویات ردیف تعیین کند. اگر یک سلول در ردیف بسته بندی روشن باشد، ارتفاع ردیف به طور خودکار برای نمایش اطلاعات در سلول تنظیم می شود.
اگر تعداد کمی از ردیف‌هایی دارید که حاوی سلول‌هایی با بسته‌بندی روشن هستند، و ارتفاع هیچ یک از ردیف‌ها تنظیم نمی‌شود، ممکن است به یک ماکرو کوچک سریع علاقه‌مند باشید که می‌تواند این تنظیمات را برای شما انجام دهد:
Sub AutofitRows()
Dim c As Range
For Each c In ActiveSheetUsedRange
If c.WrapText Then c.Rows.AutoFit
Next c
End Sub
ماکرو از تمام سلول‌های یک کاربرگ عبور می‌کند و اگر بسته بندی سلول روشن باشد، ویژگی AutoFit ردیفی را که سلول در آن قرار دارد تنظیم می‌کند.
