Списък с кодове за цветен индекс на VBA
Когато използвате VBA за кодиране на Colorindex (или цвят на фона) на клетка, е полезно да знаете кое цяло число ще бъде равно на какъв цвят. По -долу е референтна снимка, която показва цвета и изброява съответния Colorindex. известен още като Цветова палитра VBA
Ето кода, за да направите такъв за себе си, или просто маркирайте тази страница:
| 123456789101112131415 | Sub ColorRef ()Dim x като цяло числоЗа x = 1 до 56Ако x <ТогаваКлетки (x, 1). Интериор. Цветен индекс = xКлетки (x, 2) = xИначеКлетки (x - 28, 3). Интериор. ColorIndex = xКлетки (x - 28, 4) = xКрай АкоСледващ xEnd Sub |
Примери за VBA ColorIndex
Задайте цвят на фона на клетката
| 1 | Диапазон ("A1"). Интериор.Индекс на цвета = 6 |
Задайте цвят на шрифта на клетката
| 1 | Диапазон ("A1"). Font.ColorIndex = 5 |
Задайте цвят на границата на клетките
| 1 | Range ("A1"). Borders.ColorIndex = 5 |
Вземете цвят на фона на клетката Индекс
| 123 | Dim col като цяло числоcol = Диапазон ("A1"). Интериор.Цветен индекс |
Задайте цвят на фона на клетката на цвят на друга клетка
| 1 | Диапазон ("A1"). Интериор.ColorIndex = Диапазон ("B1"). Интериор.ColorIndex |
VBA Цветово свойство
Вместо да използвате свойството ColorIndex на Excel / VBA, можете да използвате свойството Color. Свойството Color приема два типа въвеждане:
- vbColor
- RGB цветове
Ще обсъдим тези по -долу:
Цвят VB
VB Color е най -лесният начин за задаване на цветове във VBA. Той обаче е и най -малко гъвкав. За да зададете цветен код с помощта на vbColor, използвайте таблицата по -долу:
Както можете да видите от таблицата, вашите възможности са изключително ограничени.
Задайте цвят на фона на клетката
| 1 | Диапазон ("A1"). Интериор.Цвет = vbЖълт |
Задайте цвят на шрифта на клетката
| 1 | Диапазон ("A1"). Font.Color = vbBlue |
Задайте цвят на границата на клетките
| 1 | Диапазон ("A1"). Граници.Цвет = vbRed |
Задайте цвят на фона на клетката на цвят на друга клетка
| 1 | Диапазон ("A1"). Интериор.Цвет = Диапазон ("B1"). Интериор.Цвят |
RGB цветове
RGB означава червено зелено синьо. Това са трите основни цвята, които могат да се комбинират, за да се получи всеки друг цвят. Когато въвеждате цветове като RGB, въведете стойност между 0 и 255 за всеки цветен код.
Ето един пример:
| 1 | Диапазон ("A1"). Интериор. Цвят = RGB (255,255,0) |
По -горе сме задали червено = 255 (максимална стойност), зелено = 255 (максимална стойност) и синьо = 0 (минимална стойност). Това задава цвета на фона на клетката на Жълт.
Вместо това можем да зададем цвета на шрифта на клетката на лилав:
| 1 | Диапазон ("A1"). Интериор. Цвят = RGB (128,0,128) |
Има многобройни онлайн инструменти за намиране на RGB код за желания от вас цвят (ето един).
Списък с кодове на ColorIndex и RGB цветове в Access VBA
Access използва формуляри за показване на данни. Можете да използвате ColorIndex кодовете, за да промените програмно цвета на фона и цвета на предния план на обекти във вашите формуляри за достъп.
| 12345 | Частен под cmdSave_Click ()'променете цвета на фона на бутона за запазване, когато записът е записан.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenEnd Sub |
