V tem članku bomo ustvarili makro za uporabo pogojnega oblikovanja na izbranem področju.
Za prikaz delovanja makra smo uporabili naključna števila.
Makro lahko izvedete s klikom na gumb »Najdi največ« na listu »Glavni«.
Logična razlaga
Ustvarili smo makro »ConditionalFormat« za uporabo pogojnega oblikovanja za izbrano območje. Ta makro označuje celico v vijolični barvi, ki vsebuje največjo vrednost na izbranem območju.
Pred izvajanjem tega makra je treba izbrati področje, na katerem želi uporabiti pogojno oblikovanje.
Kot vzorec izbranih podatkov smo na primer izbrali obseg celic od B9 do F17.
Pri izvajanju makra po izbiri vzorčnega območja se na izbranem območju uporabi pogojno oblikovanje in celica D16, ki vsebuje najvišjo vrednost (97), bo označena z vijolično barvo.
Zdaj vzemite še en vzorec. Za drugo vzorčno območje smo izbrali območje od celice B10 do F13.
Ko izberete drugo vzorčno območje, kliknite gumb »Najdi največ«, da zaženete makro. Pogojno oblikovanje bo uporabljeno na izbranem območju, celica C11 pa bo označena z vijolično barvo, saj vsebuje največjo vrednost (92) v izbranem območju.
Po izvedbi makra za dva različna vzorca se za oba uporabi pogojno oblikovanje. V vzorčnih podatkih bosta obe celici C11 in D16 označeni z vijolično barvo, saj predstavljata največje vrednosti v svojih vzorcih.
Če se vrednosti v katerem koli vzorcu spremenijo in je ena od na novo vstavljenih vrednosti najvišja vrednost, bo celica s to posebno vrednostjo označena.
Razlaga kode
Selection.FormatConditions.Delete
Zgornja koda se uporablja za brisanje pogojnega oblikovanja izbranih podatkov.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Zgornja koda se uporablja za dodajanje novega pogojnega oblikovanja. Vrsta določa, da se izraz uporablja za oblikovanje pogoja. Formula izraza je definirana v formuli 1.
Izbor. Celice (1). Naslov (napačno, napačno)
Zgornja koda se uporablja za sklicevanje na naslov prve celice v izboru.
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Zgornja koda se uporablja za primerjavo vrednosti prve izbrane celice z največjo vrednostjo izbora.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Zgornja koda se uporablja za dodelitev vijolične barve celici, ki ustreza pogoju oblikovanja.
Za kodo sledite spodaj
Sub ConditionalFormat () With Selection 'Delete any previous conditional formatting. FormatConditions.Delete' dodaj pogojno oblikovanje v izbrano celico. FormatConditions.Add Type: = xlExpression, Formula1: = _ "=" & Selection.Cells (1). Naslov (False , False) & "= MAX (" & Selection.Address & ")" 'Dodelitev vijolične barve za pogojno oblikovanje. FormatConditions (1) .Interior.ColorIndex = 39 Končaj s End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte