Seznam kódů indexů barev VBA
Při použití VBA ke kódování Colorindexu (nebo barvy pozadí) buňky je užitečné vědět, jaké celé číslo se bude rovnat jaké barvě. Níže je referenční obrázek, který ukazuje barvu a uvádí její příslušný Colorindex. aka Paleta barev VBA
Zde je kód, který si můžete vytvořit sami, nebo si tuto stránku přidejte do záložek:
| 123456789101112131415 | Sub ColorRef ()Dim x As IntegerPro x = 1 až 56Pokud x <PotomBuňky (x, 1). Interior.ColorIndex = xBuňky (x, 2) = xJinýBuňky (x - 28, 3). Interiér.ColorIndex = xBuňky (x - 28, 4) = xKonec IfDalší xEnd Sub |
Příklady VBA ColorIndex
Nastavit barvu pozadí buňky
| 1 | Rozsah ("A1"). Interior.ColorIndex = 6 |
Nastavte barvu písma buňky
| 1 | Rozsah („A1“). Font.ColorIndex = 5 |
Nastavte barvu ohraničení buněk
| 1 | Rozsah ("A1"). Borders.ColorIndex = 5 |
Získejte ColorIndex pozadí buňky
| 123 | Dim col jako celé číslocol = Range ("A1"). Interior.ColorIndex |
Nastavte barvu pozadí buňky na jinou barvu buňky
| 1 | Rozsah ("A1"). Interior.ColorIndex = Rozsah ("B1"). Interior.ColorIndex |
Vlastnost barvy VBA
Místo použití vlastnosti ColorIndex aplikace Excel / VBA můžete použít vlastnost Color. Vlastnost Color přebírá dva typy vstupu:
- vbColor
- Barvy RGB
Níže o nich budeme diskutovat:
Barva VB
VB Color je nejjednodušší způsob, jak nastavit barvy ve VBA. Je však také nejméně flexibilní. Chcete -li nastavit barevný kód pomocí vbColor, použijte následující tabulku:
Jak však vidíte z tabulky, vaše možnosti jsou extrémně omezené.
Nastavit barvu pozadí buňky
| 1 | Rozsah („A1“). Interior.Color = vbŽlutá |
Nastavte barvu písma buňky
| 1 | Rozsah ("A1"). Font.Color = vbBlue |
Nastavte barvu ohraničení buněk
| 1 | Rozsah („A1“). Borders.Color = vbRed |
Nastavte barvu pozadí buňky na jinou barvu buňky
| 1 | Rozsah („A1“). Interior.Color = Rozsah („B1“). Interior.Color |
Barvy RGB
RGB znamená červená zelená modrá. Toto jsou tři základní barvy, které lze kombinovat a vytvořit jakoukoli jinou barvu. Při zadávání barev jako RGB zadejte hodnotu mezi 0 a 255 pro každý barevný kód.
Zde je příklad:
| 1 | Rozsah ("A1"). Interior.Color = RGB (255,255,0) |
Výše jsme nastavili červenou = 255 (maximální hodnota), zelenou = 255 (maximální hodnota) a modrou = 0 (minimální hodnota). Tím se barva pozadí buňky nastaví na žlutou.
Místo toho můžeme nastavit barvu písma buňky na fialovou:
| 1 | Rozsah („A1“). Interior.Color = RGB (128,0 128) |
Existuje mnoho online nástrojů k nalezení kódu RGB pro požadovanou barvu (zde je jedna).
Seznam kódů ColorIndex a barvy RGB v Access VBA
Access používá k zobrazení dat formuláře. Kódy ColorIndex můžete použít k programové změně barvy pozadí a barvy popředí objektů ve formulářích aplikace Access.
| 12345 | Private Sub cmdSave_Click ()'při uložení záznamu změní barvu pozadí tlačítka pro uložení.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenEnd Sub |
