EXCEL中自定义函数的语法是什么啊？
答案:2 悬赏:30
解决时间 2021-04-28 12:17
- 提问者网友：残阳碧曼
- 2021-04-27 16:23
那位高手能举例说明一下如何定义函数啊。要是有一两个例子更好，
最佳答案
- 二级知识专家网友：疯山鬼
- 2021-04-27 17:58
Function colorsum(y As Range, rng, z As Integer)
Application.Volatile
Dim c As Double
Dim x As Range
colorsum = 0
For Each x In rng
If x.Interior.ColorIndex = y.Interior.ColorIndex Then
c = x.Offset(0, z).Value
Else
c = 0
End If
colorsum = colorsum + c
Next x
End Function
'公式例子 =colorsum(F3,$A$2:$A$80,2)*1 F3为指定颜色单元,2是偏移的列数,公式后加*1是为了自动刷新
设置E1为红色，E2为蓝色，在F1中输入=colorsum($E1,$A$1:$A$100,0)*1， F2中输入=colorsum($E2,$A$1:$A$100,0)*1
Application.Volatile
Dim c As Double
Dim x As Range
colorsum = 0
For Each x In rng
If x.Interior.ColorIndex = y.Interior.ColorIndex Then
c = x.Offset(0, z).Value
Else
c = 0
End If
colorsum = colorsum + c
Next x
End Function
'公式例子 =colorsum(F3,$A$2:$A$80,2)*1 F3为指定颜色单元,2是偏移的列数,公式后加*1是为了自动刷新
设置E1为红色，E2为蓝色，在F1中输入=colorsum($E1,$A$1:$A$100,0)*1， F2中输入=colorsum($E2,$A$1:$A$100,0)*1
全部回答
- 1楼网友：為→妳鎖鈊
- 2021-04-27 19:04
没看懂什么意思？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息