وارد کردن فرمول در جعبه فرمول یکی از پرکاربردترین فرآیندها در اکسل است. ممکن است مشاهده کرده باشید که وقتی فرمولی را در کادر ارائه شده وارد می کنیم، فرمول برای فرمولی که استفاده می کنیم همیشه کوچک یا خیلی بزرگ خواهد بود. این می تواند مشکلاتی ایجاد کند زیرا گاهی اوقات ما نمی توانیم کل فرمولی را که استفاده می کنیم ببینیم و گاهی اوقات فضای جعبه فرمول هدر می رود و دید ما را نسبت به داده ها کاهش می دهد. ما می توانیم با گسترش خودکار نوار فرمول در اکسل، مشکل مشاهده فرمول را حل کنیم. این آموزش به شما کمک می کند تا بفهمید چگونه می توانیم به طور خودکار نوار فرمول را در اکسل گسترش دهیم.
به طور خودکار نوار فرمول را در اکسل گسترش دهید
در اینجا ما کد VBA را وارد می کنیم و سپس می بینیم که جعبه فرمول گسترش می یابد. اجازه دهید روند ساده ای را ببینیم که چگونه می توانیم به طور خودکار نوار فرمول را در اکسل با کمک یک برنامه VBA گسترش دهیم.
مرحله 1
در نظر بگیرید که یک صفحه اکسل جدید ایجاد کنید و روی نام برگه کلیک راست کنید تا برنامه VBA باز شود، سپس برنامه را مانند تصویر زیر در کادر متنی تایپ کنید.
مثال
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xLen As Long Application.ScreenUpdating = False Application.FormulaBarHeight = 1 If ActiveCell.HasFormula Then xLen = Len(ActiveCell.Formula) Else xLen = Len(ActiveCell.Value) End If If xLen > 100 Then With Application .FormulaBarHeight = .Min(.Ceiling(xLen, 100), 600) / 100 End With End If Application.ScreenUpdating = True End Sub
گام 2
برگه را به عنوان یک الگوی ماکرو فعال ذخیره کنید و با فشار دادن Alt + Q از برنامه vba خارج شوید. از این پس، اگر چیزی در برگه قرار نگیرد، مانند تصویر زیر، نوار به طور خودکار گسترش می یابد. اندازه کادر همیشه به مقدار متنی که در کادر فرمول وارد کرده ایم بستگی دارد.