Buňky formátu VBA

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
wave wave wave wave wave