Question

我的代码出错了。我想要做的是在文本框中输入信息，然后当我转到下一个框时，它会自动填充下一个文本框，其中包含我数据库的下一个单元格中的信息。任何事情都会有所帮助。

<div class="modal-know> -> <div class="modal-know">

好的，所以现在我有第一部分工作但是当我尝试匹配我的VLookup的东西它不工作我得到以太语法错误或编译错误：预期：语句结束错误

Private Sub TextBox6_AfterUpdate()

  If WorksheetFunction.CountIf(Mastor_list.Range(Columns("D:D")), Me.TextBox6.Value) = 0 Then
        Me.TextBox6.Value = ""
        Exit Sub
    End If

    With Me
        .TextBox1 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox6), Mastor_list.Range("Lookup"), 5, 0)
        .TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox6), Mastor_list.Range("Lookup"), 6, 0)
        .TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox6), Mastor_list.Range("Lookup"), 7, 0)
        .TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox6), Mastor_list.Range("Lookup"), 8, 0)
        .TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox6), Mastor_list.Range("Lookup"), 10, 0)
    End With
End Sub

Answer 1

指定范围的方式无效。请参阅以下内容：

{{1}}

您需要包含一些错误处理，因为如果您的任何VLookup没有找到匹配项，则会引发错误。

用户表单代码问题，代码清理

1 个答案: