Kleuren tellen dmv VBA

Status
Niet open voor verdere reacties.
S

Smietje

Gebruiker
Lid geworden
4 nov 2016
Berichten
49
Hallo

Ik heb een lijst gemaakt om te oefenen met Excel/vba...

Nu wil ik de kleuren optellen dmv VBA.. Maar het resultaat blijft op 0 staan, wat doe ik niet goed?

zie lijst...

Bekijk bijlage Poule13.xlsm
 
De kleuren zijn niet hetzelfde.
Code: 
Sub VenA()
  MsgBox [u3].Interior.Color.Index
  MsgBox [E4].Interior.Color.Index
End Sub

De hele UDF kan je reduceren tot
Code: 
Function GetColorCount(CountRange As Range, CountColor As Range)
  For Each cl In CountRange
    If cl.Interior.ColorIndex = CountColor.Interior.ColorIndex Then GetColorCount = GetColorCount + 1
  Next cl
End Function
 
Dank,

De kleuren zijn wel hetzelfde maar de telfunctie werkt dus kennelijk pas als je de kleurecode 198, 239, 206 handmatig toevoegd.

Ik heb deze in de conditional formatting gedaan maar hij ziet deze dan dus niet.... iemand enig idee ?
 
Ook al is het om te oefenen..
Je kleurt de cellen dmv voorwaardelijke opmaak, tel dan ook op basis van deze voorwaarde op en niet op basis van de gegeven kleur

je krijgt dan zoiets voor kolom E:

Code: 
=SUMPRODUCT(N(E3:E15=R3:R15))


++ wil je dit toch doen, kijk dan naar .displayformat in vba
 
Laatst bewerkt:
Wellicht dat je het kunt laten zien in de betrefende excelsheet want ik kom er niet uit (als leek)
 
met de formule:
 

Bijlagen

  • Poule13.xlsm
    23 KB · Weergaven: 50
Die N-functie doet in dit geval hetzelfde als een dubbel - teken (--) (kijk naar naar de help bij de functies ;)

Het maakt van een matrix met True en False ,1-tjes en 0-len en deze kun je dus middels de sumproduct optellen
 
Hier is mijn bijdrage. (wat ik denk dat je wilt bereiken?)
In het vbtje heb ik alle VO er uitgehaald, ik had geen zin om alle uw regeltjes aan te passen.
Tip: gebruik één van de 56 kleuren waarmee excel gelukkig is.
voor col E
Zie link http://dmcritchie.mvps.org/excel/colors.htm
 

Bijlagen

  • Kopie van Poule13-4.xlsm
    22,9 KB · Weergaven: 45
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan