VBS自定义函数教程

1、首先，使用编辑器新建一空白项目。

2、将以下代码复制粘贴到VBS编辑器中

Function myvlookup(arr,arr2,num,num2)

On Error Resume Next

If num2 = 0 then

szwd = UBound(arr2,2)

If Err.Number <> 0 Then

Err.Clear

For p = LBound(arr2) To UBound(arr2)

If arr2(p)(0) = arr Then

myvlookup = arr2(p)(num-1)

Exit For

End If

Next

Else

For p = LBound(arr2) To UBound(arr2)

If arr2(p,1) = arr Then

myvlookup = arr2(p,num)

Exit For

End If

Next

End If

End if

On Error Goto 0

End Function

3、再将下面的代码放入到前面代码的后面，代码里设定张三为20岁，李四为22岁，然后我们使用myvlookup自定义函数，通过查找姓名，获得姓名对应的年龄。

arr2 = Array(Array("张三","20岁"),Array("李四","22岁"))

nl = myvlookup("李四",arr2,2,0)

MsgBox nl

4、然后我们在代码后面继续放入第二个我们要通过自定义函数计算获得的数据。

nl2 = myvlookup("张三",arr2,2,0)

MsgBox nl2

5、点击保存按钮，保存在桌面，命名为 报出你的年龄.vbs

6、返回电脑桌面，双击文件 报出你的年龄.vbs，程序自动运行，可以看到程序自动计算出 myvlookup("李四",arr2,2,0)的结果为22岁，即李四的年龄为22岁。

7、我们点击确定后，程序继续往下运行，程序再次自动弹出计算结果为20岁，即计算出 myvlookup("张三",arr2,2,0)的结果为20岁，也即张三的年龄为20岁。