Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 Excelsyniad da3


swigen dde glas saeth 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 doc-lluosi-cyfrifo-3 botwm i weithredu'r cod. A bydd blwch prydlon yn popio allan i ddweud wrthych am nodi nifer o uchder rhes. Gweler y screenshot:

doc-set-cell-size-cm1

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:

doc-set-cell-size-cm2 -2 doc-set-cell-size-cm3

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

swigen dde glas saeth 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.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

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:

set doc maint cell cm9

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:

gosododd doc maint celloedd yn cm 5

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

doc-set-cell-size-cm6


swigen dde glas saeth Gosod maint celloedd mewn cm (centimetrau) gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: 300 + swyddogaeth y mae'n rhaid i chi eu cael yn Excel, Treial am ddim 30 diwrnod o'r fan hon.

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.
tab kte 201905

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!
gwaelod officetab
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.
    Iverson Farias Costa · 6 years ago
    Thank you. I used your idea to compare ColumnWidth and Width, and it was very helpful. I did this function in Object Pascal and want to share it with you. Thanks.

    procedure ActiveCellColumnWidthInCentimeters(ExcelApp: Variant; CM: Double);
    var
    dColumnWidth, dWidth, points: Double;
    begin
    dColumnWidth := ExcelApp.ActiveCell.ColumnWidth;
    dWidth := ExcelApp.ActiveCell.Width;
    points := ExcelApp.CentimetersToPoints(CM);

    ExcelApp.ActiveCell.ColumnWidth := ((points * dColumnWidth) / dWidth);
    end;
  • To post as a guest, your comment is unpublished.
    dm · 6 years ago
    Seems redundant.

    Just go into the regular column size dialogue and add "cm" after typing the size.
  • To post as a guest, your comment is unpublished.
    Sani · 6 years ago
    Needed this badly. [b]Thank you so much![/b]
  • To post as a guest, your comment is unpublished.
    MrsJennyk · 7 years ago
    Wow - that is awesome! I needed to set cells to print at a certain size. I have never been able to figure out how to do that before. Yay for VBA!