VBA for Excel

VBA for Excel

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • 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: 447
  • 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 776 korisnika na forumu :: 55 registrovanih, 8 sakrivenih i 713 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, A.R.Chafee.Jr., Arhiv, arsa, axa, bojank, boki199777, brundo65, calvi, darkangel, darkstar101, djboj, Djokkinen, DM1994, Dorcolac, dozorni, Dragan Mačak Damljanović, dragoljub11987, GrobarRomanticar, hak1, ilpadrino991, ivance95, kaptain, kovinacc, Krusarac, Kubovac, Leonardo, Longrange, MarKhan, Marko Marković, mercedesamg, Mercury, mgaji21, Mixelotti, mushroom, Nesho, pedja.st, Recce, sakota79, saputnik plavetnila, Sass Drake, srbi, ssekir75, stegonosa, Taso, Toni, USSVoyager, vathra, Viceroy, Vlada1389, vladas87, voja64, Yellow Pinky2, Zerajic, zlaya011