Note: The other languages of the website are Google-translated. Back to English
English English

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 Exceldobrý nápad3


šipka modrá pravá bublina 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 doc-multiplikovat-výpočet-3 tlačítko k provedení kódu. Zobrazí se okno s výzvou k zadání řady výšek řádků. Viz screenshot:

doc-set-cell-size-cm1

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:

doc-set-cell-size-cm2 -2 doc-set-cell-size-cm3

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

šipka modrá pravá bublina 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:

velikost souboru dokumentu cm9

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:

velikost sady dokumentů v cm 5

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.

doc-set-cell-size-cm6


šipka modrá pravá bublina 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ší 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.
karta kte 201905

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!
officetab dno
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Páni - to je úžasné! Potřeboval jsem nastavit buňky pro tisk v určité velikosti. Nikdy předtím jsem nebyl schopen přijít na to, jak to udělat. Hurá do VBA!
Tento komentář byl moderátorem webu minimalizován
Moc to potřeboval. Děkuji moc!
Tento komentář byl moderátorem webu minimalizován
Zdá se nadbytečné. Stačí přejít do běžného dialogu velikosti sloupce a po zadání velikosti přidat "cm".
Tento komentář byl moderátorem webu minimalizován
Děkuji. Použil jsem váš nápad k porovnání ColumnWidth a Width a bylo to velmi užitečné. Tuto funkci jsem provedl v Object Pascal a chci se o ni s vámi podělit. Dík. procedure ActiveCellColumnWidthInCentimeters(ExcelApp: Variant; CM: Double); var dColumnWidth, dWidth, body: Double; begin dColumnWidth := ExcelApp.ActiveCell.ColumnWidth; dWidth := ExcelApp.ActiveCell.Width; body := ExcelApp.CentimetersToPoints(CM); ExcelApp.ActiveCell.ColumnWidth := ((body * dColumnWidth) / dWidth); konec;
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění