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 Sub3. 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:
Poznámka: 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.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. | ||
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 a Column width od Set values sekce. Viz screenshot:
4. Pak klikněte na tlačítko OK or Podat žádost. Získáte buňky s výškou řádku 2 cm a šířkou sloupce 3 cm.
Nastavte velikost buňky v cm (centimetrech) pomocí programu Kutools pro Excel
| Kutools pro Excel: 300+ funkcí, které musíte mít v Excelu, 30denní bezplatná zkušební verze odtud. |
Související články:
Nastavte šířku sloupce a výšku řádku pro rozsah
Jak čtvercovat více buněk v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
