Цветен индекс на Excel VBA
Както в работния лист, ние променяме цвета на клетка или даден диапазон от клетки от началния раздел във VBA. Имаме функция vba, наречена Цветен индекс, която се използва за промяна на цветовете на клетките или предоставения диапазон от клетки, тази функция има уникална идентификация за различен тип цветове.
Във VBA имаме два начина за прилагане на цвета, първият е чрез използване на свойството “color”, а вторият използва свойството “ColorIndex”.
Прилагаме цвят върху клетката като цвят на фона, прилагаме цвят на шрифта и прилагаме цвят на границата. Така че за достъп до свойството цвят и цветен индекс първо трябва да изберете клетката.
Как да използвам свойството Color & Color Index?
Можете да изтеглите този шаблон за цветен индекс на VBA тук - шаблон за цветен индекс на VBA# 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 или ръчно, той ще промени цвета на фона на клетка A1 на vbBlue.
По този начин можете да използвате други константи с имена. Опитайте да ги използвате, за да тествате резултата.
Освен тези 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 дублиращи се цвята. По-долу е списъкът с дублиращи се цветови кодове.
