Условно обликовање у Екцелу ВБА
Изврсно, сви смо користили условно обликовање за истицање дупликата. За добијање дупликата вредности користи се углавном условно обликовање. Дуплиране вредности можемо истакнути на више начина. Можемо истакнути дупликате вриједности, вриједности специфичне за распон, а такођер можемо дефинирати и правило довршетка критерија обликовања. Испод су променљиве функције доступне у Условном обликовању.
Али шта ако можемо аутоматизовати овај процес истицања дупликата или било које врсте вредности према нашем захтеву. Критеријуми које можемо дефинисати употребом условног обликовања у Екцелу такође се могу извршити и у ВБА. За примену условног форматирања можемо одабрати било коју ћелију, распон доступан у Екцел радном листу. Условно обликовање функционише само када дефинисани критеријуми испуњавају услов. Иначе, неће показати промену боје. Помоћу условног обликовања у ВБА можемо променити боју било које ћелије или садржаја ћелије, избрисати боју ћелије или уклонити боју. Осим што мењамо боју ћелије, садржај ћелије можемо променити и у подебљани текст или Италиц . Када завршимо, можемо да поништимо и све промене.
Како се користи условно обликовање у Екцелу ВБА?
Испод су различити примери за коришћење функције условног обликовања у Екцелу помоћу ВБА кода.
Можете преузети овај ВБА условни формат форматираног предлога овде - ВБА условно обликовање Екцел предлошкаУсловно обликовање ВБА - Пример бр. 1
Имамо податке неких бројева и текста као што су доле приказани у колони А и Б. Сада смо већ категоризовали боју коју требамо дати броју и тексту који се налази у ћелији Д2. Идентификовали смо жуту боју за број 1 и абецеду А и зелену за број 2 и абецеду Б.
Иако се ВБА условно форматирање може имплементирати у модулу, али писање кода за условно обликовање у листу учиниће да код ради само на том листу. За то, уместо да одете на опцију Модул, кликните на картицу Уметање да бисте уметнули модул.
Корак 1: Сада из првог падајућег списка изаберите Радни лист који ће подразумевано бити Опште, а из падајућег списка аутоматски ће изабрати опцију СелецтионЦханге као што је приказано у наставку.
Корак 2: Једном када то учинимо, аутоматски ће се активирати приватна подкатегорија и циљна ћелија ће бити као опсег.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Крај Суб
Корак 3: Сада напишите код најприје дефинишите променљиву МиРанге као опсег . Или можете одабрати било које друго име уместо МиРанге-а по вашем избору.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Енд Суб
Корак 4: Употријебите Сет и одаберите дефинирани распон као што је приказано у наставку.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Енд Суб
Корак 5: Након тога одаберите радни лист на којем желимо применити условно обликовање. Овде је наш лист Схеет1. Секвенцу можемо ставити и као 1 уместо писања Схеет1. А затим одаберите распон оних ћелија које морамо форматирати. Овде је наш распон од ћелије А1 до Б8.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Ранге ("А1: Б8") Енд Суб
Корак 6: Сада отворите петљу Фор Евери-Нект као што је приказано у наставку. И започните с одабиром варијабле МиРанге дефиниране ћелијом .
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") за сваку ћелију у МиРанге Нект Енд Суб
Корак 7: Сада поново отворите петљу Иф-Елсе.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") за сваку ћелију у МиРанге-у ако се заврши ако Нект Енд Суб
Ово је регион у којем бисмо боје додијелили свим бројевима и алфабетима који су доступни у нашем асортиману.
Корак 8: Напишите код, ако је вредност ћелије 1 тада - Боја унутрашњости изабрана ћелија распона која је од А1 до Б8 бити зелена. А за зелену имамо шифру боје која му је додељена као 6.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") За сваку ћелију у МиРанге Иф Целл.Валуе Лике "1", затим Целл.Интериор.ЦолорИндек = 6 Крај Ако је Крај Крај Суб
Корак 9: Сада за вредност ћелије број 2. Иначе ако је вредност ћелије било које ћелије из изабраног распона 2, тада ће унутрашња боја те ћелије бити Жута. А за жуто имамо код боје који му је додељен као 4.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") За сваку ћелију у МиРанге Иф Целл.Валуе Лике "1", затим Целл.Интериор.ЦолорИндек = 6 ЕлсеИф Целл.Валуе Лике "2" Онда Целл.Интериор.ЦолорИндек = 4 Крај Иф Нект Енд Суб
За сваку боју имамо додељене различите шифре боја које почињу од 1 до 56. Док је број 1 код додељен црној боји, а број 56 додељен тамно сивој боји. Између тога имамо различите нијансе боја које можемо пронаћи из Мицрософтових докумената.
Корак 10: Ако било шта од наведеног
услов је ФАЛСЕ, ми бисмо имали још један Елсе ако је услов где ако је вредност ћелије А тада ће унутрашња боја ћелије бити Жута. А за жуто поново ћемо доделити код као 6.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") За сваку ћелију у МиРанге Иф Целл.Валуе Лике "1", затим Целл.Интериор.ЦолорИндек = 6 ЕлсеИф Целл.Валуе Лике "2" онда Целл.Интериор.ЦолорИндек = 4 ЕлсеИф Целл.Валуе Лике "А" онда Целл.Интериор.ЦолорИндек = 6 Крај ако је крај крај Суб
Корак 11: Исто урадите и за вредност Б ћелије, са шифром боје 4 као Зелена.
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") За сваку ћелију у МиРанге Иф Целл.Валуе Лике "1", затим Целл.Интериор.ЦолорИндек = 6 ЕлсеИф Целл.Валуе Лике "2" Онда Целл.Интериор.ЦолорИндек = 4 ЕлсеИф Целл.Валуе Лике "А", затим Целл.Интериор.ЦолорИндек = 6 ЕлсеИф Целл.Валуе Лике "Б", затим Целл.Интериор.ЦолорИндек = 4 Енд Иф Нект Енд Суб
Корак 12: Ако било који од услова није ТРУЕ, тада ћемо за Елсе радије одабрати боју боје као Ноне .
Шифра:
Привате Суб Ворксхеет_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим МиРанге Ас Ранге Сет МиРанге = Радни листови ("Схеет1"). Распон ("А1: Б8") за сваку ћелију у МиРанге Иф Целл.Валуе Лике "1", затим Целл.Интериор.ЦолорИндек = 6 ЕлсеИф Целл.Валуе Лике "2" Онда Целл.Интериор.ЦолорИндек = 4 ЕлсеИф Целл.Валуе Лике "А", затим Целл.Интериор.ЦолорИндек = 6 ЕлсеИф Целл.Валуе Лике "Б", затим Целл.Интериор.ЦолорИндек = 4 Елсе Целл.Инетериос.ЦолорИндек = клНи један крај Ако је крајњи крај Суб
Корак 13: Како је код велик, за састављање сваког корака кода притисните Ф8 функционални тастер. Ако није пронађена ниједна грешка, кликните на дугме за репродукцију да бисте извели целокупни код у једном потезу. Видећемо, према правилима условног обликовања дефинисаним у ВБА коду, боја ћелија је промењена у одабране шифре боја као што је приказано у наставку.
Корак 14: Ово форматирање је сада исправљено. Ако желимо да видимо промене у боји, за пробу променимо вредност било које ћелије, сматрамо, А1 од 1 до 2. Видећемо, боја ћелије А1 се мења у Зелена.
То је зато што смо изјавили да ће у опсегу А1 до Б8 свака ћелија која садржи бројеве 1 и 2 и алфабете А и Б бити форматирана као жута и зелена боја као што је приказано у ћелији Д2 до Е3.
За и против
- Даје тренутни излаз ако имамо огромне податке. Док применимо ли то у опцији Екцел менија, требат ће времена да се очисти обликовање за велики скуп података.
- Ми можемо обављати све врсте функција које су доступне у програму Екцел за условно обликовање и у ВБА.
- Не препоручује се примена ВБА условног форматирања на мали скуп података.
Ствари које треба запамтити
- Постоји много других функција осим истицања дупликата и ћелија исте вредности. Можемо променити формат ћелије на било који начин, као што је подебљан, лежећи текст, мењајући боју фонта, мењајући боју позадине, истичући вредности између одређеног распона.
- Једном када применимо условно обликовање, можемо променити правило, у ствари, такође можемо да избришемо услове форматирања. Тако да ће се наши подаци вратити у нормалу.
- Можемо применити више услова у једном макронаредби.
Препоручени чланци
Ово је водич за ВБА условно обликовање. Овдје смо расправљали о томе како користити функцију Екцел ВБА увјетног обликовања заједно са практичним примјерима и довнлоад-ом Екцел предлошка. Можете и да прођете кроз друге наше предложене чланке -
- Копирајте функцију лепљења у ВБА
- Подстринг Екцел функција
- ВБА претплата изван домета
- Екцел ИСНУМБЕР Формула
- Условно обликовање датума у Екцелу