Če želite izvedeti podvojeno vrstico z več vnosi za isto osebo in želite izvedeti podvojene vnose, potem tega članka ne smete zamuditi. Zagotovili bomo kodo makra za lažje prepoznavanje podvojenih vrstic. V tem članku se bomo naučili, kako poiskati podvojene vrstice na podlagi določenega stolpca.
Vprašanje: Imam preglednico z večkratnimi vnosi za ljudi. Ti ljudje lahko hodijo noter ali ven na več mestih hkrati. Poskusi napisati formulo ali makro (ne vem, kateri je v tem primeru najboljši cilj), ki bo iskal podatke in rdeče vrstice označil s časi, ki se prekrivajo za določeno osebo. Ali je to možno in ali bi s tem lahko kdo pomagal? Najlepša hvala.
Izvirno vprašanje najdete tukaj
Sledi posnetek prejšnjega lista:
Sledi posnetek postranskega lista:
Za pridobitev kode; za zagon zaslona urejevalnika Visual Basic moramo slediti spodnjim korakom
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Kopirajte spodnjo kodo v standardni modul
Sub FindOverlapTime () Dim rng As Range, cell As Range, trng As Range, tcell As Range Dim lr As Long lr = Cells (Rows.Count, "A"). End (xlUp) .Row Range ("A2: H" & lr) .Interior.ColorIndex = xlNone Set rng = Range ("C2: C" & lr) Za vsako celico V rng If Application.CountIf (Range ("C2", celica), cell.Value)> 1 Nato nastavite trng = Obseg ("F2: F" & celica. Vrstica - 1) Za vsako tcelico V trngu Če je tcell.Offset (0, -3) = celica, potem If (cell.Offset (0, 3)> = tcell In cell.Offset (0, 3) = tcell In cell.Offset (0, 4) <= tcell.Offset (0, 1)) Potem Range ("A" & cell.Row & ": H" & cell.Row) .Interiors. ColorIndex = 3 Konec Če Konec Če Naslednja tcell Konec Če Naslednja celica Konec Sub
- Ko zaženemo makro, bomo dobili rezultat; glej spodnji posnetek:
Koda Pojasnilo:
- Razglasite rng, cell, trng, tcell kot obseg
- Lr tako dolgo
- lr = Celice (vrstice.Število, "A"). Konec (xlUp) .Row bo preveril zadnjo vrstico trenutnega lista.
- Obseg ("A2: H" & lr). Notranjost.Indeks barve = xlNone; to bo izbralo obseg od celice A2 do stolpca H do zadnje vrstice (A2: H5 bo izbrano v našem primeru) in zagotovilo, da barva ni napolnjena.
- Set rng = Range ("C2: C" & lr); stolpec C (ID profila) bo shranjen v rng
- Za vsako celico V rng; zdaj bomo zagnali za vsako zanko v rng, to je stolpec C
- Če je Application.CountIf (Razpon ("C2", celica), celica.Vrednost)> 1 Potem; to bo preverilo, kolikokrat je vrednost celice večja od 1; če je več kot 1, potem
- Set trng = Range ("F2: F" & cell.Row - 1); zdaj bomo v trngu nastavili stolpec F, tj. IN čas
- Naslednjič bomo za vsako zanko zagnali v trngu in preverili, ali obstaja podvojena vrstica ter jo označili z rdečo barvo, če jo najdemo.
Zaključek: Na ta način lahko z uporabo makro kode najdemo podvojene vrednosti in jih kasneje odstranimo.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte
