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:
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.
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 aplikovat. 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
Související články:
Nastavte šířku sloupce a výšku řádku pro rozsah
Jak čtvercovat více buněk v aplikaci Excel?
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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 omezuje stovky kliknutí myší každý den!
