Gå til hovedindhold

Hvordan tilpasser man automatisk søjlebredde i Excel?

I Excel kan du justere kolonnebredden, så den passer til celleindholdet hurtigt ved hjælp af Autotilpas Kolonnebredde funktion. Nogle gange vil du gerne have, at søjlebredden automatisk opdateres baseret på den længste tekst i den søjle, det vil sige, når du indtaster en lang tekststreng i cellen, ændres søjlebredden automatisk for at passe til indholdets længde. Er dette muligt at håndtere det i Excel?

Automatisk tilpasning af kolonnebredde med VBA-kode

Automatisk tilpasning af kolonnebredde med genvejstaster


pil blå højre boble Automatisk tilpasning af kolonnebredde med VBA-kode

Det ser ud til at gøre søjlebredden automatisk opdateret med celleindholdets længde er et interessant trick, du kan bruge følgende VBA-kode til at afslutte den.

1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Dobbeltklik derefter ThisWorkbook i VBA-projekt objekter i venstre rude for at åbne et tomt modul og derefter kopiere og indsætte følgende VBA-kode i modulet:

VBA-kode: automatisk tilpasningskolonne med i projektmappen

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-kolonne-bredde-1

3. Gem og luk derefter denne kode, og når du nu indtaster lang tekst i en celle, justeres søjlebredden automatisk, så den passer til indholdet.


pil blå højre boble Automatisk tilpasning af kolonnebredde med genvejstaster

Hvis du har flere kolonner, hvor en del af celleindholdet er skjult, som det følgende skærmbillede vises, vil du ændre størrelsen på kolonnebredderne med det samme for at passe til deres indhold. Følgende genvejstaster kan hjælpe dig.

doc-autofit-kolonne-bredde-1

1. Vælg det dataområde, som du vil ændre størrelsen på kolonnebredden.

2. Holde nede andre tasten og tryk på H+O+I, og nu er dine søjlebredder straks tilpasset deres indhold. Se skærmbillede:

doc-autofit-kolonne-bredde-1

Bemærk: Hvis du bruger Excel 2003 og tidligere versioner, skal du bruge disse genvejstaster: ALT + O + C + A..


Relaterede artikler:

Hvordan tilpasser man automatisk rækkehøjde af flettede celler i Excel?

Hvordan ændres størrelsen på rækkehøjde eller kolonnebredde, så den passer til tekst i Excel?

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations