Овај водич ће показати како се користи ВБА за означавање ћелије или опсега ћелија.
Условно обликовање је један од начина истицања ћелија у Екцелу. Такође можемо користити ВБА за извођење означавања ћелија.
Означите ћелију
Да бисмо означили ћелију у ВБА, можемо користити једноставну процедуру као што је приказано испод.
| 123 | Суб ХигхлигхтЦелл ()АцтивеЦелл.Интериор.Цолор = вбРедЕнд Суб |
Означите опсег ћелија
Слично томе, можемо изабрати опсег ћелија и означити све ћелије у опсегу.
| 1234 | Суб ХигхлигхтРанге ()Распон ("А1: А10"). ИзаберитеСелецтион.Интериор.Цолор = вбРедЕнд Суб |
Означите ћелије на основу вредности ћелије
Да бисмо додали услов за означавање ћелије, можемо користити израз ИФ да означимо ћелију ако је вредност ћелије изнад одређене вредности, у овом случају веће од 10.
| 12345 | Суб ХигхтлигхтЦелл_1Ако је АцтивеЦелл.Валуе> 10 ондаАцтивеЦелл.Интериор.Цолор = вбРедКрај АкоЕнд Суб |
Означите опсег ћелија на основу вредности ћелије
Да бисмо проверили вредности у опсегу ћелија, морали бисмо да прођемо кроз сваку ћелију, установимо њену вредност, а затим у складу са тим означимо ћелију. У доњем примеру прво ћемо установити да је вредност која се налази у опсегу број, а затим тестирати да ли је тај број већи од 10.
| 12345678910 | Суб ХигхлигхтРангеОфЦеллс ()Дим рнг Ас РангеЗа сваки рнг у домету ("А1: А10")Ако је ИсНумериц (рнг.Валуе) ТадаАко је рнг.Валуе> 10 Затимрнг.Интериор.Цолор = вбРедКрај АкоКрај АкоНект рнгЕнд Суб |
Означите ћелију условним обликовањем
Такође можемо користити ВБА за примену условног обликовања на ћелију да бисмо означили ћелију. У доњем примеру, условно обликовање ће се применити на сваку ћелију у опсегу. Као у горњем примеру, прво тестирамо да ли ћелија има нумеричку вредност у себи, а затим применимо условно обликовање.
| 12345678910 | Суб СетЦондитионалФорматтинг ()Дим рнг Ас РангеЗа сваки позив у опсегу ("А1: А10")Ако је ИсНумериц (рнг.Валуе) Тадарнг.ФорматЦондитионс.Адд Типе: = клЦеллВалуе, Оператор: = клГреатер, Формула1: = "= 10"рнг.ФорматЦондитионс (1) .Интериор.Цолор = вбРедрнг.ФорматЦондитионс (1) .СтопИфТруе = НетачноКрај АкоНект рнгЕнд Суб |
Означите ћелију када се промени избор
Истицање ћелије можемо учинити динамичким када се показивач ћелије помера на тренутном радном листу помоћу догађаја Ворксхеет_Цханге. У доњем примеру, сва истицања на листу ће бити уклоњена (осим оних која су направљена условним обликовањем), а активна ћелија ће бити означена црвеном бојом (ЦолорИндек = 3).
| 1234 | Приватни под -радни лист_СелецтионЦханге (БиВал циљ као опсег)АцтивеСхеет.Целлс.Интериор.ЦолорИндек = клЦолорИндекНонеТаргет.Интериор.ЦолорИндек = 3Енд Суб |
