Barvno označevanje celic

Pomoč pri delu z MS Excelom
Odgovori
666angel
Prispevkov: 18
Pridružen: Sr Avg 19, 2015 12:43 pm

Barvno označevanje celic

Odgovor Napisal/-a 666angel »

Pozdravljeni

Ali je možno v excelu narediti "funkcijo" da če je v izbranem območju (B5:DS5) katera koli celica obarvana zeleno, potem obarva celico "A5" v zeleno. Naj omenim da se celice pobarvajo ročno in ni formule za "barvanje"
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Barvno označevanje celic

Odgovor Napisal/-a admin »

Pozdravljeni,

Ne, to z vgrajenimi Excelovimi funkcijami ni možno. Potrebno je uporabiti makro:

Koda: Izberi vse

Sub obarvaj()
  Dim zelena As Long: zelena = 5296274
  
  Dim celica
  For Each celica In Range("B5:DS5")
    If (celica.Interior.Color = zelena) Then
      Range("a5").Interior.Color = zelena
    End If
  Next
End Sub
Pri tem je potrebno vedeti, da je "zelenih" barv zelooo veliko. Zelena barva '5296274' je pač svetlozelena standardna barva Excela
lp,
Matjaž Prtenjak
Administrator
666angel
Prispevkov: 18
Pridružen: Sr Avg 19, 2015 12:43 pm

Re: Barvno označevanje celic

Odgovor Napisal/-a 666angel »

Pozdravljeni

Hvala za hiter odgovor, obseg celic in celico ki naj bi obarvalo sem spremenil na ("B10:DS10") in "a10", vendar naletim na težavo ko napišem makro - v vrstici " Range("a10").Interior.Color = zelena " javi napako
Kaj bi lahko bil vzrok?
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Barvno označevanje celic

Odgovor Napisal/-a admin »

:) Brez da napišete besedilo napake in priložite točen makro, kot ste ga napisali vam ne morem nič pomagati :(.

Kako a naj vem kakšno napako vam javi?
lp,
Matjaž Prtenjak
Administrator
666angel
Prispevkov: 18
Pridružen: Sr Avg 19, 2015 12:43 pm

Re: Barvno označevanje celic

Odgovor Napisal/-a 666angel »

se opravičujem
Napaka je:
Run-time error 1004
Application defined or object defined error

ko kliknem na "debug" mi rumeno obarva vrstico "Range("a10").Interior.Color = zelena "

Makro pa se glasi:
Sub obarvaj()
Dim zelena As Long: zelena = 52480

Dim celica
For Each celica In Range("B10:DS10")
If (celica.Interior.Color = zelena) Then
Range("a10").Interior.Color = zelena
End If
Next
End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Barvno označevanje celic

Odgovor Napisal/-a admin »

Kam pa ste vi to kodo vpisali? S samo kodo namreč nič narobe!

Ali sto jo skopirali v nek modul v VBA urejealniku, kot je to opisano recimo med nasveti: http://mnet.si/office/vba/2
lp,
Matjaž Prtenjak
Administrator
Odgovori