Как да побера автоматично ширината на колоната в Excel?
В Excel можете да регулирате ширината на колоната, за да пасне бързо съдържанието на клетката, като използвате Автопобиране ширината на колоната особеност. Понякога бихте искали ширината на колоната да се актуализира автоматично въз основа на най-дългия текст в тази колона, тоест, когато въведете дълъг текстов низ в клетката, ширината на колоната ще бъде преоразмерена автоматично, за да пасне на дължината на съдържанието. Възможно ли е това да се справи с него в Excel?
Автоматично побиране на ширината на колоните с VBA код
Автоматично побиране на ширината на колоните с клавишни комбинации
Автоматично побиране на ширината на колоните с VBA код
Изглежда, че ширината на колоната автоматично се актуализира с дължината на съдържанието на клетката е интересен трик, можете да използвате следния VBA код, за да го завършите.
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
2. След това кликнете два пъти Тази работна книга в Проект VBA обекти в левия панел, за да отворите празен модул, след което копирайте и поставете следния VBA код в модула:
VBA код: автоматично побиране на колона с работна книга
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub
3. След това запазете и затворете този код и сега, когато въвеждате дълъг текст в клетка, ширината на колоната автоматично ще се коригира, за да пасне на съдържанието.
Автоматично побиране на ширината на колоните с клавишни комбинации
Ако имате няколко колони с част от съдържанието на клетката, което е скрито, както е показано на следната екранна снимка, искате да преоразмерите ширината на колоните наведнъж, за да пасне на тяхното съдържание. Следните клавишни комбинации могат да ви помогнат.
1. Изберете диапазона от данни, чиято ширина на колоната искате да промените.
2. Задръж Друг и натиснете H + O + Iи сега ширините на вашите колони са незабавно автоматично монтирани към тяхното съдържание. Вижте екранна снимка:
Забележка: Ако използвате Excel 2003 и по-ранна версия, трябва да използвате тези клавишни комбинации: ALT + O + C + A.
Още по темата:
Как да побера автоматично височината на реда на обединени клетки в Excel?
Как да преоразмерите височината на реда или ширината на колоната, за да пасне на текста в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!