U ovom ćemo članku stvoriti makro za primjenu uvjetnog oblikovanja u odabranom području.
Koristili smo slučajne brojeve kao uzorke podataka za prikaz rada makronaredbe.
Makro se može izvršiti klikom na gumb "Pronađi maks." Na listu "Glavni".
Logično objašnjenje
Napravili smo makro “ConditionalFormat” za primjenu uvjetnog oblikovanja na odabrano područje. Ovaj makro označava ćeliju ljubičastom bojom koja sadrži najveću vrijednost u odabranom području.
Prije izvođenja ove makronaredbe potrebno je odabrati područje na koje se želi primijeniti uvjetno oblikovanje.
Na primjer, odabrali smo raspon ćelija od B9 do F17 kao uzorak odabranih podataka.
Prilikom izvođenja makronaredbe nakon odabira područja uzorka, na odabrano područje primjenjuje se uvjetno oblikovanje, a ćelija D16, koja sadrži najveću vrijednost (97), bit će označena ljubičastom bojom.
Sada uzmite još jedan uzorak. Odabrali smo raspon od ćelije B10 do F13 kao drugo područje uzorka.
Nakon odabira drugog uzorka, kliknite gumb "Find Max" za pokretanje makronaredbe. Uvjetno oblikovanje primijenit će se na odabrano područje, a ćelija C11 bit će označena ljubičastom bojom jer sadrži najveću vrijednost (92) u odabranom području.
Nakon izvođenja makronaredbe za dva različita uzorka, na oba se primjenjuje uvjetno oblikovanje. U podacima o uzorku, ćelije C11 i D16 bit će označene ljubičastom bojom, jer predstavljaju maksimalne vrijednosti u svojim uzorcima.
Ako se promijene vrijednosti u bilo kojem od uzoraka, a jedna od novo unesenih vrijednosti je najveća vrijednost, ćelija s tom određenom vrijednošću bit će označena.
Objašnjenje koda
Selection.FormatConditions.Delete
Gornji kôd koristi se za brisanje uvjetnog oblikovanja primijenjenog na odabrane podatke.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Gornji kôd koristi se za dodavanje novog uvjetnog oblikovanja. Vrsta određuje da se izraz koristi za primjenu oblikovanja uvjeta. Formula izraza definirana je u formuli 1.
Selection.Cells (1) .Adress (False, False)
Gornji kôd koristi se za referencu adrese prve ćelije u odabiru.
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Gornji kôd koristi se za usporedbu vrijednosti prve odabrane ćelije s najvećom vrijednošću odabira.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Gornji kôd koristi se za dodjelu ljubičaste boje ćeliji koja zadovoljava uvjete oblikovanja.
Molimo slijedite dolje za kôd
Poduvjetni format () s odabirom 'Izbriši bilo koje prethodno uvjetno oblikovanje. FormatConditions.Delete' dodaj uvjetno oblikovanje u odabranu ćeliju. FormatConditions.Add Type: = xlExpression, Formula1: = _ "=" & Selection.Cells (1). Adres (False , False) & "= MAX (" & Selection.Address & ")" 'Dodjela ljubičaste boje za uvjetno oblikovanje. FormatConditions (1) .Interior.ColorIndex = 39 Završi s End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte