Czcionka komórki VBA
W języku VBA można zmienić właściwości czcionki za pomocą właściwości czcionki VBA obiektu zakresu. Wpisz następujący kod do edytora VBA, a zobaczysz listę wszystkich dostępnych opcji:
1 | Zakres("A1).Czcionka. |
Poniżej omówimy kilka najczęstszych właściwości.
Zmień kolor czcionki
Istnieje kilka sposobów ustawiania kolorów czcionek.
vbColor
Najłatwiejszym sposobem na ustawienie kolorów jest vbColors:
1 | Zakres("a1").Czcionka.Kolor = vbRed |
Jednak jesteś bardzo ograniczony pod względem dostępnych kolorów. Oto jedyne dostępne opcje:
Kolor - RGB
Możesz także ustawić kolory na podstawie RGB (czerwony zielony niebieski). Tutaj wprowadzasz wartości kolorów od 0 do 255 dla koloru czerwonego, zielonego i niebieskiego. Używając tych trzech kolorów, możesz stworzyć dowolny kolor:
1 | Zakres("a1").Kolor czcionki = RGB(255,255,0) |
Indeks koloru
VBA/Excel posiada również właściwość ColorIndex. Dzięki temu dostępne są gotowe kolory. Są one jednak przechowywane jako numery indeksowe, co utrudnia określenie, jaki jest kolor:
1 | Zakres("a1").Czcionka.ColorIndex =… |
Napisaliśmy artykuł o kodach VBA Color, w tym listę kodów VBA ColorIndex. Tam możesz dowiedzieć się więcej o kolorach.
Rozmiar czcionki
Spowoduje to ustawienie rozmiaru czcionki na 12:
1 | Zakres("a1").Rozmiar.Czcionki = 12 |
lub do 16:
1 | Zakres("a1").Rozmiar.Czcionki = 16 |
Pogrubiona czcionka
Łatwo jest ustawić czcionkę komórki na pogrubioną:
1 | Zakres("A1").Czcionka.Pogrubienie = Prawda |
lub aby wyczyścić pogrubienie formatowania:
1 | Zakres("A1").Czcionka.Pogrubienie = Fałsz |
Nazwa czcionki
Aby zmienić nazwę czcionki, użyj Nazwa własność:
1 | Zakres("A1").Font.Name = "Calibri" |
1 | Zakres("A1").Font.Name = "Arial" |
1 | Range("A1").Font.Name = "Times New Roman" |
Styl komórki
Excel oferuje możliwość tworzenia „stylów” komórki. Style można znaleźć w Strona główna Wstążka > Style:
Style umożliwiają zapisanie żądanego formatowania komórek. Następnie przypisz ten styl do nowej komórki, a całe formatowanie komórki zostanie natychmiast zastosowane. W tym rozmiar czcionki, kolor komórki, stan ochrony komórek i wszystko inne dostępne w menu formatowania komórek:
Osobiście dla wielu modeli, nad którymi pracuję, zwykle tworzę styl komórki „Input”:
1 | Zakres("a1").Styl = "Wejście" |
Używając stylów, możesz również łatwo zidentyfikować typy komórek w arkuszu. Poniższy przykład przejdzie przez wszystkie komórki w arkuszu i zmieni dowolną komórkę ze Style = "Input" na "InputLocked":
1234567 | Dim Cell jako zakresDla każdej komórki w ActiveSheet.CellsJeśli Cell.Style = "Input" thenCell.Style = "InputLocked"Zakończ, jeśliNastępna komórka |