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 Sub
3. 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.
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 og sort Column width fra Set values afsnit. Se skærmbillede:
4. Klik derefter på OK or Benyt. 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
Relaterede artikler:
Indstil kolonnebredde og rækkehøjde for et interval
Hvordan firkantes flere celler i Excel?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
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!
