[VBA ] 使用COMBOBOX值進行VLOOKUP查詢

[JointBank (噓~ 不要問!)]

軟體: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'
此數需要物件

請問該段程式碼需如何修改?

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.37.195.11
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1505110208.A.249.html
→ fumizuki: list2 是什麼
→ JointBank: 工作表名稱
→ vincent0926: Appliction少一個a,更改後應該就沒問題了！
→ vincent0926: 另外list2.Range("ACCCODE")可以用已命名的data代替