Tässä artikkelissa luomme makron ehdollisen muotoilun käyttämiseksi valitulla alueella.
Olemme käyttäneet satunnaislukuja otostiedoina osoittamaan makron toimintaa.
Makro voidaan suorittaa napsauttamalla "Find Max" -painiketta "Main" -arkissa.
Looginen selitys
Olemme luoneet "ConditionalFormat" -makron soveltaaksesi ehdollista muotoilua valitulle alueelle. Tämä makro korostaa solun violetilla värillä, joka sisältää valitun alueen enimmäisarvon.
Ennen tämän makron suorittamista on valittava alue, jolle hän haluaa soveltaa ehdollista muotoilua.
Olemme esimerkiksi valinneet valikoiman soluja B9: stä F17: een valitun datan näytteeksi.
Kun makro suoritetaan näytealueen valitsemisen jälkeen, ehdollinen muotoilu otetaan käyttöön valitulla alueella ja solu D16, joka sisältää suurimman arvon (97), korostuu violetilla värillä.
Ota nyt toinen näyte. Olemme valinneet alueen B10 - F13 toiseksi näytealueeksi.
Kun olet valinnut toisen näytealueen, suorita makro napsauttamalla "Etsi enimmäismäärä" -painiketta. Ehdollista muotoilua käytetään valitulla alueella ja solu C11 korostetaan violetilla värillä, koska se sisältää valitun alueen enimmäisarvon (92).
Makron suorittamisen jälkeen kahdelle eri näytteelle ehdollinen muotoilu otetaan käyttöön molemmissa. Näytetiedoissa sekä solut C11 että D16 korostetaan violetilla värillä, koska ne edustavat enimmäisarvoja vastaavissa näytteissään.
Jos minkä tahansa näytteen arvoja muutetaan ja yksi uusista arvoista on korkein, kyseisen arvon solu korostetaan.
Koodin selitys
Valinta.Muoto.Ehdot.Poista
Yllä olevaa koodia käytetään poistamaan valitun datan ehdollinen muotoilu.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Osoite (False, False) & "= MAX (" & Selection.Address & ")"
Yllä olevaa koodia käytetään uuden ehdollisen muotoilun lisäämiseen. Tyyppi määrittää, että lauseketta käytetään ehtojen muotoilun käyttöön. Lausekkeen kaava määritellään kaavassa 1.
Valinta.Solut (1) .Osoite (väärä, epätosi)
Yllä olevaa koodia käytetään viittaamaan valinnan ensimmäisen solun osoitteeseen.
"=" & Selection.Cells (1) .Osoite (False, False) & "= MAX (" & Selection.Address & ")"
Yllä olevaa koodia käytetään vertaamaan ensimmäisen valitun solun arvoa valinnan enimmäisarvoon.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Yllä olevaa koodia käytetään määrittämään violetin värin solulle, joka täyttää muotoilun ehdot.
Seuraa koodia alla
Sub ConditionalFormat () Valinnalla 'Poista kaikki aiemmat ehdolliset muotoilut .FormatConditions.Delete' lisää ehdollisen muotoilun valittuun soluun .FormatConditions.Add Type: = xlExpression, Formula1: = _ "=" & Selection.Cells (1) .Address (False , False) & "= MAX (" & Selection.Address & ")" 'Violetin värin määrittäminen ehdolliselle muotoilulle .FormatConditions (1) .Interior.ColorIndex = 39 End With End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse