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 1285 korisnika na forumu :: 95 registrovanih, 12 sakrivenih i 1178 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100ka, ajo baba, Andrija 1993, Apok, aramis s, babaroga, black sabah, bobomicek, boj.an, bojcistv, BWG, cojapop, CraniumWhite, dane007, DeerHunter, DejanSt, Denaya, Django777, Dorcolac, Electron, Erast Petrovic, EXIT78, GAGI, GeoM, Gogi do, GORDI, gregorxix, Hans Gajger, Kobrim, Kriglord, Kubovac, LjubisaR, lucko1, M74AB3, Marko Marković, Mercury, Metanoja, Miki281, mikrimaus, milanovic, Milos ZA, milos97, mishkooo, Mićko, moldway, Mrav Obrad, N.e.m.a.nj.a., Najax, nebkv, Nemanja Opalić, nemkea71, Njubara, nnnnnnnnnn, operniki, Orfanelin, pein, Petarvu, Povratak1912, Prečanin30, prle122, procesor, royst33, Rusmir, sabros, sajorg, samocitam, Shinobi, Sir Budimir, Sky diver 29, SlaKoj, smerch, Srpska zauvjek, stalja, Stoilkovic, Strasni JA, Suva planina, synergia, TBoy, theNedjeljko, Topaz9, Tribal, Tvrtko I, UAV operator, vathra, Vatreni Zmaj, veljkovicdani, vensla, vlahale, vojnik švejk, vrlenija, vukajlo71, wizzardone, wolf431, YugoSlav, Živanski