Excel VBA-format betingelser og Marker duplikater

Excel VBA-format betingelser og Marker duplikater


Marker like verdier i Microsoft Excel-regneark med FormatConditions eiendom. Den FormatConditions egenskapen kan du utføre en rekke betinget formatering oppgaver, blant annet fremhever like verdier. Åpne VBA-kode i Microsoft Excel-grensesnittet til å ansette denne egenskapen til å utføre en oppgave.

duplikatverdier

Det kan være lurt å identifisere like verdier til å fjerne, redigere eller analysere dem. Hvis du markerer like poster, kan du bruke en kolonne filter for å se bare disse postene. Like verdier kan være et problem hvis du opplever dataredundans. Dataredundans viser uvesentlig informasjon og kan føre til forvirring, uorden og treg databehandling hastighet. Fremhev dine like verdier for å effektivisere Excel-regnearket, og skape et mer brukervennlig grensesnitt.

VBA Window

Angi format forhold og markere like verdier fra Visual Basic for Applications vindu fra Microsoft Excel. Åpne VBA vinduet ved å klikke på "Visual Basic" knappen fra "Utvikler" fanen på båndet. Hvis du ikke ser "Utvikler" fanen, klikk på "File", "Alternativer", "Tilpass båndet" og velg deretter "Utvikler" fra hoved Tabs listen. I VBA vinduet, åpner du det riktige ark ved å dobbeltklikke på tittelen fra "Microsoft Excel-objekter" boksen.

FormatConditions

Microsoft Excel gir FormatConditions eiendom i VBA alternativer. Den FormatConditions eiendom lar deg sette betinget formatering på datasettet. For eksempel, hvis du vil at alle negative verdier i et dataområde som skal vises med rød tekst og alle positive verdier for å vise med grønn tekst, kan du sette betinget formatering til å gjøre denne endringen. Denne prosessen gjør det mulig å automatisere funksjoner i stedet for manuelt å endre datasettet.

Lys duplikater

Marker duplikater i datasettet med VBA eiendoms FormatConditions. Skriv inn følgende kode i kodevinduet:

Sub FormatConditions ()
Dim RNG As Range
Sett RNG = Range ( "A1: A7")
Sett uv = rng.FormatConditions.AddUniqueValues
uv.DupeUnique = xlDuplicate
uv.Interior.Color = vbYellow
End Sub

Endre celleparametre innenfor "Range (" A1: A7 ")" til din spesifikke dataområde. Klikk på "Kjør" -ikonet på toppen av skjermen for å teste koden din.