Selles artiklis loome makro, et rakendada valitud piirkonnas tingimuslikku vormingut.
Makro toimimise demonstreerimiseks oleme näidisandmetena kasutanud juhuslikke numbreid.
Makrot saab käivitada, klõpsates lehel „Main” nuppu „Find Max”.
Loogiline seletus
Oleme loonud makro „ConditionalFormat”, et rakendada valitud alale tingimusvormingut. See makro tõstab esile violetse värvi lahtri, mis sisaldab valitud piirkonna maksimaalset väärtust.
Enne selle makro käivitamist tuleb valida piirkond, kus ta soovib tingimusvormingut rakendada.
Näiteks oleme valitud andmete prooviks valinud lahtrite vahemiku B9 kuni F17.
Makro käivitamisel pärast näidispiirkonna valimist rakendatakse valitud alale tingimusvormingut ja lahter D16, mis sisaldab kõrgeimat väärtust (97), on violetse värviga esile tõstetud.
Nüüd võtke teine proov. Teise proovipiirkonnana oleme valinud vahemiku lahtrist B10 kuni F13.
Pärast teise näidispiirkonna valimist klõpsake makro käivitamiseks nuppu „Leia max”. Tingimuslikku vormindamist rakendatakse valitud alale ja lahter C11 tõstetakse violetse värviga esile, kuna see sisaldab valitud ala maksimaalset väärtust (92).
Pärast makro täitmist kahe erineva proovi jaoks rakendatakse mõlemale tingimusvorming. Prooviandmetes on nii lahtrid C11 kui ka D16 violetse värviga esile tõstetud, kuna need esindavad nende proovides maksimaalseid väärtusi.
Kui mõne proovi väärtusi muudetakse ja üks äsja sisestatud väärtustest on kõrgeim, tõstetakse selle väärtusega lahter esile.
Koodi selgitus
Valik.VormingTingimused.Delete
Ülaltoodud koodi kasutatakse valitud andmetele kehtestatud tingimusvormingu kustutamiseks.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Ülaltoodud koodi kasutatakse uue tingimusvormingu lisamiseks. Tüüp määrab, et avaldist kasutatakse tingimusvormingu rakendamiseks. Avaldise valem on määratletud valemis 1.
Valik. Lahtrid (1). Aadress (vale, vale)
Ülaltoodud koodi kasutatakse valiku esimese lahtri aadressi viitamiseks.
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Ülaltoodud koodi kasutatakse esimese valitud lahtri väärtuse võrdlemiseks valiku maksimaalse väärtusega.
Valik.FormatConditions (1). Interjöör.Värviindeks = 39
Ülaltoodud koodi kasutatakse violetse värvi määramiseks lahtrile, mis vastab vormindamise tingimustele.
Palun järgige koodi allpool
Sub ConditionalFormat () Valikuga 'Kustuta kõik varasemad tingimusvormingud .FormatConditions.Delete' lisab valitud lahtrile tingimusvormingu .FormatConditions.Add Type: = xlExpression, Formula1: = _ "=" & Selection.Cells (1). Aadress (False , False) & "= MAX (" & Selection.Address & ")" 'Violetse värvi määramine tingimusliku vormingu jaoks .FormatConditions (1) .Interior.ColorIndex = 39 Lõpp lõpuga
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile