Kako samodejno prilagoditi širino stolpca v Excelu?

V Excelu lahko prilagodite širino stolpca tako, da se hitro prilega vsebini celice z uporabo Samodejno Širina stolpca funkcija. Včasih želite, da se širina stolpca samodejno posodobi na podlagi najdaljšega besedila v tem stolpcu, kar pomeni, da se bo ob vnosu dolgega besedilnega niza v celico širina stolpca samodejno spremenila v velikost, da bo ustrezala dolžini vsebine. Ali je to mogoče obravnavati v Excelu?

Samodejno prilagodi širino stolpcev s kodo VBA

Samodejno prilagodi širino stolpcev s bližnjicami

Samodejno prilagodi širino stolpcev s kodo VBA

Zdi se, da je širina stolpca samodejno posodobljena z dolžino vsebine celice zanimiv trik. Za dokončanje lahko uporabite naslednjo kodo VBA.

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Nato dvokliknite Ta delovni zvezek v Projekt VBA predmete v levem podoknu, da odprete prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo VBA:

Koda VBA: stolpec za samodejno prileganje z delovnim zvezkom

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. Nato shranite in zaprite to kodo in zdaj, ko v celico vnesete dolgo besedilo, se bo širina stolpca samodejno prilagodila vsebini.

Samodejno prilagodi širino stolpcev s bližnjicami

Če imate več stolpcev z delom vsebine celice skritih, kot je prikazano na spodnjem posnetku zaslona, ​​želite hkrati spremeniti velikost stolpcev, da ustreza njihovi vsebini. Naslednje bližnjične tipke vam lahko pomagajo.

1. Izberite obseg podatkov, za katerega želite spremeniti velikost širine stolpca.

2. Drži druga tipko in pritisnite H + O + I, in zdaj so vaše širine stolpcev samodejno prilagojene njihovi vsebini. Oglejte si posnetek zaslona:

Opomba: Če uporabljate Excel 2003 in starejšo različico, morate uporabiti te bližnjice: ALT + O + C + A.

Sorodni članki:

Kako samodejno prilagoditi višino vrstic spojenih celic v Excelu?

Kako spremeniti velikost višine vrstice ali širine stolpca tako, da ustreza besedilu v Excelu?