用VBA开发具有三个参数自定义函数

laoau138

用VBA开发具有三个参数自定义函数

laoau138

再顶一次了

一沫昔阳虹w

1. Function GetAverageIf(ByVal rngs As Range, ByVal colorRng As Range, Optional ByVal val As Integer = 0, _
   
2.         Optional ByVal k As Integer = 0) As Single
   
3.         'rngs为选择区域，colorRng为颜色单元格，val用作指定旁边的单元格,k用作判断
   
4.         Dim rng As Range, n As Long, sum As Long
   
5.         Application.Volatile
   
6.         If k = 0 Then Set rngs = Range(rngs, rngs.End(xlDown))    '自动向下扩展,不需要自动向下填充，设置k不等于0
   
7.         For Each rng In rngs
   
8.                 If rng.Interior.Color = colorRng.Interior.Color Then
   
9.                         n = n + 1
   
10.                         sum = sum + rng.Offset(, val)   '向右偏移Val个单元格，默认为0
    
11.                 End If
    
12.         Next
    
13.         GetAverageIf = sum / n  '平均值
    
14.         
    
15. End Function

复制代码

C2：=GetAverageIf(B2,B3)      G2：=GetAverageIf(E2,E3,1)  

laoau138

一沫昔阳虹w 发表于 2016-12-8 19:28
C2：=GetAverageIf(B2,B3)      G2：=GetAverageIf(E2,E3,1)

果然是高手

一沫昔阳虹w

laoau138 发表于 2016-12-8 20:01
果然是高手

多写几个代码，慢慢就熟悉了

laoau138

一沫昔阳虹w 发表于 2016-12-8 20:09
多写几个代码，慢慢就熟悉了

VBA编写自定义函数数字转换大写


http://www.excelpx.com/thread-426230-1-1.html