I denne artikel opretter vi en makro til anvendelse af betinget formatering i det valgte område.
Vi har brugt tilfældige tal som eksempeldata for at demonstrere makroens funktion.
Makro kan udføres ved at klikke på knappen "Find Max" på "Main" -arket.
Logisk forklaring
Vi har oprettet "ConditionalFormat" -makro for at anvende betinget formatering til det valgte område. Denne makro fremhæver cellen i violet farve, som indeholder den maksimale værdi i det valgte område.
Inden denne makro udføres, skal man vælge et område, hvor han vil anvende den betingede formatering.
For eksempel har vi valgt en række celler fra B9 til F17 som prøve af udvalgte data.
Ved udførelse af makroen efter valg af prøveområde anvendes betinget formatering på det valgte område, og celle D16, som indeholder den højeste værdi (97), fremhæves i violet farve.
Tag nu endnu en prøve. Vi har valgt området fra celle B10 til F13 som andet prøveområde.
Når du har valgt det andet prøveområde, skal du klikke på knappen "Find Max" for at køre makroen. Betinget formatering vil blive anvendt på det valgte område, og celle C11 vil blive fremhævet i violet farve, da den indeholder den maksimale værdi (92) i det valgte område.
Efter udførelse af makroen for to forskellige prøver anvendes betinget formatering på dem begge. I prøvedataene vil både cellerne C11 og D16 blive fremhævet i violet farve, da de repræsenterer maksimale værdier i deres respektive prøver.
Hvis værdier i nogen af prøverne ændres, og en af de nyligt indsatte værdier er den højeste værdi, vil cellen med den pågældende værdi blive fremhævet.
Kode forklaring
Selection.FormatConditions.Delete
Ovenstående kode bruges til at slette enhver betinget formatering, der anvendes på de valgte data.
Selection.FormatConditions.Add Type: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Adresse (Falsk, Falsk) & "= MAX (" & Selection.Address & ")"
Ovenstående kode bruges til at tilføje en ny betinget formatering. Type angiver, at udtrykket bruges til at anvende betingelsesformateringen. Formlen for udtrykket er defineret i formel1.
Selection.Cells (1) .Adresse (Falsk, Falsk)
Ovenstående kode bruges til at henvise til adressen på den første celle i markeringen.
"=" & Selection.Cells (1) .Adresse (Falsk, Falsk) & "= MAX (" & Selection.Address & ")"
Ovenstående kode bruges til at sammenligne værdien af den første valgte celle med den maksimale værdi for markeringen.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Ovenstående kode bruges til at tildele violet farve til cellen, der opfylder formateringens tilstand.
Følg venligst nedenstående for koden
Sub ConditionalFormat () Med markering 'Slet enhver tidligere betinget formatering .FormatConditions.Delete' tilføj betinget formatering til markeret celle .FormatConditions.Add Type: = xlExpression, Formula1: = _ "=" & Selection.Cells (1) .Adresse (Falsk) , Falsk) & "= MAX (" & Selection.Address & ")" 'Tildeling af violet farve til den betingede formatering .FormatConditions (1) .Interior.ColorIndex = 39 Slut med End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet