求VBA函数使用

ljc6 · 发表于 2018-7-28 19:18

Sub vlookup()

a = Range("d2:e8")
b = Cells(2, 2)

Cells(2, 3) = Application.WorksheetFunction.vlookup(b, a, 2, flase)
End Sub

求各位大神，这个代码哪里错了，为什么会提示：不能取得类 WorksheetFunction 的 Vlookup 的属性

mikezhan · 发表于 2018-7-28 19:30

提示: 作者被禁止或删除内容自动屏蔽

ljc6 · 发表于 2018-7-28 19:55

mikezhan 发表于 2018-7-28 19:30
VBA 里，多用编程，尽量少调用工作表函数！false 不是 flase

好的，谢谢
就是不知道哪里可以学到类似工作表中的函数用编程来替代

anzequ · 发表于 2018-7-28 20:57

d列有cells(2,2)的值吗，没有的话会报错

719404338 · 发表于 2018-7-28 21:13

Sub vlookup()
Dim arr
arr = Range("d2:e8")
b = Cells(2, 2)
Cells(12, 3) = Application.vlookup(b, arr, 2, 0)
End Sub

jiminyanyan · 发表于 2018-7-28 21:20

vlookup一般用字典代替。。。

ljc6 · 发表于 2018-7-29 15:59

anzequ 发表于 2018-7-28 20:57
d列有cells(2,2)的值吗，没有的话会报错

有的，有对应的值，可能代码写错了

ljc6 · 发表于 2018-7-29 16:05

719404338 发表于 2018-7-28 21:13
Sub vlookup()
Dim arr
arr = Range("d2:e8")

谢谢啦
如果出错了怎么写
能相当于函数的 iferror

kuangben8 · 发表于 2018-7-29 21:35

on error resume next

ljc6 · 发表于 2018-7-30 12:38

谢谢，可以了，代码放的位置会影响结果吗

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

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-28 19:30 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 求VBA函数使用