Lista kodów indeksu kolorów VBA
Używając VBA do kodowania Colorindex (lub koloru tła) komórki, warto wiedzieć, jaka liczba całkowita będzie równa jakiemu kolorowi. Poniżej znajduje się zdjęcie referencyjne, które pokazuje kolor i wyświetla odpowiedni indeks kolorów. znany jako Paleta kolorów VBA
Oto kod, który pozwoli Ci zrobić to dla siebie lub po prostu dodać tę stronę do zakładek:
| 123456789101112131415 | Sub kolorRef()Dim x As IntegerDla x = 1 do 56Jeśli x < WtedyKomórki(x, 1).Interior.ColorIndex = xKomórki(x, 2) = xW przeciwnym razieKomórki(x - 28, 3).Interior.ColorIndex = xKomórki(x - 28, 4) = xZakończ, jeśliNastępny xNapis końcowy |
Przykłady kolorów indeksu VBA
Ustaw kolor tła komórki
| 1 | Zakres("A1").Interior.ColorIndex = 6 |
Ustaw kolor czcionki komórki
| 1 | Zakres("A1").Czcionka.KolorIndex = 5 |
Ustaw kolor obramowań komórek
| 1 | Zakres("A1").Borders.ColorIndex = 5 |
Uzyskaj indeks koloru tła komórki
| 123 | Dim col jako liczba całkowitacol = Range("A1").Interior.ColorIndex |
Ustaw kolor tła komórki na kolor innej komórki
| 1 | Range("A1").Interior.ColorIndex = Range("B1").Interior.ColorIndex |
Właściwość koloru VBA
Zamiast używać właściwości ColorIndex Excela / VBA, możesz użyć właściwości Color. Właściwość Color przyjmuje dwa typy danych wejściowych:
- vbColor
- Kolory RGB
Omówimy je poniżej:
Kolor VB
VB Color to najprostszy sposób na ustawienie kolorów w VBA. Jednak jest też najmniej elastyczny. Aby ustawić kod koloru za pomocą vbColor, skorzystaj z poniższej tabeli:
Jednak, jak widać z tabeli, twoje możliwości są bardzo ograniczone.
Ustaw kolor tła komórki
| 1 | Zakres("A1").Interior.Color = vbYellow |
Ustaw kolor czcionki komórki
| 1 | Zakres("A1").Kolor czcionki = vbBlue |
Ustaw kolor obramowań komórek
| 1 | Zakres("A1").Borders.Color = vbRed |
Ustaw kolor tła komórki na kolor innej komórki
| 1 | Range("A1").Interior.Color = Range("B1").Interior.Color |
Kolory RGB
RGB oznacza czerwony zielony niebieski. Są to trzy podstawowe kolory, które można łączyć, aby uzyskać dowolny inny kolor. Wprowadzając kolory jako RGB, wprowadź wartość od 0 do 255 dla każdego kodu koloru.
Oto przykład:
| 1 | Zakres("A1").Kolor wnętrza = RGB(255,255,0) |
Powyżej ustawiliśmy czerwony = 255 (wartość maksymalna), zielony = 255 (wartość maksymalna) i niebieski = 0 (wartość minimalna). Ustawia to kolor tła komórki na Żółty.
Zamiast tego możemy ustawić kolor czcionki komórki na fioletowy:
| 1 | Zakres("A1").Kolor wnętrza = RGB(128,0,128) |
Istnieje wiele narzędzi online do znalezienia kodu RGB dla pożądanego koloru (oto jeden).
Lista kodów ColorIndex i kolory RGB w programie Access VBA
Program Access używa formularzy do wyświetlania danych. Za pomocą kodów ColorIndex można programowo zmieniać kolor tła i kolor pierwszego planu obiektów w formularzach programu Access.
| 12345 | Prywatna sub cmdSave_Click()'zmień kolor tła przycisku zapisu, gdy zapis jest zapisywany.DoCmd.RunCommand accCmdSaveRecordcmdSave.BackColor = vbGreenNapis końcowy |
