带你入门VBA，第三讲（编写简单的自定义函数）

yigepure

Function panduan(aa As Range) Select Case aa.Value Case Is > 0 panduan = "大于零" Case Is = 0 panduan = "等于零" Case Is < 0 panduan = "小于零" End Select

End Function

这其中的这个 Case Is

这个IS是什么意思呢.VB里面没有IS吧

兰色幻想

如果判断的数据必须是范围时,则须在Case语句后加入Is关键词,来表示判断的数据,

lllllll007

其实 IS 是 VBA 自动加上去的，我们完全可以不管他。

兰色幻想

以下是引用lllllll007在2004-10-8 23:39:00的发言： 其实 IS 是 VBA 自动加上去的，我们完全可以不管他。

是这样的

lllllll007

以下是引用兰色幻想在2004-10-8 23:08:00的发言：

...... wbetween = Application.CountIf(rng, "<=" & y) - Application.CountIf(rng, "<" & x)

...... wbetween = Application.WorksheetFunction.SumIf(rng, "<=" & y, rng) - Application.SumIf(rng, "<" & x, rng)

兰老师，似乎应该是

...... wbetween = Application.CountIf(rng, "<" & y) - Application.CountIf(rng, "<＝" & x)

...... wbetween = Application.WorksheetFunction.SumIf(rng, "<" & y, rng) - Application.SumIf(rng, "<＝" & x, rng)

兰色幻想

以下是引用lllllll007在2004-10-9的发言：

兰老师，似乎应该是

...... wbetween = Application.CountIf(rng, "<" & y) - Application.CountIf(rng, "<＝" & x)

...... wbetween = Application.WorksheetFunction.SumIf(rng, "<" & y, rng) - Application.SumIf(rng, "<＝" & x, rng)

如果公式是=wbetween(C1:C11,100,200,1)，你这样修改会把等于100和200的值舍掉

[此贴子已经被作者于2004-10-9 0:17:29编辑过]

yigepure

Function sumt(aa As Range, i As Integer, o As Integer, z As Integer) Application.Volatile If z = 0 Then sumt = Application.WorksheetFunction.CountIf(aa, ">" & i) - Application.WorksheetFunction.CountIf(aa, ">=" & o) ElseIf z = 1 Then sumt = Application.WorksheetFunction.SumIf(aa, ">" & i, aa) - Application.WorksheetFunction.SumIf(aa, ">=" & o, aa) Else MsgBox "最后一个参数不能大于1", 1 + 64, "注意": sumt = "" End If End Function

这是我写的.怎么样使z当不为0或1时,这个点选的单元格为"",而不是出现这个公式(当点击这个单元格时还是有这个公式),或为显示为错误值

而是一开始当Z不为0或1时,这个公式就不能运用,点击取消就退出这个公式.点击确定重输这个公式

lllllll007

我知道了，你的公式求得是 X,Y 之间（包括X,Y)

我的公式求XY之间（不包括X,Y）

yigepure

仔细看了一下自已的这个是多此一举呀sumt = ""

求奇

以下是引用兰色幻想在2004-10-8 23:08:00的发言：

Function wbetween(rng, x, y, z) Application.Volatile If z = 0 Then wbetween = Application.CountIf(rng, "<=" & y) - Application.CountIf(rng, "<" & x) ElseIf z = 1 Then wbetween = Application.WorksheetFunction.SumIf(rng, "<=" & y, rng) - Application.SumIf(rng, "<" & x, rng) Else MsgBox "最后一个参数不能大于1" End If End Function

程序详解:

Function wbetween(rng, x, y, z)

请问，自定义函数中的参数（如本例中的rng,x,y,z)可以不定义数据类型吗？