Hur ställer jag in cellstorlek i cm (centimeter) i Excel?

I ett kalkylblad är standardenheterna för radhöjd och kolumnbredd förinställda och standardkolumnbredden är 8.38 tecken och standardradhöjden är 12.75 poäng. Och i Excel är det svårt för dig att ställa in radhöjden eller kolumnbredden i tum eller centimeter. Men ibland måste du ändra höjd och bredd till centimeter för något ändamål. Hur kunde du lösa detta problem?

Ställ in cellstorlek i cm (centimeter) med VBA-kod

Ställ in cellstorlek i cm (centimeter) med Kutools för Excel

Ställ in cellstorlek i cm (centimeter) med VBA-kod

Du kan inte ställa in höjd och bredd i centimeter med Excels funktioner, förutom att du använder VBA-kod. Nedanstående två koder kan hjälpa dig att ställa in kolumnbredd och radhöjd. Gör enligt följande:

1. Välj cellerna som du vill ställa in dem i centimeter.

2. klick Utvecklare > Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulernaoch mata in följande kod i modulen:

Kod för att ställa in radhöjd i centimeter:

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. Klicka sedan  för att köra koden. Och en snabbruta dyker upp för att berätta att du anger ett antal radhöjder. Se skärmdump:

Anmärkningar: numret du anger måste vara mindre än 15. Och den här VBA-koden ändrar inte radhöjden om du anger 0 i denna dialogruta.

4. klick OK. Och radhöjden för de valda cellerna har ställts in med 2 centimeter. Se skärmdump:

Om du också vill ställa in kolumnbredden i centimeter kan du ange följande kod:

Kod för att ställa in kolumnbredd i centimeter:

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

Ställ in cellstorlek i cm (centimeter) med Kutools för Excel

Med ovanstående koder kan du bara ställa in cellstorlek i centimeter, idag presenterar jag dig ett multifunktionellt verktyg, Kutools för Excel som inte bara kan ställa in cellstorlek i centimeter utan också i tum, pund och pixlar.

När du har installerat Kutools för Excel, gör så här:（Gratis nedladdning Kutools för Excel nu!)

1. Markera cellerna som du vill ställa in dem i centimeter.

2. klick Kutools > Format > Adjust Cell Size, se skärmdump:

3. I Adjust Cell Size dialogrutan väljer du Unit type du behöver och ange Row height och Column width från Set values sektion. Se skärmdump:

4. Klicka sedan OK or Ansök. Du får celler med 2 cm radhöjd och 3 cm kolumnbredd.

Ställ in cellstorlek i cm (centimeter) med Kutools för Excel

Relaterade artiklar:

Ställ in kolumnbredd och radhöjd för ett intervall

Hur kvadrerar jag flera celler i Excel?