[文件] 使用combox值進行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/Office/M.1505110138.A.F04.html
→ soyoso: https://i.imgur.com/H39MDDG 如出現於set data這行的話
→ soyoso: 請檢查名稱管理員內是否有ACCCODE該自訂名稱
→ JointBank: 感謝S大 忘記說  是出現在下一行
→ soyoso: 如果是下一行的話，以原文的巨集會先出現變數先定義
→ soyoso: https://i.imgur.com/T3svJfG
→ soyoso: 因為應是Application，原文為Appliction
→ soyoso: 修改後測試是可行的 https://youtu.be/StGqYkPPtcU
→ JointBank: 謝謝S大  這種小地方真的好容意漏掉  我還對了好幾遍
→ JointBank: 呢
→ newacc: 小技巧是打code時全部小寫，換行程式沒有自動幫你大寫就可
→ newacc: 能有東西打錯
→ JointBank: 感謝nac大大告知技巧
→ JointBank: newaac
→ JointBank: newacc    一直打錯抱歉