Цветен индекс на Excel VBA
Както в работния лист, ние променяме цвета на клетка или даден диапазон от клетки от началния раздел във VBA. Имаме функция vba, наречена Цветен индекс, която се използва за промяна на цветовете на клетките или предоставения диапазон от клетки, тази функция има уникална идентификация за различен тип цветове.
Във VBA имаме два начина за прилагане на цвета, първият е чрез използване на свойството “color”, а вторият използва свойството “ColorIndex”.
Прилагаме цвят върху клетката като цвят на фона, прилагаме цвят на шрифта и прилагаме цвят на границата. Така че, за да осъществим достъп до свойството цвят и цветен индекс, първо трябва да изберете клетката.
Как да използвам свойството Color & Color Index?
# 1 - Използване на свойство Цвят
Да предположим, че имате думата „Здравей“ в клетката А1. Ще видим как да приложим цвета на фона на тази клетка.
За да променим цвета на фона, в свойствата на цвета, първо трябва да споменем обхвата на клетката.
Код:
Подцвят () Диапазон ("A1") Край Под
След като изберем клетката, трябва да споменем какво е нещото, което трябва да направим. Както казах, трябва да променим вътрешния цвят на клетката. За да промените цвета на фона на клетката, използвайте свойството „Интериор“.
Код:
Подцвят () Обхват ("A1"). Вътрешен край Sub
Под Интериорна собственост имаме няколко други метода и свойства. Тъй като трябва да променим цвета на клетката, използвайте свойството цвят.
Код:
Подцвят () Обхват ("A1"). Interior.Color = Край Sub
Тук можем да използваме 8 постоянно именувани цвята. По-долу е списъкът на същото.
vbBlack, vbRed, vbGreen, vbBlue, vbЖълто, vbMagenta, vbCyan, vbWhiteИзберете типа цвят според вашето желание.
Код:
Sub Color () Обхват ("A1"). Interior.Color = vb Син край Sub
Ако стартирам този код с помощта на клавиша F5 или ръчно, той ще промени цвета на фона на клетка А1 на стойност .
По този начин можете да използвате други константи с имена. Опитайте да ги използвате, за да тествате резултата.
Освен тези 8 постоянни цвята, ние също можем да пълним с различни цветове, като използваме функцията RGB във VBA.
Код:
Sub Color () Обхват ("A1"). Interior.Color = RGB (End Sub
Трябва да въведем сместа от червено, зелено и синьо в цифри. За да използвате това, трябва да сте перфектни при въвеждането на цифрите. Въведох сместа като RGB (250, 200, 150).
Код:
Подцвет () Обхват ("A1"). Интериор. Цвят = RGB (250, 200, 150) Край Под
Промяната на този цвят е такава.
Проблемът тук е, че не знаете точно кое число има какъв цвят.
Кодът по-долу е да промените цвета на шрифта.
Код:
Sub Color_Font () Обхват ("A1"). Font.Color = RGB (100, 400, 100) Край Sub
Изпълнете този код с помощта на клавиша F5 или ръчно, за да получите резултата.
# 2 - Използване на свойството Color Index
Индексът на цветовете е малко по-различен от свойството цвят. В свойството COLOR използваме 8 постоянни цвята, дадени от VBA, а също така използвайки функцията RGB, създаваме свой собствен цвят.
Имотът COLOR INDEX е ограничен в VBA. Той може да побере стойностите от 1 до 56. Всяко число от 1 до 56 съдържа различни цветове. По-долу са номерата на списъка и съответните цветове.
По-долу е даден макрокода за промяна на цвета на фона на клетка А1 на розов.
Код:
Sub ColorIndex_Cell () Обхват ("A1"). Interior.ColorIndex = 26 Краен Sub
Стартирайте този код ръчно или с помощта на клавиша F5, за да видите резултата.
По-долу е даден макрокода за промяна на цвета на шрифта на клетка А1 на жълт.
Код:
Sub ColorIndex_Font () Обхват ("A1"). Font.ColorIndex = 27 Краен Sub
Изпълнете този код, като използвате клавиша F5, или можете да стартирате ръчно и да видите резултата.
Едно от важните неща, които трябва да запомните тук, е, че можем да въведем числа от 1 до 56. Ако нещо повече от 56, ще получим грешката „Индекс извън обхвата“.
Наблюдавахте ли?
Както казах Color Index, свойството може да вмъкне само 56 цвята, но факт е, че може да вмъкне само 46 уникални цвята и има 10 дублиращи се цвята. По-долу е списъкът с дублиращи се цветови кодове.
