..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Barvno označevanje celic

Pomoč pri delu z MS Excelom

Barvno označevanje celic

OdgovorNapisal/-a 666angel » To maj 07, 2019 11:10 am

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"
666angel
 
Prispevkov: 16
Pridružen: Sr avg 19, 2015 12:43 pm



Matjazev.NET
 

Re: Barvno označevanje celic

OdgovorNapisal/-a admin » To maj 07, 2019 11:31 am

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
admin
Site Admin
 
Prispevkov: 3524
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Barvno označevanje celic

OdgovorNapisal/-a 666angel » To maj 07, 2019 1:10 pm

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?
666angel
 
Prispevkov: 16
Pridružen: Sr avg 19, 2015 12:43 pm

Re: Barvno označevanje celic

OdgovorNapisal/-a admin » To maj 07, 2019 1:44 pm

:) 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
admin
Site Admin
 
Prispevkov: 3524
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Barvno označevanje celic

OdgovorNapisal/-a 666angel » To maj 07, 2019 1:56 pm

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
666angel
 
Prispevkov: 16
Pridružen: Sr avg 19, 2015 12:43 pm

Re: Barvno označevanje celic

OdgovorNapisal/-a admin » To maj 07, 2019 3:08 pm

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
admin
Site Admin
 
Prispevkov: 3524
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 4 gostov

cron