Question

我有一个Excel VB代码，其中我在Excel中创建了一个按钮，单击该按钮后，转到下一个工作表并根据员工编号搜索该值。我在此代码中使用了VLookup。我的问题解决了。

我在Excel中使用UserForm也是这样。现在我的员工编号为textbox1，员工姓名为textbox2，sheet2的{{1}}和ColumnA也是如此。

现在，当我在ColumnB中输入员工编号时，该名称会显示在textbox1中，还会显示一个更改textbox2值的按钮。

我想更改textbox2的值，点击该按钮后，转到该特定员工姓名字段。我怎么能这样做？

Answer 1

尝试以下代码

Dim i As Long
Dim rno As Integer
i = 0

Do While Sheets(2).Cells(i + 1, 1).Value <> ""

        If Sheets(2).Cells(i + 1, 1).Value = TextBox1.Text Then

            rno = Sheets(2).Cells(i + 1, 1).Row
            GoTo Condition
        Else
        rno = 0

        End If
    i = i + 1
Loop

Condition:
If rno <> 0 Then
    Sheets(2).Cells(rno, 2).Value = TextBox2.Text
Else
    MsgBox ("No Such number is found")
End If

通过单击UserForm

1 个答案: