Megjegyzés: A webhely többi nyelvét a Google fordítja. Vissza az angol nyelvre
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

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

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Az Office 2007-2019 és a 365 programokkal működik; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy a szervezetben.

nyíl kék jobb buborék 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

doc-autofit-oszlop-szélesség-1

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.


nyíl kék jobb buborék 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.

doc-autofit-oszlop-szélesség-1

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:

doc-autofit-oszlop-szélesség-1

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?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza 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 minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bakrudin · 2 years ago
    saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
    jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..