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 391 korisnika na forumu :: 4 registrovanih, 1 sakriven i 386 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 2967 - dana 31 Okt 2019 06:37

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: hyla, pein, Srki94, tomigun