[算表] 使用combox值进行vlookup查询

楼主: JointBank (嘘~ 不要问!)   2017-09-11 14:08:54
软件:EXCEL
版本:2016
欲使用 COMBOX1.VALUE 的值
经由VLOOKUP函数查询LIST1工作表
其结果写入TEXTBOX7值内
Private Sub ComboBox1_Change()
Dim data As Range
Dim Str2 As String
Dim ACC_CODE As String
Set data = [ACCCODE]
TextBox7.Text = Appliction.WorksheetFunction.VLookup(ComboBox1.Value,
list2.Range("ACCCODE"), 2, False)
END SUB
执行后出现 错误'424'
此数需要物件请问这里要怎么修正
作者: soyoso (我是耀宗)   2017-09-11 18:20:00
https://i.imgur.com/H39MDDG 如出现于set data这行的话请检查名称管理员内是否有ACCCODE该自订名称
楼主: JointBank (嘘~ 不要问!)   2017-09-11 18:39:00
感谢S大 忘记说 是出现在下一行
作者: soyoso (我是耀宗)   2017-09-11 18:55:00
如果是下一行的话,以原文的宏会先出现变量先定义https://i.imgur.com/T3svJfG因为应是Application,原文为Appliction修改后测试是可行的 https://youtu.be/StGqYkPPtcU
楼主: JointBank (嘘~ 不要问!)   2017-09-11 19:22:00
谢谢S大 这种小地方真的好容意漏掉 我还对了好几遍呢
作者: newacc (XD)   2017-09-12 23:22:00
小技巧是打code时全部小写,换行程式没有自动帮你大写就可能有东西打错
楼主: JointBank (嘘~ 不要问!)   2017-09-12 23:45:00
感谢nac大大告知技巧newaacnewacc 一直打错抱歉

Links booklink

Contact Us: admin [ a t ] ucptt.com