VBA for Excel

VBA for Excel

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 448
  • Gde živiš: Novi Beograd

Ovaj forum je najblize mom pitanju

Dakle VBA za Excel je u pitanju..

Ovako.. Hocu da ispitam da li se u celijama odredjenog Rangea ponavlja ista vrednost.. ako se ponavlja da se font promeni u crveno. i.. ne ide mi Smile

ja sam uradio nesto ovako...

Dim kolona As Integer
Dim red As Integer
Dim kupacTest As String
Dim brojac As Integer


red = 11
kolona = 3
brojac = 11

Do While red < 117

kupacTest = Sheet1.Cells(red, kolona).Value 'uzima vrednost prvog reda\kolone

For brojac = 11 To 117 Step 1
If kupacTest = Sheet1.Cells(brojac, kolona).Value Then
Sheet1.Cells(red, kolona).Font.Color = RGB(255, 0, 0)
Sheet1.Cells(brojac, kolona).Font.Color = RGB(255, 0, 0)
End If
Next brojac
red = red + 1
Loop


medjutim boji mi sve celije u tom loopu...

probao sam i sa varijantom for..next ali onda oboji samo prve dve iste vrednosti na koje naleti.

Vidim da je greska negde u petlji... ali izlupah glavu i ne ide...

Dajte ideje, mozda moze nekako drugacije da se (jednostavnije) odradi.
Conditional format ne dolazi u obzir, samo VBA.

hvala unapred i pozdrav



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Moras da proveravas svako sa svakim.
To za jednu kolonu nije problem, ali za vise njih je problem.

Da vidim da li sam razumeo sta zelis:

Hoces da proveris da li se npr. broj, ponavlja u rangeu celija od A1 - C8 (3 kolone i 8 redova, npr.)?



offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 448
  • Gde živiš: Novi Beograd

Hm. kolona je uvek ista... uzme vrednost reda 1 i proveri da li postoji negde u narednim redovima, ako ima, oboji u crveno.. (oznaci da ima ponavljanja).

poz

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

izbaci do while....

Dim kolona As Integer Dim red As Integer Dim kupacTest As String Dim brojac As Integer red = 11 kolona = 3 brojac = 11     kupacTest = Sheet1.Cells(red, kolona).Value 'uzima vrednost prvog reda\kolone     For brojac = 11 To 117 Step 1         If kupacTest = Sheet1.Cells(brojac, kolona).Value Then             Sheet1.Cells(red, kolona).Font.Color = RGB(255, 0, 0)             Sheet1.Cells(brojac, kolona).Font.Color = RGB(255, 0, 0)         End If     Next brojac        

Ko je trenutno na forumu
 

Ukupno su 2615 korisnika na forumu :: 71 registrovanih, 5 sakrivenih i 2539 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, 357magnum, A.R.Chafee.Jr., ALFASPORTIVO, amonsrb, AndrejPetar, as2025, Ben Roj, Bojan198527, bolenbgd, boxbole, cojapop, Colt D, Comyymoc, dekan.m, dok80, draganl, eagle.rs, esx66, fijufijukrozkapiju55, Georgius, Goran_, ikan, ivran064, Jablan, Jager715510, kibihrchak, komsija1, Kosmos Banja Luka, Koča, Laluvr, leopard83, loon123, luka35, mariwoj63, Marko1238, mean_machine, mikidragi, mileta4, MILO-VAN, Milos ZA, mir, Nikoletina Bursac, perko91, Petar25, Prečanin30, procesor, proka89, raptorsi, raster12, rednap, Resnica, smuk, Stod, tachinni, tajvankanasta, Tandrkalo, Tastatura ratnik, tecataki, tihi-posmatrac, tomo2, Tvrtko I, ujke, vargas, Velizar Laro, Vlada1389, Vladoj, volimpivuvolimrakiju, zokabl, |_MeD_|, Žukov