Hoe stel je de celgrootte in cm (centimeters) in Excel in?
Op een werkblad zijn de standaardeenheden voor de rijhoogte en kolombreedte vooraf ingesteld, waarbij de standaard kolombreedte 8,38 tekens is en de standaard rijhoogte 12,75 punten. In Excel is het lastig om de rijhoogte of kolombreedte in inches of centimeters in te stellen. Maar soms moet je de hoogte en breedte omzetten naar centimeters voor een bepaald doel. Hoe kun je dit probleem oplossen?
Stel de celgrootte in cm (centimeters) in met VBA-code
Stel de celgrootte in cm (centimeters) in met Kutools voor Excel 
Stel de celgrootte in cm (centimeters) in met VBA-code
Je kunt de hoogte en breedte niet in centimeters instellen met Excel's functies, behalve door VBA-code te gebruiken. De onderstaande twee codes kunnen je helpen om de kolombreedte en rijhoogte in te stellen. Doe het volgende:
1. Selecteer de cellen waarvan je ze in centimeters wilt instellen.
2. Klik op Developer > Visual Basic, er verschijnt een nieuw Microsoft Visual Basic for Applications-venster, klik op Insert > Module, en voer de volgende code in in de Module:
Code voor het instellen van de rijhoogte in centimeters:
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 vervolgens op
om de code uit te voeren. Er verschijnt een pop-upvenster waarin je wordt gevraagd om een getal in te voeren voor de rijhoogte. Zie screenshot:
Opmerking: het getal dat je invoert moet kleiner zijn dan 15. En deze VBA-code verandert de rijhoogte niet als je 0 invoert in dit dialoogvenster.
4. Klik op OK. En de rijhoogte van de geselecteerde cellen is ingesteld op 2 centimeter. Zie screenshot:
 |  |  |
Als je ook de kolombreedte in centimeters wilt instellen, kun je de volgende code invoeren:
Code voor het instellen van de kolombreedte in centimeters:
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 Stel de celgrootte in cm (centimeters) in met Kutools voor Excel
Met de bovenstaande codes kun je alleen de celgrootte in centimeters instellen. Vandaag introduceer ik je een multifunctioneel hulpmiddel, Kutools voor Excel, waarmee je niet alleen de celgrootte in centimeters kunt instellen, maar ook in inches, pond en pixels.
Na het installeren van Kutools voor Excel, doe dan het volgende:（Download Kutools voor Excel nu gratis!)
1. Markeer de cellen die je in centimeters wilt instellen.
2. Klik op Kutools > Opmaak > Pas celgrootte aan, zie screenshot:
3. In het dialoogvenster Pas celgrootte aan, kies het Eenheidstype dat je nodig hebt en specificeer de Rijhoogte en Kolombreedte in de sectie Waarden instellen . Zie screenshot:
4. Klik vervolgens op OK of Toepassen. Je krijgt cellen met een rijhoogte van 2 cm en een kolombreedte van 3 cm.
Demo: Stel de celgrootte in cm (centimeters) in met Kutools voor Excel
Gerelateerde artikelen:
Stel kolombreedte en rijhoogte in voor een bereik
Hoe vierkante meerdere cellen in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen