Zmień kolor komórki - .Interior.ColorIndex
Do zmiany koloru komórki możemy użyć:
Cell.Interior.ColorIndex = Liczba
Gdzie:
• Komórka jest odniesieniem do komórki
• Wnętrze - odnosi się do koloru rzeczywistego koloru komórki (Właściwość wnętrza)
• Colourindex to wartość od 1 do 56 dla jednego z 56 predefiniowanych kolorów Excela
A Num to kolor liczbowy przypisany do komórki. Jednak nie zawsze łatwo jest zapamiętać, która liczba reprezentuje jaki kolor. Poniższy podprogram zmienia kolor komórki na podstawie numeru wiersza. Na przykład wiersz 3 będzie miał kolor 3 itd.
Ponieważ w programie Excel jest 56 gotowych kolorów, oznacza to, że komórki 59, 115 będą miały ten sam kolor co komórka w wierszu 3:
| 123456789101112 | Opcja WyraźnaPrywatna Sub CommandButton1_Click()Colour_Range (Arkusze("Arkusz2")).Range("A1:A2000"))Napis końcowySubColor_Range (komórka_zakres jako zakres)' Pokoloruje każdą komórkę w zakresiePrzyciemnij komórkęDla każdej komórki w zakresie_komórekCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset(0, 0).Value = Cell.RowNastępnyNapis końcowy |
Procedura jest aktywowana przez zdarzenie kliknięcia.
Aby pobrać plik .XLSM do tego samouczka, kliknij tutaj.
