[VBA ] 使用COMBOBOX值進行VLOOKUP查詢 JointBank PTT批踢踢實業坊

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

作者: JointBank (噓~ 不要問!) 2017-09-11 14:10:05

軟體: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'
此數需要物件
請問該段程式碼需如何修改?
謝謝

作者: fumizuki (矇面加菲獅) 2017-09-11 22:24:00

list2 是什麼

作者: JointBank (噓~ 不要問!) 2017-09-11 22:49:00

工作表名稱

作者: vincent0926 2016-01-02 06:25:00

Appliction少一個a,更改後應該就沒問題了！另外list2.Range("ACCCODE")可以用已命名的data代替

繼續閱讀

[VBA ] CSV匯入至多個工作表kryptos [.NET] Visual Studio 2017 的MSDN library 在汲johnpage [.NET] 數值轉換問題Casper [VBA ] application.ontime每日定時疑問sde7w9xzo Re: [請益] VBA問題:堆疊空間不足pppeeeyyy [VBA ] 請益EXCEL VBA用陣列存取資料與運用innerpeace 引用matlab dll的問題YangJun [VBA ] 請益Excel VBA Function取得函數引數欄位innerpeace [VBA ] 關於SUB未定義pppeeeyyy [VBA ] 想請教寫的這東西該如何改進iwcuforever