Hoe de celgrootte in cm (centimeter) in Excel instellen?
Op een werkblad zijn de standaardeenheden voor de rijhoogte en kolombreedte vooraf ingesteld, en de standaard kolombreedte is 8.38 tekens en de standaard rijhoogte is 12.75 punten. En in Excel is het moeilijk voor u om de rijhoogte of kolombreedte in inches of centimeters in te stellen. Maar soms moet u de hoogte en breedte voor een bepaald doel in centimeters veranderen. Hoe zou je dit probleem kunnen 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
U kunt de hoogte en breedte niet instellen in centimeters met de functies van Excel, behalve bij het gebruik van VBA-code. De onderstaande twee codes kunnen u helpen bij het instellen van de kolombreedte en rijhoogte. Ga als volgt te werk:
1. Selecteer de cellen waarvoor u ze in centimeters wilt instellen.
2. klikken Ontwikkelaar > Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen > Module, en voer de volgende code in de module in:
Code voor het instellen van 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. Dan klikken knop om de code uit te voeren. En er verschijnt een promptvenster om u te vertellen dat u een aantal rijhoogtes moet invoeren. Zie screenshot:
Note: het getal dat u invoert, moet kleiner zijn dan 15. En deze VBA-code verandert de rijhoogte niet als u 0 invoert in dit dialoogvenster.
4. klikken OK. En de rijhoogte van de geselecteerde cellen is ingesteld op 2 centimeter. Zie screenshot:
Als je de kolombreedte ook in centimeters wilt instellen, kun je de volgende code invoeren:
Code voor het instellen van 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 de celgrootte alleen in centimeters instellen, vandaag zal ik je een multifunctionele tool voorstellen, Kutools for Excel die niet alleen de celgrootte in centimeters kan instellen, maar ook in inches, pond en pixels.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. | ||
Na het installeren van Kutools voor Excel, doe het als volgt:锛圖ownload nu Kutools voor Excel!)
1. Markeer de cellen waarvoor u ze in centimeters wilt instellen.
2. klikken Kutools > Format > Adjust Cell Size, zie screenshot:
3. In de Adjust Cell Size dialoogvenster, kies het Unit type je hebt nodig en specificeer de Row height en Column width oppompen van Set values sectie. Zie screenshot:
4. Dan klikken OK or Solliciteer. Je krijgt cellen met een rijhoogte van 2 cm en een kolombreedte van 3 cm.
Stel de celgrootte in cm (centimeters) in met Kutools voor Excel
Kutools for Excel: 300 + functies die u in Excel moet hebben, 30 dagen gratis proefperiode vanaf hier. |
Gerelateerde artikelen:
Stel de kolombreedte en rijhoogte in voor een bereik
Hoe meerdere cellen in Excel vierkant maken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!