Подесите условно обликовање за област помоћу ВБА у Мицрософт Екцелу

Anonim

У овом чланку ћемо створити макро за примену условног обликовања у изабраној области.

Користили смо случајне бројеве као узорке података за демонстрацију рада макроа.

Макро се може извршити кликом на дугме “Финд Мак” на листу “Маин”.

Логичко објашњење

Направили смо макро „ЦондитионалФормат“ за примену условног обликовања на изабрано подручје. Овај макро означава ћелију љубичастом бојом која садржи максималну вредност у изабраној области.

Пре него што се изврши овај макро, мора се изабрати област на коју се жели применити условно обликовање.

На пример, изабрали смо опсег ћелија од Б9 до Ф17 као узорак одабраних података.

Приликом извршавања макроа након одабира подручја узорка, на одабрано подручје примјењује се условно обликовање, а ћелија Д16, која садржи највећу вриједност (97), бит ће означена љубичастом бојом.

Сада, узмите још један узорак. Изабрали смо опсег од ћелије Б10 до Ф13 као другу површину узорка.

Након што сте одабрали другу област узорка, кликните на дугме „Финд Мак“ да бисте покренули макро. Условно обликовање ће се применити на изабрано подручје, а ћелија Ц11 ће бити означена љубичастом бојом, јер садржи максималну вредност (92) у изабраној области.

Након извршавања макроа за два различита узорка, на оба се примењује условно обликовање. У подацима узорка, ћелије Ц11 и Д16 ће ​​бити означене љубичастом бојом, јер представљају максималне вредности у одговарајућим узорцима.

Ако се вредности у било ком од узорака промене и једна од ново унетих вредности је највећа вредност, ћелија са том одређеном вредношћу ће бити означена.

Објашњење кода

Селецтион.ФорматЦондитионс.Делете

Горњи код се користи за брисање условног обликовања примењеног на изабране податке.

Селецтион.ФорматЦондитионс.Адд Типе: = клЕкпрессион, Формула1: = _

"=" & Селецтион.Целлс (1) .Аддресс (Фалсе, Фалсе) & "= МАКС (" & Селецтион.Аддресс & ")"

Горњи код се користи за додавање новог условног обликовања. Тип одређује да се израз користи за примену обликовања услова. Формула израза је дефинисана у формули 1.

Селецтион.Целлс (1) .Аддресс (Фалсе, Фалсе)

Горњи код се користи за референцу адресе прве ћелије у избору.

"=" & Селецтион.Целлс (1) .Аддресс (Фалсе, Фалсе) & "= МАКС (" & Селецтион.Аддресс & ")"

Горњи код се користи за упоређивање вредности прве изабране ћелије са максималном вредношћу избора.

Селецтион.ФорматЦондитионс (1) .Интериор.ЦолорИндек = 39

Горњи код се користи за додељивање љубичасте боје ћелији која задовољава услове форматирања.

Молимо следите доле за код

 Суб ЦондитионалФормат () Витх Селецтион 'Делете ани превиоус цондитионал форматтинг. ФорматЦондитионс.Делете' додај условно обликовање у изабрану ћелију. ФорматЦондитионс.Адд Типе: = клЕкпрессион, Формула1: = _ "=" & Селецтион.Целлс (1) .Аддресс (Фалсе , Фалсе) & "= МАКС (" & Селецтион.Аддресс & ")" 'Додељивање љубичасте боје за условно обликовање. ФорматЦондитионс (1) .Интериор.ЦолорИндек = 39 Енд Витх Енд Суб 

Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.

Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште