Tento tutoriál ukáže, jak formátovat buňky pomocí VBA.
Formátování buněk
Existuje mnoho vlastností, které lze nastavit pro (rozsah) buněk takto:
1234567891011 | Sub SetCellFormat ()S pracovními listy („List1“). Rozsah („B5: C7“).HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Kurzíva".NumberFormat = "Obecné".Interior.Color = RGB (128, 100, 250)Konec sEnd Sub |
Podívejme se na ně v abecedním pořadí:
AddIndent
Nastavením hodnoty této vlastnosti na True bude text automaticky odsazen, pokud je zarovnání textu v buňce nastaveno, buď horizontálně nebo vertikálně, na stejnou distribuci (viz HorizontalAlignment a VerticalAlignment).
12345 | S pracovními listy („List1“). Rozsah („A1“).Orientace = xlVertikální.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueKonec s |
Hranice
Můžete nastavit formát ohraničení buňky. Zde naleznete další informace o hranicích.
Jako příklad můžete nastavit červenou přerušovanou čáru kolem buňky B2 na listu 1 takto:
1 | Pracovní listy („List1“). Rozsah („B2“). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Písmo
Formát písma buňky můžete upravit nastavením názvu písma, stylu, velikosti, barvy, přidáním podtržení nebo efektů (přeškrtnutí, dolní nebo horní index). Zde naleznete další informace o písmech buněk.
Zde jsou nějaké příklady:
12345 | S rozsahem („A1: C5“). Písmo.Name = "Století".FontStyle = "Bold".Strikethrough = PravdaKonec s |
FormulaHidden
Tato vlastnost vrací nebo nastavuje hodnotu varianty, která indikuje, zda bude vzorec skrytý, když je list chráněn. Například:
1 | Pracovní listy („List1“). Rozsah („A1: B1“). FormulaHidden = True |
Horizontální zarovnání
Tato vlastnost formátu buňky buňky vrací nebo nastavuje hodnotu varianty, která představuje horizontální zarovnání pro zadaný objekt. Vrácené nebo nastavené konstanty mohou být: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Například:
1 | Pracovní listy („List1“). Rozsah („D3“). HorizontalAlignment = xlRight |
Úroveň odsazení
Vrací nebo nastavuje celočíselnou hodnotu mezi 0 a 15, která představuje úroveň odsazení pro buňku nebo rozsah.
1 | Pracovní listy („List1“). Rozsah („A1“). IndentLevel = 7 |
Interiér
Můžete nastavit nebo získat vrácené informace o interiéru buňky: její Color, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, například takto:
123 | Pokud není rozsah („A1“). Interior.ThemeColor = ThemeColorLight2 PotomRozsah („A1“). Interior.Pattern = xlPatternUpKonec If |
Zamčeno
Tato vlastnost vrací True, pokud je buňka nebo rozsah uzamčena, False, pokud lze objekt upravit, když je list chráněn, nebo Null, pokud zadaný rozsah obsahuje zamčené i odemčené buňky. Může být také použit pro zamykání nebo odemykání buněk.
Tento příklad odemkne buňky A1: B2 na List1, aby je bylo možné upravit, když je list chráněn.
12 | Pracovní listy („List1“). Rozsah („A1: B2“). Zamčeno = NepravdaPracovní listy („List1“). Chraňte |
Spojit buňky
Pokud potřebujete sloučit rozsah, nastavte tuto vlastnost na True. Jeho hodnota bude True, pokud zadaný rozsah obsahuje sloučené buňky. Pokud například potřebujete sloučit rozsah C5: D7, můžete použít tento kód:
1 | Pracovní listy („List1“). Rozsah („C5: D7“). MergeCells = True |
NumberFormat
V buňkách můžete nastavit formát čísel na Obecné, Číslo, Měna, Účetnictví, Datum, Čas, Procento, Zlomek, Vědecký, Text, Speciální a Vlastní.
Zde jsou příklady vědeckých a procentních formátů čísel:
12 | Rozsah ("A1"). NumberFormat = "0,00E+00"Rozsah ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Tato vlastnost vrací nebo nastavuje hodnotu varianty, která představuje kód formátu pro objekt jako řetězec v jazyce uživatele.
Orientace
Pomocí této vlastnosti můžete nastavit (nebo získat vrácenou) orientaci textu v buňkách. Jeho hodnota může být jedna z těchto konstant: xlDownward, xlHorizontal, xlUpward, xlVertical nebo celočíselná hodnota od -90 do 90 stupňů.
1 | Pracovní listy („List1“). Rozsah („A1“). Orientace = -60 |
Rodič
Toto je vlastnost jen pro čtení, která vrací nadřazený objekt zadaného objektu.
ShrinkToFit
Tato vlastnost vrací nebo nastavuje hodnotu varianty, která indikuje, zda se text automaticky zmenší, aby se vešel do dostupné šířky sloupce.
1 | Pracovní listy („List1“). Rozsah („A1“). ShrinkToFit = True |
Vertikální zarovnání
Tato vlastnost formátu buňky buňky vrací nebo nastavuje hodnotu varianty, která představuje svislé zarovnání pro zadaný objekt. Vrácené nebo nastavené konstanty mohou být: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Například:
1 | Pracovní listy („List1“). Rozsah („A1“). VerticalAlignment = xlTop |
Obtékání textu
Tato vlastnost vrací True, pokud je text zabalen do všech buněk v zadaném rozsahu, False, pokud text není zabalen do všech buněk v zadaném rozsahu, nebo Null, pokud zadaný rozsah obsahuje některé buňky, které obtékají text, a jiné buňky, které nikoli.
Pokud máte například tento rozsah buněk:
tento kód níže vrátí hodnotu Null v okamžitém okně:
1 | ? Pracovní listy ("List1"). Rozsah ("A1: B1"). WrapText |