软件: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'
此数需要物件
请问该段程式码需如何修改?
谢谢