luckybasterd040
Gebruiker
- Lid geworden
- 20 sep 2011
- Berichten
- 18
Hallo allemaal,
Mijn vraag is of iemand mij kan uitleggen hoe deze functie werkt.
Ik begrijp het pricipe wel maar ik wil hem aan de praat krijgen en snap eerlijk gezegd nog niet zo veel van vba's.
om deze functie gaat het:
Wat ik volgens mij begrijp is, dat je in de functie moet ingeven de: Range, cel met daarin de kleur die gezocht moet worden in de range.
Wie wil deze leek helpen
Groetjes Luc
Mijn vraag is of iemand mij kan uitleggen hoe deze functie werkt.
Ik begrijp het pricipe wel maar ik wil hem aan de praat krijgen en snap eerlijk gezegd nog niet zo veel van vba's.
om deze functie gaat het:
Code:
Function CountByColor(InputRange As Range, ColorRange as Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then
TempCount = TempCount + 1
End If
Next cl
Set cl = Nothing
CountByColor = TempCount
End Function
Wie wil deze leek helpen
Groetjes Luc
Laatst bewerkt door een moderator: