Excel

Elyte rašė:
O mygtuką su 0,00 įrankių juostoje paspausti ne paprasčiau...

ABA2 rašė:

Ne pas visus jis matosi...

Elyte rašė:
P.S ABA2 Jūsų kantrybei tik pavydėti galima

rašė: Function SpalvaSk(rng As Range, iColor As Integer)
Dim v As Variant
Dim rCell As Range
Dim str As String
Dim sChar As String
Dim x As Integer
Dim iCount As Integer

iCount = 0
For Each rCell In rng
v = rCell.Font.ColorIndex
If IsNull(v) Then
For x = 1 To Len(rCell.Value)
If rCell.Characters(x, 1).Font.ColorIndex _
= iColor Then
iCount = iCount + 1
Exit For
End If
Next
ElseIf v = iColor Then
iCount = iCount + 1
End If
Next
SpalvaSk = iCount
End Function