Sut i osod maint celloedd mewn cm (centimetrau) yn Excel?
Ar daflen waith, mae'r unedau diofyn ar gyfer uchder y rhes a lled y golofn yn rhagosodedig, a lled y golofn ddiofyn yw 8.38 nod ac uchder y rhes ddiofyn yw 12.75 pwynt. Ac yn Excel, mae'n anodd ichi osod uchder y rhes neu led y golofn mewn modfeddi neu centimetrau. Ond, weithiau mae angen ichi newid yr uchder a'r lled i centimetrau at ryw bwrpas. Sut allech chi ddatrys y broblem hon?
Gosod maint celloedd mewn cm (centimetrau) gyda chod VBA
Gosod maint celloedd mewn cm (centimetrau) gyda Kutools ar gyfer Excel
Gosod maint celloedd mewn cm (centimetrau) gyda chod VBA
Ni allwch osod yr uchder a'r lled mewn centimetrau â swyddogaethau Excel, heblaw am ddefnyddio cod VBA. Gall y ddau god isod eich helpu chi i osod lled colofn ac uchder rhes. Gwnewch fel a ganlyn:
1. Dewiswch y celloedd rydych chi am eu gosod mewn centimetrau.
2. Cliciwch Datblygwr > Visual Basic, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod > Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwl:
Cod ar gyfer gosod uchder rhes mewn centimetrau:
Sub RowHeightInCentimeters()
Dim cm As Single
cm = Application.InputBox("Enter Row Height in Centimeters", _
"Row Height (cm)", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub
3. Yna cliciwch
botwm i weithredu'r cod. A bydd blwch prydlon yn popio allan i ddweud wrthych am nodi nifer o uchder rhes. Gweler y screenshot:

Nodyn: rhaid i'r nifer a nodwch fod yn llai na 15. Ac ni fydd y cod VBA hwn yn newid uchder rhes os nodwch 0 yn y blwch deialog hwn.
4. Cliciwch OK. Ac mae uchder rhes y celloedd a ddewiswyd wedi'i osod gyda 2 centimetr. Gweler y screenshot:
Os ydych chi am osod lled y golofn mewn centimetrau hefyd, gallwch fewnbynnu'r cod canlynol:
Cod ar gyfer gosod lled colofn mewn centimetrau:
Sub ColumnWidthInCentimeters()
Dim cm As Single, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter Column Width in Centimeters", _
"Column Width (cm)", Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints(cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox "Width of " & cm & " is too large." & Chr(10) & _
"The maximum value is " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
Count = 0
While (ActiveCell.Width <> points) And (Count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub
Gosod maint celloedd mewn cm (centimetrau) gyda Kutools ar gyfer Excel
Gyda'r codau uchod, dim ond mewn centimetrau y gallwch chi osod maint celloedd, heddiw, byddaf yn cyflwyno teclyn amlswyddogaethol i chi, Kutools ar gyfer Excel sydd nid yn unig yn gallu gosod maint celloedd mewn centimetrau ond hefyd mewn modfeddi, punt a phicseli.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)
1.Gwelwch y celloedd rydych chi am eu gosod mewn centimetrau.
2. Cliciwch Kutools > Format > Adjust Cell Size, gweler y screenshot:

3. Yn y Adjust Cell Size blwch deialog, dewiswch y Unit type mae angen a nodwch y Row height ac Column width o Set values adran. Gweler y screenshot:

4. Yna cliciwch OK or Gwneud cais. Fe gewch gelloedd ag uchder rhes 2 cm a lled colofn 3cm.

Gosod maint celloedd mewn cm (centimetrau) gyda Kutools ar gyfer Excel
Erthyglau cysylltiedig:
Gosod lled colofn ac uchder rhes ar gyfer amrediad
Sut i sgwario celloedd lluosog yn Excel?
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!