Sut i ffitio lled colofn yn Excel yn awtomatig?
Yn Excel, gallwch addasu lled y golofn i ffitio cynnwys y gell yn gyflym trwy ddefnyddio'r Lled Colofn AutoFit nodwedd. Weithiau, hoffech i led y golofn ddiweddaru'n awtomatig yn seiliedig ar y testun hiraf yn y golofn honno, hynny yw, wrth fewnbynnu rhywfaint o linyn testun hir yn y gell, bydd lled y golofn yn cael ei newid maint yn awtomatig i ffitio hyd y cynnwys. A yw hyn yn bosibl delio ag ef yn Excel?
Lled colofnau ffit awto gyda chod VBA
Lled colofnau ffit awto gydag allweddi llwybr byr
Lled colofnau ffit awto gyda chod VBA
Mae'n ymddangos ei fod yn gwneud lled y golofn yn cael ei diweddaru'n awtomatig gyda hyd cynnwys y gell yn gamp ddiddorol, gallwch ddefnyddio'r cod VBA canlynol i'w orffen.
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Yna cliciwch ddwywaith Llyfr Gwaith hwn yn y Prosiect VBA gwrthrychau yn y cwarel chwith i agor modiwl gwag, ac yna copïo a gludo gan ddilyn y cod VBA i'r Modiwl:
Cod VBA: colofn ffit awto yn y llyfr gwaith
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. Yna arbedwch a chau'r cod hwn, ac yn awr, pan fyddwch chi'n rhoi testun hir i mewn i gell, bydd lled y golofn yn addasu i ffitio'r cynnwys yn awtomatig.
Lled colofnau ffit awto gydag allweddi llwybr byr
Os oes gennych sawl colofn gyda rhan o gynnwys celloedd wedi'u cuddio fel y dangosir y llun a ddangosir, rydych chi am newid maint lled y golofnau ar unwaith i ffitio'u cynnwys. Efallai y bydd yr allweddi llwybr byr canlynol yn eich helpu chi.
1. Dewiswch yr ystod ddata rydych chi am newid maint lled y golofn.
2. Dal i lawr Alt allwedd a'r wasg H + O + I., ac erbyn hyn mae lled eich colofn wedi'i osod yn awtomatig ar eu cynnwys ar unwaith. Gweler y screenshot:
Nodyn: Os ydych chi'n defnyddio Excel 2003 a fersiwn gynharach, mae angen i chi ddefnyddio'r bysellau llwybr byr hyn: ALT + O + C + A..
Erthyglau cysylltiedig:
Sut i ffitio uchder rhes celloedd cyfun yn Excel?
Sut i newid maint uchder rhes neu led colofn i ffitio testun yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
