Function ys(xzdyg As Range)
Dim rng As Range, n As Long
For Each rng In xzdyg
If rng.Interior.Color = vbred Then
n = n + 1
End If
Next
ys = n
End Function
Function tjys(xzdyg As Range, tjdyg As Range)
Dim rng As Range, n As Long
For Each rng In xzdyg
If rng.Interior.Color = tjdyg.Interior.Color Then
n = n + 1
End If
Next
tjys = n
End Function
Function ys(xzdyg As Range)
Dim rng As Range, n As Long
For Each rng In xzdyg
If rng.Interior.Color = vbred Then
n = n + 1
End If
Next
ys = n
End Function