Hvordan indstilles cellestørrelse i cm (centimeter) i Excel?
På et regneark er standardenhederne for rækkehøjde og søjlebredde forudindstillet, og standard søjlebredde er 8.38 tegn, og standard rækkehøjde er 12.75 point. Og i Excel er det svært for dig at indstille rækkehøjden eller kolonnebredden i tommer eller centimeter. Men nogle gange er du nødt til at ændre højden og bredden til centimeter til et eller andet formål. Hvordan kunne du løse dette problem?
Indstil cellestørrelse i cm (centimeter) med VBA-kode
Indstil cellestørrelse i cm (centimeter) med Kutools til Excel
Indstil cellestørrelse i cm (centimeter) med VBA-kode
Du kan ikke indstille højden og bredden i centimeter med Excels funktioner undtagen brug af VBA-kode. De nedenstående to koder kan hjælpe dig med at indstille kolonnebredde og rækkehøjde. Gør som følger:
1. Vælg de celler, du vil indstille dem i centimeter.
2. klik Udvikler > Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Moduler, og indtast følgende kode i modulet:
Kode til indstilling af rækkehøjde 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. Klik derefter på 
knap for at udføre koden. Og der vises en hurtigboks for at fortælle dig at indtaste et antal rækkehøjder. Se skærmbillede:
Bemærk: det antal, du indtaster, skal være mindre end 15. Og denne VBA-kode ændrer ikke rækkehøjde, hvis du indtaster 0 i denne dialogboks.
4. klik OK. Og rækkehøjden for de valgte celler er indstillet til 2 centimeter. Se skærmbillede:
 |
 |
 |
Hvis du også vil indstille søjlebredden i centimeter, kan du indtaste følgende kode:
Kode til indstilling af søjlebredde 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 Indstil cellestørrelse i cm (centimeter) med Kutools til Excel
Med ovenstående koder kan du kun indstille cellestørrelse i centimeter, i dag vil jeg introducere dig til et multifunktionelt værktøj, Kutools til Excel som ikke kun kan indstille cellestørrelse i centimeter, men også i inches, pund og pixels.
| Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. | ||
Efter installation Kutools til Excel, gør venligst som nedenfor:（Gratis download Kutools til Excel nu!)
1. Fremhæv de celler, du vil indstille dem i centimeter.
2. klik Kutools > Format > Adjust Cell Size, se skærmbillede:
3. i Adjust Cell Size dialogboksen, vælg den Unit type du har brug for og specificer Row height , Column width fra Set values afsnit. Se skærmbillede:
4. Klik derefter på OK or Indløs. Du får celler med 2 cm rækkehøjde og 3 cm søjlebredde.
Indstil cellestørrelse i cm (centimeter) med Kutools til Excel
| Kutools til Excel: 300 + funktioner, du skal have i Excel, 30-dages gratis prøveperiode herfra. |
Relaterede artikler:
Indstil kolonnebredde og rækkehøjde for et interval
Hvordan firkantes flere celler i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
