VBA Sum hvis celle har bestemt farve
Jesper
farver,
men tror kun som udgangspunkt, den virker med en farve.
DA jeg feks har mærket kolonne A op med flere forskellige farver,
og selvfølgelig har ændret ''=SumColor(A1,A6:A20)" så den kigger på i
et andet felt end
end A1 for farve 2 (feks A2) ect..
Kan man lave den så den feks kan lave sum på 5 forskellige farver. her
mener jeg 5 forskellig sumresultater på 5 forskellige farver.
Måske man skal have lavet en DIM icol mere i koden og feks kalde den
icol2, men jeg er ikke lige den skarpeste til VBA ?
Mvh
Muggi
Function SumColor(rColor As Range, rSumRange As Range)
'Written by Ozgrid Business Applications
'www.ozgrid.com
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
''
''Then push Alt+Q to return to Excel and Save.
''Now in any cell put:
''=SumColor(A10,A1:A20)
''Where A10 interior Color is Red (or any other color) and A1:A20 is
the range you want to Sum.
Jan Kronsell
> hej , nedenst�ende vbakode pr�ver jeg at f� til at virke p� flere
> farver,
> men tror kun som udgangspunkt, den virker med en farve.
> og selvf�lgelig har �ndret ''=SumColor(A1,A6:A20)" s� den kigger p� i
> et andet felt end
> end A1 for farve 2 (feks A2) ect..
> mener jeg 5 forskellig sumresultater p� 5 forskellige farver.
> M�ske man skal have lavet en DIM icol mere i koden og feks kalde den
> icol2, men jeg er ikke lige den skarpeste til VBA ?
>
kan kun st� et resultat af gangen. Skal du have talt sammen for flere
celler, er du n�dt til at anbringe funktionen i en celle for hver farve, du
�nsker talt.
Jan
Jesper
wrote:
> Jesper wrote:
> > hej , nedenstående vbakode prøver jeg at få til at virke på flere
> > farver,
> > men tror kun som udgangspunkt, den virker med en farve.
> > et andet felt end
> > end A1 for farve 2 (feks A2) ect..
> > mener jeg 5 forskellig sumresultater på 5 forskellige farver.
> > icol2, men jeg er ikke lige den skarpeste til VBA ?
>
> kan kun stå et resultat af gangen. Skal du have talt sammen for flere
> celler, er du nødt til at anbringe funktionen i en celle for hver farve, du
> ønsker talt.
>
> Jan
Hej Jan,
ja jeg vil have flere samtællingen med sum i forskellige farver i
flere celler.
Det er et udtræk fra en konto hvor jeg vil mærke de forskellige
udgifter op med farver, så det er bedre at illustrere,
hvad udgifter der går til hvad.
Så vil jeg lave en samtælling for hver måned , hvor i feks celle E2 er
summen af oktober måneds forbrug af mad med farve grøn, celle F2 er
summen af benzinforbrug med farve rød, ect.
Summen kommer ud fra at jeg har mærket linierne i et konto udtræk op.
I eksemplet her, ligger tallene som samtællingen skal baseres på, i
kolonne A6 og nedefter.
Farverne som vba koden + formlen skal tage højde vill så stå i A1 til
A5.
Jeg kan bare ikke få fomlen til at genkende flere farver på baggrund
af den VBA kode.
A---------- B-------------- D---------------
E-------------- F
1 Farve1 Mad okt sum
Benzin okt sum
2 Farve2
2488,95 1100,00
3
4
5 Konto udtræk:
6 399,00 REma 1000 29.10.09
7 295,00 OK benzin 27.10.09
ect......
Håber det kaster lidt lys på det
Mvh
Jesper
Jan Kronsell
> On 1 Nov., 00:39, "Jan Kronsell" <kronsell(nomorespam)@adslhome.dk>
> wrote:
>> Jesper wrote:
>>> farver,
>>> men tror kun som udgangspunkt, den virker med en farve.
>>> og selvf�lgelig har �ndret ''=SumColor(A1,A6:A20)" s� den kigger p�
>>> end A1 for farve 2 (feks A2) ect..
>>> her mener jeg 5 forskellig sumresultater p� 5 forskellige farver.
>>> M�ske man skal have lavet en DIM icol mere i koden og feks kalde den
>>> icol2, men jeg er ikke lige den skarpeste til VBA ?
>>
>> celle. Der kan kun st� et resultat af gangen. Skal du have talt
>> sammen for flere celler, er du n�dt til at anbringe funktionen i en
>> celle for hver farve, du �nsker talt.
>>
>> Jan
>
> Hej Jan,
> ja jeg vil have flere samt�llingen med sum i forskellige farver i
> flere celler.
S� skal du bare inds�tte formlen i flere celler, med forskellig
farvespeicifikation.
Jan
Jesper
wrote:
> Jesper wrote:
> > On 1 Nov., 00:39, "Jan Kronsell" <kronsell(nomorespam)@adslhome.dk>
> > wrote:
> >> Jesper wrote:
> >>> farver,
> >>> men tror kun som udgangspunkt, den virker med en farve.
> >>> og selvfølgelig har ændret ''=SumColor(A1,A6:A20)" så den kigger på
> >>> end A1 for farve 2 (feks A2) ect..
> >>> her mener jeg 5 forskellig sumresultater på 5 forskellige farver.
> >>> Måske man skal have lavet en DIM icol mere i koden og feks kalde den
> >>> icol2, men jeg er ikke lige den skarpeste til VBA ?
>
> >> celle. Der kan kun stå et resultat af gangen. Skal du have talt
> >> sammen for flere celler, er du nødt til at anbringe funktionen i en
> >> celle for hver farve, du ønsker talt.
>
> >> Jan
>
> > Hej Jan,
> > ja jeg vil have flere samtællingen med sum i forskellige farver i
> > flere celler.
>
> Så skal du bare indsætte formlen i flere celler, med forskellig
> farvespeicifikation.
>
> Jan- Skjul tekst i anførselstegn -
>
> - Vis tekst i anførselstegn -
Yepper skulle jeg også mene,og det har jeg også gjort, men det funker
ikke ordentligt ved nogle af de farver jeg har valgt.
Kan det have noget at gøre med at jeg bruger office 07 som jeg mener
har flere farvevalgmuligheder, end den office formlen er lavet til,
kan se år 2001 dukker op et sted ?
Når jeg skriver funker, mener jeg at 2 farver bliver summeret i samme
felt selvom de har forskellige farver.
Per Jessen
Du er inde p� det rigtige her.
I excel 2007 har f.eks. Gr� 15% og Gr� 25% samme 'ColorIndex' (15). Da det
er det ColorIndex der afg�r om en celle skal summeres, opst�r fejlen....
Hvis dit regneark skal v�re bagud kompatibelt, bliver du n�dt til at v�lge
andre farver, hvor du for forkert resultat. Hvis det KUN skal virke i excel
2007 kan funktionen skrives om s� den virker med alle farvemuligheder.
Mvh.
Per
>Yepper skulle jeg ogs� mene,og det har jeg ogs� gjort, men det funker
>ikke ordentligt ved nogle af de farver jeg har valgt.
>Kan det have noget at g�re med at jeg bruger office 07 som jeg mener
>har flere farvevalgmuligheder, end den office formlen er lavet til,
>kan se �r 2001 dukker op et sted ?
>
>N�r jeg skriver funker, mener jeg at 2 farver bliver summeret i samme
Jesper
>
> I excel 2007 har f.eks. Grå 15% og Grå 25% samme 'ColorIndex' (15). Da det
> er det ColorIndex der afgør om en celle skal summeres, opstår fejlen....
>
> Hvis dit regneark skal være bagud kompatibelt, bliver du nødt til at vælge
> andre farver, hvor du for forkert resultat. Hvis det KUN skal virke i excel
>
> Mvh.
>
> Per
>
>
>
> >Yepper skulle jeg også mene,og det har jeg også gjort, men det funker
> >ikke ordentligt ved nogle af de farver jeg har valgt.
> >har flere farvevalgmuligheder, end den office formlen er lavet til,
>
> >Når jeg skriver funker, mener jeg at 2 farver bliver summeret i samme
> >felt selvom de har forskellige farver.- Skjul tekst i anførselstegn -
>
> - Vis tekst i anførselstegn -
Hej Per og tak for svaret,
jeg har fundet nogle farver hvor det virker i, selvom farverne ikke
lige ville være mit første valg,
da jeg godt kan lide de mere "matte" farver, så de ikke skærer i
øjnene.
Da funktionen egentligt bare skal bruges i office 07 vil jeg google om
jeg kan finde en der virker på 15% farver også.
Mvh
Jesper
Jesper
>
> - Vis tekst i anførselstegn -
Har ledt, men ikke rigtig fundet noget der er konventeret til office
2007 farver.
Jeg har fundet en udvidelse af vba koden, som samtid med også tæller
antal felter af de forskellige farver.
MEN kan man få funktionen Sumcolor, til at tælle fyldte celler, som er
fyldt af en bestemt farver pga af en
betinget formattering. Da denne funktion kun virker hvis jeg manuelt
har fyldt celle med farve,.
Jeg har nemlig valgt at at cellerne som skal samtælles, bliver fyldt,
ud fra hvad jeg skriver i en celle foran dem.
Feks skriver jeg "M" i celle G6 for mad og så bliver cellen i D6 (som
indeholder tal og skal indgå i summen) grøn
skriver "B" i celle G7 for benzin og cellen i D7 bliver pink ect..
SÅ er jeg sikker på at fyldfarver bliver rigtig, eller skulle man ind
og vælge fyldfarve selv og det kunne let ske at man fylder med en
nuance
lysere eller mørkere og så tælles cellen ikke med i summen.
Men nu virker sum på baggrund af farver ikke når jeg ikke manuelt
udfylder farverne !?
Kan den løses ?
Joergen Bondesen
Jeg synes svagt at kunne erindre, at man i VBA ikke kan l�se betinget
formaterings farve.
Jeg har ikke n�rl�st tr�den, men for mig synes det, at du i kolonne A
indtaster et bogstave f.eks B = Benzin
Nu skal tallet i cellen th. i kolonne B farves, s� du kan summerer alle dine
benzinregninger.
Hvis dette er korrekt forst�et, kunne du jo bruge f�lgende formel:
=SUM.HVIS(A2:A6;"B";B2:B6)
I kolonne A har du forkortelserne.
I kolonne B har du bel�bene
"B" i formlen kunne referere til en celle.
Der er s� i�vrigt intet til hindre for at du fortsat farver cellerne, hvis
det er et must. 8-)
--
Med venlig hilsen
J�rgen Bondesen
"Jesper" <muggi_...@yahoo.com> skrev i en meddelelse
news:58a3e83a-bb4e-45ee...@g27g2000yqn.googlegroups.com...
On 2 Nov., 13:20, Jesper <muggi_san2...@yahoo.com> wrote:
> On 2 Nov., 12:31, "Per Jessen" <per.jes...@mail.dk> wrote:
>
>
>
>
>
> > Hej Jesper
>
> > Du er inde p� det rigtige her.
>
> > I excel 2007 har f.eks. Gr� 15% og Gr� 25% samme 'ColorIndex' (15). Da
> > det
> > er det ColorIndex der afg�r om en celle skal summeres, opst�r fejlen....
>
> > Hvis dit regneark skal v�re bagud kompatibelt, bliver du n�dt til at
> > v�lge
> > andre farver, hvor du for forkert resultat. Hvis det KUN skal virke i
> > excel
> > 2007 kan funktionen skrives om s� den virker med alle farvemuligheder.
>
> > Mvh.
>
> > Per
>
> > >Yepper skulle jeg ogs� mene,og det har jeg ogs� gjort, men det funker
> > >ikke ordentligt ved nogle af de farver jeg har valgt.
> > >Kan det have noget at g�re med at jeg bruger office 07 som jeg mener
> > >har flere farvevalgmuligheder, end den office formlen er lavet til,
> > >kan se �r 2001 dukker op et sted ?
>
> > >N�r jeg skriver funker, mener jeg at 2 farver bliver summeret i samme
> > >felt selvom de har forskellige farver.- Skjul tekst i anf�rselstegn -
>
> > - Vis tekst i anf�rselstegn -
>
> Hej Per og tak for svaret,
> jeg har fundet nogle farver hvor det virker i, selvom farverne ikke
> lige ville v�re mit f�rste valg,
> da jeg godt kan lide de mere "matte" farver, s� de ikke sk�rer i
> �jnene.
> Da funktionen egentligt bare skal bruges i office 07 vil jeg google om
> jeg kan finde en der virker p� 15% farver ogs�.
>
> Mvh
> Jesper- Skjul tekst i anf�rselstegn -
>
> - Vis tekst i anf�rselstegn -
Har ledt, men ikke rigtig fundet noget der er konventeret til office
2007 farver.
Jeg har fundet en udvidelse af vba koden, som samtid med ogs� t�ller
antal felter af de forskellige farver.
MEN kan man f� funktionen Sumcolor, til at t�lle fyldte celler, som er
fyldt af en bestemt farver pga af en
betinget formattering. Da denne funktion kun virker hvis jeg manuelt
har fyldt celle med farve,.
Jeg har nemlig valgt at at cellerne som skal samt�lles, bliver fyldt,
ud fra hvad jeg skriver i en celle foran dem.
Feks skriver jeg "M" i celle G6 for mad og s� bliver cellen i D6 (som
indeholder tal og skal indg� i summen) gr�n
skriver "B" i celle G7 for benzin og cellen i D7 bliver pink ect..
S� er jeg sikker p� at fyldfarver bliver rigtig, eller skulle man ind
og v�lge fyldfarve selv og det kunne let ske at man fylder med en
nuance
lysere eller m�rkere og s� t�lles cellen ikke med i summen.
Men nu virker sum p� baggrund af farver ikke n�r jeg ikke manuelt
udfylder farverne !?
Kan den l�ses ?
Jesper
> formaterings farve.
>
> Jeg har ikke nærlæst tråden, men for mig synes det, at du i kolonne A
> indtaster et bogstave f.eks B = Benzin
> benzinregninger.
>
> Hvis dette er korrekt forstået, kunne du jo bruge følgende formel:
> =SUM.HVIS(A2:A6;"B";B2:B6)
> I kolonne A har du forkortelserne.
> "B" i formlen kunne referere til en celle.
> det er et must. 8-)
>
> --
> Med venlig hilsen
>
> "Jesper" <muggi_san2...@yahoo.com> skrev i en meddelelsenews:58a3e83a-bb4e-45ee...@g27g2000yqn.googlegroups.com...
> On 2 Nov., 13:20, Jesper <muggi_san2...@yahoo.com> wrote:
>
>
>
>
>
> > On 2 Nov., 12:31, "Per Jessen" <per.jes...@mail.dk> wrote:
>
> > > Hej Jesper
>
>
> > > I excel 2007 har f.eks. Grå 15% og Grå 25% samme 'ColorIndex' (15). Da
> > > det
> > > er det ColorIndex der afgør om en celle skal summeres, opstår fejlen....
>
> > > Hvis dit regneark skal være bagud kompatibelt, bliver du nødt til at
> > > vælge
> > > excel
>
> > > Mvh.
>
> > > Per
>
> > > >Yepper skulle jeg også mene,og det har jeg også gjort, men det funker
> > > >ikke ordentligt ved nogle af de farver jeg har valgt.
> > > >har flere farvevalgmuligheder, end den office formlen er lavet til,
>
> > > >Når jeg skriver funker, mener jeg at 2 farver bliver summeret i samme
> > > >felt selvom de har forskellige farver.- Skjul tekst i anførselstegn -
>
> > > - Vis tekst i anførselstegn -
>
> > Hej Per og tak for svaret,
> > jeg har fundet nogle farver hvor det virker i, selvom farverne ikke
> > da jeg godt kan lide de mere "matte" farver, så de ikke skærer i
> > øjnene.
>
> > Mvh
> > Jesper- Skjul tekst i anførselstegn -
>
> > - Vis tekst i anførselstegn -
>
> Har ledt, men ikke rigtig fundet noget der er konventeret til office
> 2007 farver.
> antal felter af de forskellige farver.
>
> fyldt af en bestemt farver pga af en
> betinget formattering. Da denne funktion kun virker hvis jeg manuelt
> har fyldt celle med farve,.
> ud fra hvad jeg skriver i en celle foran dem.
> indeholder tal og skal indgå i summen) grøn
> skriver "B" i celle G7 for benzin og cellen i D7 bliver pink ect..
> og vælge fyldfarve selv og det kunne let ske at man fylder med en
> nuance
> lysere eller mørkere og så tælles cellen ikke med i summen.
>
> udfylder farverne !?
>
> Kan den løses ?- Skjul tekst i anførselstegn -
>
> - Vis tekst i anførselstegn -
Tak Jørgen,
det var jo en pæn simpel måde at løse det må,
og det virker!
Mange tak for hjælpen
mvh
Jesper
Joergen Bondesen
Velbekomme og tak for tilbagemeldingen.
--
Med venlig hilsen
J�rgen Bondesen
"Jesper" <muggi_...@yahoo.com> skrev i en meddelelse
news:2abdcd93-4fe3-40f0...@a31g2000yqn.googlegroups.com...
On 2 Nov., 18:08, "Joergen Bondesen" <bonde...@cool.dk> wrote:
> Hej Jesper.
>
> Jeg synes svagt at kunne erindre, at man i VBA ikke kan l�se betinget
> formaterings farve.
>
> Jeg har ikke n�rl�st tr�den, men for mig synes det, at du i kolonne A
> indtaster et bogstave f.eks B = Benzin
> Nu skal tallet i cellen th. i kolonne B farves, s� du kan summerer alle
> dine
> benzinregninger.
>
> Hvis dette er korrekt forst�et, kunne du jo bruge f�lgende formel:
> =SUM.HVIS(A2:A6;"B";B2:B6)
> I kolonne A har du forkortelserne.
> I kolonne B har du bel�bene
> "B" i formlen kunne referere til en celle.
> Der er s� i�vrigt intet til hindre for at du fortsat farver cellerne, hvis
> det er et must. 8-)
>
> --
> Med venlig hilsen
> J�rgen Bondesen
>
> "Jesper" <muggi_san2...@yahoo.com> skrev i en
> meddelelsenews:58a3e83a-bb4e-45ee...@g27g2000yqn.googlegroups.com...
> On 2 Nov., 13:20, Jesper <muggi_san2...@yahoo.com> wrote:
>
>
>
>
>
> > On 2 Nov., 12:31, "Per Jessen" <per.jes...@mail.dk> wrote:
>
> > > Hej Jesper
>
> > > Du er inde p� det rigtige her.
>
> > > I excel 2007 har f.eks. Gr� 15% og Gr� 25% samme 'ColorIndex' (15). Da
> > > det
> > > er det ColorIndex der afg�r om en celle skal summeres, opst�r
> > > fejlen....
>
> > > Hvis dit regneark skal v�re bagud kompatibelt, bliver du n�dt til at
> > > v�lge
> > > andre farver, hvor du for forkert resultat. Hvis det KUN skal virke i
> > > excel
> > > 2007 kan funktionen skrives om s� den virker med alle farvemuligheder.
>
> > > Mvh.
>
> > > Per
>
> > > >Yepper skulle jeg ogs� mene,og det har jeg ogs� gjort, men det funker
> > > >ikke ordentligt ved nogle af de farver jeg har valgt.
> > > >Kan det have noget at g�re med at jeg bruger office 07 som jeg mener
> > > >har flere farvevalgmuligheder, end den office formlen er lavet til,
> > > >kan se �r 2001 dukker op et sted ?
>
> > > >N�r jeg skriver funker, mener jeg at 2 farver bliver summeret i samme
> > > >felt selvom de har forskellige farver.- Skjul tekst i anf�rselstegn -
>
> > > - Vis tekst i anf�rselstegn -
>
> > Hej Per og tak for svaret,
> > jeg har fundet nogle farver hvor det virker i, selvom farverne ikke
> > lige ville v�re mit f�rste valg,
> > da jeg godt kan lide de mere "matte" farver, s� de ikke sk�rer i
> > �jnene.
> > Da funktionen egentligt bare skal bruges i office 07 vil jeg google om
> > jeg kan finde en der virker p� 15% farver ogs�.
>
> > Mvh
> > Jesper- Skjul tekst i anf�rselstegn -
>
> > - Vis tekst i anf�rselstegn -
>
> Har ledt, men ikke rigtig fundet noget der er konventeret til office
> 2007 farver.
> Jeg har fundet en udvidelse af vba koden, som samtid med ogs� t�ller
> antal felter af de forskellige farver.
>
> MEN kan man f� funktionen Sumcolor, til at t�lle fyldte celler, som er
> fyldt af en bestemt farver pga af en
> betinget formattering. Da denne funktion kun virker hvis jeg manuelt
> har fyldt celle med farve,.
> Jeg har nemlig valgt at at cellerne som skal samt�lles, bliver fyldt,
> ud fra hvad jeg skriver i en celle foran dem.
> Feks skriver jeg "M" i celle G6 for mad og s� bliver cellen i D6 (som
> indeholder tal og skal indg� i summen) gr�n
> skriver "B" i celle G7 for benzin og cellen i D7 bliver pink ect..
> S� er jeg sikker p� at fyldfarver bliver rigtig, eller skulle man ind
> og v�lge fyldfarve selv og det kunne let ske at man fylder med en
> nuance
> lysere eller m�rkere og s� t�lles cellen ikke med i summen.
>
> Men nu virker sum p� baggrund af farver ikke n�r jeg ikke manuelt
> udfylder farverne !?
>
> Kan den l�ses ?- Skjul tekst i anf�rselstegn -
>
> - Vis tekst i anf�rselstegn -
Tak J�rgen,
det var jo en p�n simpel m�de at l�se det m�,
og det virker!
Mange tak for hj�lpen
mvh
Jesper