Jak nastavit velikost buňky v cm (centimetrech) v aplikaci Excel?

V listu jsou přednastaveny výchozí jednotky pro výšku řádku a šířku sloupce a výchozí šířka sloupce je 8.38 znaků a výchozí výška řádku je 12.75 bodů. A v aplikaci Excel je pro vás obtížné nastavit výšku řádku nebo šířku sloupce v palcích nebo centimetrech. Někdy však musíte z nějakého důvodu změnit výšku a šířku na centimetry. Jak byste mohli vyřešit tento problém?

Nastavte velikost buňky v cm (centimetrech) pomocí kódu VBA

Nastavte velikost buňky v cm (centimetrech) pomocí programu Kutools pro Excel

Nastavte velikost buňky v cm (centimetrech) pomocí kódu VBA

Pomocí funkcí aplikace Excel nemůžete nastavit výšku a šířku v centimetrech, s výjimkou použití kódu VBA. Níže uvedené dva kódy vám pomohou nastavit šířku sloupce a výšku řádku. Postupujte následovně:

1. Vyberte buňky, které chcete nastavit v centimetrech.

2. cvaknutí Vývojka > Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit > Modula do modulu zadejte následující kód:

Kód pro nastavení výšky řádku v centimetrech:

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. Pak klikněte na tlačítko  tlačítko k provedení kódu. Zobrazí se okno s výzvou k zadání řady výšek řádků. Viz screenshot:

Pozor: zadané číslo musí být menší než 15. A tento kód VBA nezmění výšku řádku, pokud v tomto dialogovém okně zadáte 0.

4. cvaknutí OK. A výška řádku vybraných buněk byla nastavena na 2 centimetry. Viz screenshot:

Pokud chcete nastavit šířku sloupce také v centimetrech, můžete zadat následující kód:

Kód pro nastavení šířky sloupce v centimetrech:

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

Nastavte velikost buňky v cm (centimetrech) pomocí programu Kutools pro Excel

S výše uvedenými kódy můžete nastavit velikost buňky pouze v centimetrech, dnes vám představím multifunkční nástroj, Kutools pro Excel což umožňuje nejen nastavit velikost buňky v centimetrech, ale také v palcích, librách a pixelech.

Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)

1. Zvýrazněte buňky, které chcete nastavit, v centimetrech.

2. cvaknutí Kutools > Format > Adjust Cell Size, viz screenshot:

3. V Adjust Cell Size dialogové okno vyberte Unit type potřebujete a specifikujte Row height si Column width od Set values sekce. Viz screenshot:

4. Pak klikněte na tlačítko OK or Přihláška. Získáte buňky s výškou řádku 2 cm a šířkou sloupce 3 cm.

Demo: Nastavte velikost buňky v cm (centimetry) pomocí Kutools pro Excel

Související články:

Nastavte šířku sloupce a výšku řádku pro rozsah

Jak čtvercovat více buněk v aplikaci Excel?