V tem članku smo ustvarili makro za označevanje podvojenih vrednosti.
Surovi podatki so sestavljeni iz različnih imen avtomobilov. Izpostaviti želimo podvojene vnose.
Pritisnite gumb »Označi podvojene«, da zaženete makro in označite podvojene vnose.
Logična razlaga
Ustvarili smo makro »Check_Dups«, da označimo podvojene vnose. Označeni bodo z rdečo barvo. V makru preverimo štetje določenega vnosa. Če je večji od 1, bodo podatki označeni.
Za kodo sledite spodaj
Možnost Explicit Sub Check_Dups () 'Razglasitev spremenljivk Zatemni celico kot varianto Dim Source As Range' Inicializiranje območja vira Set Source = Range ("A9: A24") 'Odstranjevanje kakršnega koli prejšnjega oblikovanja iz vira Source.Interior.Color = RGB (221, 235, 247) 'Ponavljanje po vsaki celici v izvornem območju Za vsako celico v viru' Preverjanje, ali vrednost v celici že obstaja v izvornem območju Če Application.WorksheetFunction.CountIf (Source, Cell)> 1 Potem 'Označevanje podvojenih vrednosti v rdeči barvi barva Celica.Interior.Color = RGB (255, 0, 0) End If Next 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