Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrovat  \/ 
x

or

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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Iverson Farias Costa · 6 years ago
    Thank you. I used your idea to compare ColumnWidth and Width, and it was very helpful. I did this function in Object Pascal and want to share it with you. Thanks.

    procedure ActiveCellColumnWidthInCentimeters(ExcelApp: Variant; CM: Double);
    var
    dColumnWidth, dWidth, points: Double;
    begin
    dColumnWidth := ExcelApp.ActiveCell.ColumnWidth;
    dWidth := ExcelApp.ActiveCell.Width;
    points := ExcelApp.CentimetersToPoints(CM);

    ExcelApp.ActiveCell.ColumnWidth := ((points * dColumnWidth) / dWidth);
    end;
  • To post as a guest, your comment is unpublished.
    dm · 6 years ago
    Seems redundant.

    Just go into the regular column size dialogue and add "cm" after typing the size.
  • To post as a guest, your comment is unpublished.
    Sani · 6 years ago
    Needed this badly. [b]Thank you so much![/b]
  • To post as a guest, your comment is unpublished.
    MrsJennyk · 7 years ago
    Wow - that is awesome! I needed to set cells to print at a certain size. I have never been able to figure out how to do that before. Yay for VBA!