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
Gosodwch faint 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 Sub3. 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 Gosodwch faint 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 isod:（Lawrlwythiad Am Ddim Kutools 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.
Gosodwch faint celloedd mewn cm (centimetrau) gyda Kutools ar gyfer Excel
| Kutools ar gyfer Excel: 300 + swyddogaethau 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?
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!
