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

兰色幻想 · 发表于 2004-10-7 21:34

如果你对VBA很兴趣，现在又有时间（不能半途而废）马上跟贴。今天谈一谈自定义函数

第一讲链接:

第二讲链接：

如何加载自定义函数：

[此贴子已经被作者于2004-10-15 8:40:06编辑过]

先锋 · 发表于 2004-10-7 21:46

我来了！希望老师最好能在十一点半之前下课吧。

今天电脑不太好用，但愿顺利！

[此贴子已经被作者于2004-10-7 21:51:55编辑过]

兰色幻想 · 发表于 2004-10-7 21:56

现在先从实例开始，新建一个EXCEL工作薄，ART+F11打开VBE编辑器，在工程列表框中单击右键---插入---模块

在右边的代码框中输入：

Function Panduan(aa As Range) If aa.Value > 0 Then Panduan = "大于零" ElseIf aa.Value = 0 Then Panduan = "等于零" Else Panduan = "小于零" End If

End Function

说明：这个一简单的判断值的正负的自定义函数,输入完后不懂的请提出。

[此贴子已经被作者于2004-10-7 22:56:49编辑过]

先锋 · 发表于 2004-10-7 22:07

建好了！我想知道自定义函数和VBA本质的区别？

兰色幻想 · 发表于 2004-10-7 22:08

自定义函数就是就VBA语言编成的，做完了吗？

先锋 · 发表于 2004-10-7 22:09

完了，

兰色幻想 · 发表于 2004-10-7 22:12

那你在工作表A1输入10，A2输入0，A3输入-10

在B1单元格设置公式=Panduan（A1）

在B2单元格设置公式=Panduan（A2）

在B3单元格设置公式=Panduan（A3）

看看有什么结果？

先锋 · 发表于 2004-10-7 22:17

不对！鼠标点哪都不动了。

我又做了一遍，还是不行，显示B1=0，下面输不了公式，点不动

[此贴子已经被作者于2004-10-7 22:27:12编辑过]

先锋 · 发表于 2004-10-7 22:32

回话呀！显示语法错误，你试了吗？

兰色幻想 · 发表于 2004-10-7 22:39

以下是引用先锋在2004-10-7 22:32:00的发言： 回话呀！显示语法错误，你试了吗？

yRHKwxU4.rar (6.27 KB, 下载次数: 825)

用户名		自动登录	找回密码
密码			免费注册