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 Sub3. 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.
| Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. | ||
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
| Kutools för Excel: 300 + funktioner du måste ha i Excel, 30-dagars gratis testperiod härifrån. |
Relaterade artiklar:
Ställ in kolumnbredd och radhöjd för ett intervall
Hur kvadrerar jag flera celler i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
