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 Sub

3. 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?