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

lllllll007

这样也可以

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

兰色幻想

以下是引用先锋在2004-10-7 23:11:00的发言： 噢！原来是这样，真是菜，基础知识了解太少了！只会比葫芦画瓢。

那你就再比葫芦画个瓢吧!

出个题练练:要求编个自定义函数,判断它如果大于100就返回它的值乘于0.1,如果大于200,就返回它的值乘以0.2,如果大于300,就返回它的值乘以0.3,否则返回它的值乘以0.05

先锋

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

那你就再比葫芦画个瓢吧!

出个题练练:要求编个自定义函数,判断它如果大于100就返回它的值乘于0.1,如果大于200,就返回它的值乘以0.2,如果大于300,就返回它的值乘以0.3,否则返回它的值乘以0.05

没问题！这一次错对都要发给你看看。明天上午交可以吗？

lllllll007

Public Function panduan2(aa As Integer) Select Case aa Case Is > 300 panduan2 = aa * 0.3 Case Is > 200 panduan2 = aa * 0.2 Case Is > 100 panduan2 = aa * 0.1 Case Else panduan2 = aa * 0.05 End Select End Function

playgirl

Function Panduan(aa As Range) If aa.Value > 300 Then Panduan = aa * 0.3 ElseIf aa.Value > 200 Then Panduan = aa * 0.2 ElseIf aa.Value > 100 Then Panduan = aa * 0.1 Else Panduan = aa * 0.05 End If End Function

Function fuhao1(aa As Range) Select Case aa.Value Case Is > 300 fuhao1 = aa * 0.3 Case Is > 200 fuhao1 = aa * 0.2 Case Is > 100 fuhao1 = aa * 0.1 Case Is <= 100 fuhao1 = aa * 0.05 End Select End Function

兰色幻想

以下是引用lllllll007在2004-10-7 23:23:00的发言：

Public Function panduan2(aa As Integer) Select Case aa Case Is > 300 panduan2 = aa * 0.3 Case Is > 200 panduan2 = aa * 0.2 Case Is > 100 panduan2 = aa * 0.1 Case Else panduan2 = aa * 0.05 End Select End Function

好，反映挺快的，你的基础很不错，我再出个题，编一个单元区间任一区间求和的函数

比如A1：A20为一组数，怎样设置一个自定义函数，求出大于100，小于200的所有值的和

(最好还能利用这个函数进行相关条件计数)

[此贴子已经被作者于2004-10-7 23:34:20编辑过]

兰色幻想

以下是引用playgirl在2004-10-7 23:25:00的发言：

Function Panduan(aa As Range) If aa.Value > 300 Then Panduan = aa * 0.3 ElseIf aa.Value > 200 Then Panduan = aa * 0.2 ElseIf aa.Value > 100 Then Panduan = aa * 0.1 Else Panduan = aa * 0.05 End If End Function

Function fuhao1(aa As Range) Select Case aa.Value Case Is > 300 fuhao1 = aa * 0.3 Case Is > 200 fuhao1 = aa * 0.2 Case Is > 100 fuhao1 = aa * 0.1 Case Is <= 100 fuhao1 = aa * 0.05 End Select End Function

可以

lllllll007

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

编一个单元区间任一区间求和的函数

比如A1：A20为一组数，怎样设置一个自定义函数，求出大于100，小于200的所有值的和

(最好还能利用这个函数进行相关条件计数)

请教老师，如何能得出这个区间的上下界的值

兰色幻想

以下是引用lllllll007在2004-10-7 23:16:00的发言：

这样也可以

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

你定义aa As Integer 整数,要是单元格的值为小数,或范围超过Integer范围就不行了

[此贴子已经被作者于2004-10-7 23:41:20编辑过]

兰色幻想

以下是引用lllllll007在2004-10-7 23:37:00的发言：

请教老师，如何能得出这个区间的上下界的值

这需要你增加参数了,就象=CONTTIF(A1:A20,">20")中的">20"