[已解决]VBA把这个自定义函数 改写用FOR循环

laoau138

VBA把这个自定义函数    改写用FOR循环   

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-24 16:43

1. Function Countcolor(arr As Range, c As Range)
   
2. Dim rng As Range, i&, j&
   
3. For i = 1 To arr.Rows.Count
   
4.    For j = 1 To arr.Columns.Count
   
5.      If arr(i, j).Interior.Color = c.Interior.Color Then
   
6.          Countcolor = Countcolor + 1
   
7.      End If
   
8.    Next j
   
9. Next i
   
10. End Function

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Function Countcolor(arr As Range, c As Range)
   
2. Dim rng As Range, i&, j&
   
3. For i = 1 To arr.Rows.Count
   
4.    For j = 1 To arr.Columns.Count
   
5.      If arr(i, j).Interior.Color = c.Interior.Color Then
   
6.          Countcolor = Countcolor + 1
   
7.      End If
   
8.    Next j
   
9. Next i
   
10. End Function

复制代码

laoau138

大灰狼1976 发表于 2017-4-24 16:43

高高手

laoau138

真高手解题速度非常快