(1): 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
Function CountColor (rColorRange Jako Pasmo, rColorIndex Pasmo) Długo Ciemnawy rCell Pasmo 'pasmo dla pętla. Ciemnawy lColor Długo 'Wskaźnik the komórka barwić my chcieć. Ciemnawy lColorCount Długo 'Kontuar lColorCount = (0) 'Initialize kontuar lColor = rColorIndex.Interior.ColorIndex 'Set kolor 'Zapętlać przez pasmo komórka w the pasmo Dla RColorRange rCell W rColorRange Jeżeli rCell.Interior.ColorIndex = lColor Wtedy lColorCount = lColorCount + (1) Następny rCell 'Powrotny obliczenie funkcja CountColor = lColorCount Końcówka Funkcja