Hogyan illeszthető automatikusan az oszlopszélesség az Excel-be?

Az Excel alkalmazásban az oszlopszélességet úgy állíthatja be, hogy gyorsan illeszkedjen a cella tartalmához a Legszélesebb Oszlopszélesség jellemzője. Néha azt szeretné, ha az oszlop szélessége automatikusan frissülne az adott oszlopban lévő leghosszabb szöveg alapján, vagyis ha hosszú szöveges karakterláncot ad meg a cellában, az oszlop szélessége automatikusan át lesz méretezve, hogy illeszkedjen a tartalom hosszához. Lehet ezt Excelben kezelni?

Oszlopok automatikus illesztése VBA kóddal

Az oszlopok szélességének automatikus illesztése gyorsbillentyűkkel

Oszlopok automatikus illesztése VBA kóddal

Úgy tűnik, hogy az oszlopszélesség automatikusan frissül a cellatartalom hosszával, érdekes trükk, a következő VBA-kóddal végezheti el.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson duplán Ez a munkafüzet a VBA projekt objektumok a bal oldali ablaktáblán egy üres modul megnyitásához, majd másolja és illessze be a következő VBA kódot a modulba:

VBA kód: automatikus illesztés oszlop a munkafüzetben

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. Ezután mentse el és zárja be ezt a kódot, és most, amikor hosszú szöveget ír be egy cellába, az oszlop szélessége automatikusan beállítja a tartalmat.

Az oszlopok szélességének automatikus illesztése gyorsbillentyűkkel

Ha több oszlopa van, a cellatartalom egy része rejtve van, ahogy az alábbi képernyőkép látható, akkor azonnal át kell méreteznie az oszlopszélességeket, hogy azok illeszkedjenek a tartalmukhoz. A következő gyorsbillentyűk segíthetnek Önnek.

1. Válassza ki azt az adattartományt, amelynek átméretezni kívánja az oszlop szélességét.

2. Lefog más gombot és nyomja meg a gombot H + O + I, és az oszlopszélességeket azonnal automatikusan illesztették a tartalmukhoz. Lásd a képernyőképet:

Jegyzet: Az Excel 2003 és korábbi verzióinak használata esetén ezeket a gyorsbillentyűket kell használnia: ALT + O + C + A.

Kapcsolódó cikkek:

Hogyan illeszthető be automatikusan az egyesített cellák sormagassága az Excel-be?

Hogyan lehet átméretezni a sor magasságát vagy az oszlop szélességét, hogy az illeszkedjen az Excel szövegéhez?