1、首先，使用编辑器新建一空白项目。
2、将以下代码复制粘贴到VBS编辑器中Function myvlookup(arr巳呀屋饔,arr2,num,num2)On Error Resume NextIf num2 = 0 thenszw颊俄岿髭d = UBound(arr2,2)If Err.Number <> 0 ThenErr.ClearFor p = LBound(arr2) To UBound(arr2)If arr2(p)(0) = arr Thenmyvlookup = arr2(p)(num-1)Exit ForEnd IfNextElseFor p = LBound(arr2) To UBound(arr2)If arr2(p,1) = arr Thenmyvlookup = arr2(p,num)Exit ForEnd IfNextEnd IfEnd ifOn Error Goto 0End Function
3、再将下面的代码放入到前面代码的后面，代码里设定张三为20岁，李四为22岁，然后我们使用myv盟敢势袂lookup自定义函数，通过查曜廨枳簸找姓名，获得姓名对应的年龄。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岁。
