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 funkció. Néha azt szeretné, ha az oszlop szélessége automatikusan frissülne az oszlop leghosszabb szövege alapján, vagyis ha egy hosszú szöveges karakterláncot ír be a cellába, akkor az oszlop szélessége automatikusan átméretezésre kerül a tartalom hosszának megfelelően. Lehetséges-e ezzel Excelben foglalkozni?
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?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
