getallen met verschillende kleuren optellen
Frank
er getallen met de kleur zwart. Is er een mogelijkheid om de getallen die
rood zijn op te tellen en hetzelfde voor de zwarte getallen?
Niek Otten
Dat kan:
http://xldynamic.com/source/xld.ColourCounter.html
Maar die cellen hebben natuurlijk niet zomaar een kleur gekregen. Kun je niet met hetzelfde mechanisme een indicatie plaatsen?
Lijkt me betrouwbaarder dan het onder scheiden van minieme tinit verschillen.
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:8420279B-238E-47C3...@microsoft.com...
Frank
het gaat om een kolom waarin ik een overzicht heb van nog te betalen
bedragen, die ik voor het goede overzicht een rode kleur gegeven heb, en in
diezelfde kolom staan ook de bedragen die al wel betaald zijn, en die staan
in zwart aangegeven. Het gaat dus niet om gekleurde cellen, maar om
gekleeurde bedragen.
"Niek Otten" schreef:
Niek Otten
Ik hoop dat je met de link die ik postte vooruit kunt.
Maar het is absoluut beter om, als je cellen begint te identificeren, een waarde in een cel te gebruiken om aan te geven wat je er
mee wilt doen, in plaats van (of eventueel naast) een kleur. Je zou waarschijnlijk niet eens op het idee gekomen zijn om je
oospronkelijke vraag te stellen als naast de getallen een 1, 2 of 3 stond.................
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:F7035235-62B9-42C4...@microsoft.com...
Frank
stel voor:
de cellen a1 tot en met a10 zijn elk gevuld met een 1, totaaltelling
derhalve 10.
Dan zijn bijvoorbeeld de getallen in de cellen a1 tot en met a6 rood gekleurd.
Ik wil dan bijvoorbeeld in cel a12 het getal 6 zien verschijnen, zijnde de
totaaltelling van de rood gekleurde cijfers.
Met de Engelse handleiding kom ik niet verder.
Kun je me aan de formule helpen?
Frank.
"Niek Otten" schreef:
Niek Otten
Hoe komen die 6 cellen rood gekleurd? gebruik dezelfde criteria om B1:B10 al of niet rood te kleuren. Dan een eenvoudige
AANTAL.ALS formule.
Post weer in deze thread als je er niet uit komt.
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:B3372041-D928-4107...@microsoft.com...
Frank
Al eerder heb ik gesteld dat ik bepaalde bedragen rood kleur (die worden
niet rood doordat ze bijvoorbeeld negatief zijn,maar ik kleur ze simpelweg
rood) omdat die nog betaald moeten worden. Reeds betaalde bedragen zijn zwart.
In de kolom a1:a10 staan dan bijvoorbeeld 6 bedragen 'rood' en vier bedragen
'zwart'. Wat is dan de formule om tot het totaal te komen van de rood
gekleurde bedragen?
"Niek Otten" schreef:
Niek Otten
En ik zeg dus: in plaats van cellen te kleuren er een cijfer naast zetten dat aangeeft wat je er mee wilt doen.
Je kunt ook vragen om cellen te tellen als ze cursief zijn, als er een linker border staat, als er een rechter border staat, als
ze vetgedrukt zijn, als ze doorgehaald zijn, als er een euro-teken voor staat, als het min-teken achteraan staat in plaats van
vooraan, kortom, mogelijkheden genoeg om het ingewikkeld te maken.
Maar ook mogelijkheden om het HEEL eenvoudig te houden, zoals ik al aangaf.
Wat mij betreft discussie gesloten.
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:BCF99507-2DF4-4162...@microsoft.com...
Niek Otten
Sorry, beetje te bruusk.
Kom je er uit of kunnen we nog helpen?
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
"Niek Otten" <nico...@xs4all.nl> wrote in message news:OFE%23l4HLI...@TK2MSFTNGP06.phx.gbl...
Frank
nog 1 maal:
Het enige dat ik vraag is de formule, niet meer en niet minder. Het enige
dat ik weet dat je voor de door mij gezochte oplossing de formule
'somproduct' nodig hebt, maar hoe die exact werkt is mij in dit zeer
specifieke geval niet duidelijk.
Alleen de formule, meer heb ik niet nodig.
Alle eventuele andere oplossingen zijn in dit geval voor mij niet relevant.
Als je me wilt helpen erg graag.
Frank.
"Niek Otten" schreef:
Ron de Bruin
In het Nederlands
=SOMPRODUCT(--(ColorIndex(A1:A100;WAAR)=3);A1:A100)
Zorg dat je all code in een standaard module zet
http://www.rondebruin.nl/code.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:C83D58C4-21D8-4ED2...@microsoft.com...
Frank
bedankt voor de enig juiste code, maar bij het invoeren ervan krjig ik de
melding #NAAM#
Dat heeft waarschijnlijk te maken met je laatste opmerking over 'all code in
een standaard module'. Wat bedoel je daarmee?
Ron de Bruin
Plak dit alles in een standaard module (zie mijn link)
'---------------------------------------------------------------------
' ColorIndex Function
'---------------------------------------------------------------------
' Function: Returns the colorindex of the supplied range
' Synopsis: Initially, gets a colorindex value for black and white
' from the activeworkbook colour palette
' Then works through each cell in the supplied range and
' determines the colorindex, and adds to array
' Finishes by returning acumulated array
' Variations: Determines cell colour (interior) or text colour (font)
' Default is cell colour
' Constraints: Does not count colours set by conditional formatting
'---------------------------------------------------------------------
' Author: Bob Phillips
' Additions for ranges suggested by Harlan Grove
'---------------------------------------------------------------------
'---------------------------------------------------------------------
Function ColorIndex(rng As Range, _
Optional text As Boolean = False) As Variant
'---------------------------------------------------------------------
Dim cell As Range, row As Range
Dim i As Long, j As Long
Dim iWhite As Long, iBlack As Long
Dim aryColours As Variant
If rng.Areas.Count > 1 Then
ColorIndex = CVErr(xlErrValue)
Exit Function
End If
iWhite = WhiteColorindex(rng.Worksheet.Parent)
iBlack = BlackColorindex(rng.Worksheet.Parent)
If rng.Cells.Count = 1 Then
If text Then
aryColours = DecodeColorIndex(rng, True, iBlack)
Else
aryColours = DecodeColorIndex(rng, False, iWhite)
End If
Else
aryColours = rng.Value
i = 0
For Each row In rng.Rows
i = i + 1
j = 0
For Each cell In row.Cells
j = j + 1
If text Then
aryColours(i, j) = _
DecodeColorIndex(cell,True,iBlack)
Else
aryColours(i, j) = _
DecodeColorIndex(cell,False,iWhite)
End If
Next cell
Next row
End If
ColorIndex = aryColours
End Function
'---------------------------------------------------------------------
Private Function WhiteColorindex(oWB As Workbook)
'---------------------------------------------------------------------
Dim iPalette As Long
WhiteColorindex = 0
For iPalette = 1 To 56
If oWB.Colors(iPalette) = &HFFFFFF Then
WhiteColorindex = iPalette
Exit Function
End If
Next iPalette
End Function
'---------------------------------------------------------------------
Private Function BlackColorindex(oWB As Workbook)
'---------------------------------------------------------------------
Dim iPalette As Long
BlackColorindex = 0
For iPalette = 1 To 56
If oWB.Colors(iPalette) = &H0 Then
BlackColorindex = iPalette
Exit Function
End If
Next iPalette
End Function
'---------------------------------------------------------------------
Private Function DecodeColorIndex(rng As Range, _
text As Boolean, _
idx As Long)
'---------------------------------------------------------------------
Dim iColor As Long
If text Then
iColor = rng.font.ColorIndex
Else
iColor = rng.Interior.ColorIndex
End If
If iColor < 0 Then
iColor = idx
End If
DecodeColorIndex = iColor
End Function
'---------------------------------------------------------------------
' End of ColorIndex Function
'---------------------------------------------------------------------
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:313C9F17-45C8-4F60...@microsoft.com...
Frank
maar nu snap ik er helemaal niets meer van.
Moet ik een of andere invoegtoepassing aanklikken of zo?
Waarom krijg ik de melding #naam#?
Waar gaat het mis en wat moet ik doen om het allemaal goed te krijgen?
Bedankt voor je meedenken!
Groet,
Frank
"Ron de Bruin" schreef:
Ron de Bruin
=SOMPRODUCT(--(ColorIndex(A1:A100;WAAR)=3);A1:A100)
Roept de ColorIndex code op in de standard module (zie mijn vorige reply)
Zorg dat de code op de goeie plek staat en kijk ook even of je beveiliging niet op hoog staat
Extra>Macros>Beveiliging (als ik het goed uit mijn hoofd weet)
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Frank" <Fr...@discussions.microsoft.com> wrote in message news:012E264E-6C79-47F5...@microsoft.com...
Rob
wrote:
>Hi Frank,
>
>En ik zeg dus: in plaats van cellen te kleuren er een cijfer naast zetten dat aangeeft wat je er mee wilt doen.
>Je kunt ook vragen om cellen te tellen als ze cursief zijn, als er een linker border staat, als er een rechter border staat, als
>ze vetgedrukt zijn, als ze doorgehaald zijn, als er een euro-teken voor staat, als het min-teken achteraan staat in plaats van
>vooraan, kortom, mogelijkheden genoeg om het ingewikkeld te maken.
>Maar ook mogelijkheden om het HEEL eenvoudig te houden, zoals ik al aangaf.
>
>Wat mij betreft discussie gesloten.
Ik gebruik ook zoiets, maar dan wanneer waarde zijn vet gedrukt. Je
hebt het er over om getallen te gebruiken, maar hoe dan?
Er staan al waarden in die cel, en dus het makkelijk om waarden op te
laten tellen als de opmaak aan bepaalde voorwaarden voldoet.
In de praktijk blijkt dat inderdaad niet prettig te werken, dus mocht
het anders kunnen hou ik me aanbevolen.
Maar ik snap even niet hoe ik hetzelfde kan bereiken door het
gebruiken van getallen. Kan je dit toelichten?
..........Rob
Niek Otten
Die regels kunnen zijn vastgelegd in een Voorwaardelijke Opmaak of kunnen handmatig zijn toegepast met opmaak-instructies.
Dat laatste is zeer foutgevoelig. Je wilt een cel rood maken maar je maakt hem 1 tintje te licht, omdat je slecht licht hebt. Je
verandert een cel van waarde, maar vergeet de opmaak aan te passen.
Je verandert de waarde van een cel in een formule, dan ben je helemaal de controle kwijt.
Excel is primair rekentuig. Hij gaat herberekenen als de waarde van een cel verandert, niet als de opmaak verandert. Dus weer kans
op fouten.
Wat je dus moet doen is de regels voor herkenning coderen in, bijvoorbeeld, een getal, in de kolom ernaast of de rij
eronder/erboven. In het geval van Voorwaardelijke Opmaak is er kennelijk een formule waarmee dat kan, dus dat is makkelijk, die
kun je gebruiken.
In het geval van handmatige interpretatie; leg vast wat de regels zijn (waarom wordt iets rood of vetgedrukt) en leg die in een
formule vast, alweer ernaat/boven/onder.
Nu kun je alle kanten op, wordt alles automatisch aangepast en worden de regels uniform toegepast.
Nu kun je ook met eenvoudige ALS formules of SOM.ALS of AANTAL.ALS etc selectief bewerkingen uitvoeren.
Opmaak gebruiken in formules............NOOIT DOEN!!!
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
"Rob" <r...@dontuse.moc> wrote in message news:slkek3huho8bo3t93...@4ax.com...
Rob
wrote:
>Iemand heeft kennelijk ooit regels opgesteld over hoe een cel te formatteren in welke omstandigheden.
>Die regels kunnen zijn vastgelegd in een Voorwaardelijke Opmaak of kunnen handmatig zijn toegepast met opmaak-instructies.
>Dat laatste is zeer foutgevoelig. Je wilt een cel rood maken maar je maakt hem 1 tintje te licht, omdat je slecht licht hebt. Je
>verandert een cel van waarde, maar vergeet de opmaak aan te passen.
>Je verandert de waarde van een cel in een formule, dan ben je helemaal de controle kwijt.
>
>Excel is primair rekentuig. Hij gaat herberekenen als de waarde van een cel verandert, niet als de opmaak verandert. Dus weer kans
>op fouten.
>
>Wat je dus moet doen is de regels voor herkenning coderen in, bijvoorbeeld, een getal, in de kolom ernaast of de rij
>eronder/erboven. In het geval van Voorwaardelijke Opmaak is er kennelijk een formule waarmee dat kan, dus dat is makkelijk, die
>kun je gebruiken.
>In het geval van handmatige interpretatie; leg vast wat de regels zijn (waarom wordt iets rood of vetgedrukt) en leg die in een
>formule vast, alweer ernaat/boven/onder.
>
>Nu kun je alle kanten op, wordt alles automatisch aangepast en worden de regels uniform toegepast.
>
>Nu kun je ook met eenvoudige ALS formules of SOM.ALS of AANTAL.ALS etc selectief bewerkingen uitvoeren.
>
>Opmaak gebruiken in formules............NOOIT DOEN!!!
Ik begrijp je reactie want ik loop erzelf ook af en toe tegen aan dat
waarden niet worden meegenomen waarna ik eerder de opmaak aan moet
passen. Maar ik zie niet snel een andere oplossing voor de sheet
waarmee ik werk. Ik heb alleen de mogelijkheid om de opmaak van een
cel te veranderen.
Ik maak gebruik van een begrotingssheet voor een jaar. De sheet is
opgebouwd uit weken, en bevat totalen per maand, en cumulatieve
waarden per maand.
In de sheet wordt aangegeven welke omzet we moeten halen, er staat dus
bijvoorbeeld in een rij, 100.000 Eur te factureren. Wanneer er
vervolgens wordt gefactureerd dan wordt het gefactureerde bedrag vet
afgedrukt in de cel.
In een kolom wordt vervolgens berekend hoeveel er is gefactureerd,
door de bedragen die vet zijn afgedrukt op te tellen via een vba
functie.
Ik zou gaarne jou tips ter harte nemen maar in de praktijk bij deze
sheet zie ik nog niet hoe.
..........Rob
Rob
Tja en toen bleef het stil, altijd leuk die theorien die in de
praktijk niet blijken te kunnen.
..........Rob