Excel - makro za isticanje dvostrukih vrijednosti

Microsoft Excel se široko koristi širom svijeta za stvaranje, rukovanje, manipuliranje ili uspoređivanje višestrukih izvora podataka. Excel, zajedno s VBA, može se koristiti za obavljanje mnogih zanimljivih poslova, kao što je uspoređivanje iste vrijednosti u jednom stupcu s drugim. Može se stvoriti prilagođeni kod VBA koji će tražiti vrijednosti u danom rasponu i označiti stanice gdje se vrijednost iz jednog stupca podudara s drugom. Da bi se povećala fleksibilnost, korisnik može odrediti i kodiranje boja u kojem žele označiti odgovarajuće ćelije.

Problem

Brojevi zauzetih soba u stupcu B na listu imena soba. Također, imam ukupan broj soba u stupcu D u istom listu. Želim istaknuti sve brojeve stupca B u stupcu D.

Primjerice, imam brojeve: 2 u ćeliji B2, 8 u ćeliji B3 i 6 u ćeliji B4 u stupcu B i brojevima 1 u ćeliji D2, 2 u ćeliji D3, 3 u ćeliji D4, 4 u ćeliji D5, 5 u ćeliji D6, 6 u ćeliji D7, 7 u ćeliji D8, 8 u ćeliji D9, 9 u ćeliji D10 u stupcu D istog lista nazvanom Popis soba. Želim označiti po boji ćelije u stupcu D koje sadrže iste brojeve kao i stupac B. Ovdje želim istaknuti ćeliju D3 (jer sadrži broj 2 koji je također u ćeliji B2), ćeliju D9 (jer sadrži isti broj) kao ćeliju B3), ćeliju D7 (jer sadrži isti broj kao ćeliju B4).

Stoga želim promijeniti boju D3, D9 i D7 stupca D.

Ukratko, želim saznati iste brojeve napisane u stupcu B iz stupca D i istaknuti te ćelije u stupcu D po boji.

U stupcu D brojevi bi trebali biti samo na svom izvornom mjestu, ali ćelije bi trebale biti označene različitim bojama.

Riješenje

Pokrenite ovu makronaredbu

Potvrdite jeste li dobili ono što želite

 Podtest () Dim rng As Range, c As Range, cfind As Range, rng1 As Range Worksheets ("popis soba") Aktivirajte Set rng = Raspon (Raspon ("D2"), Raspon ("D2"). xlDown)) Postavi rng1 = Raspon (Raspon ("B2"), Raspon ("B2"). Kraj (xlDown)) Za svaki c In rng Postavi cfind = rng1.Cells.Find (što: = c.Value, lookat: = xlWhole) Ako nije cfind nije ništa onda c.Interior.ColorIndex = 3 Sljedeći c Kraj Sub 

Riješenje

Zahvaljujući [venkat1926 za ovaj tip na forumu.

Prethodni Članak Sljedeći Članak

Top Savjeta