excel - 使用 vlookup 功能自动填充用户表单

Question

我已经设置了一个用户表单，顶部有一个 ID 号，下面是与数据库其余部分匹配的框列表。选择 ID 号后，我希望填写用户表单中的所有其他框，例如使用 vlookup。以下是当前公式，但由于出现错误而无法正常工作：

Run-time error '9': Subscript out of range.

知道为什么吗？

以下是当前代码

Dim SLNo As Integer

SLNo = cmbdid.Value

Me.TextSendCode.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 2, 0)

Me.TextReceiveCode.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 3, 0)

Me.TextEntity.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 4, 0)

Me.TextAccNumber.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 5, 0)

cmbdid是ID号文本框名称，B10:k13是数据库表

标签： exceldatabasevbavlookupuserform