vba - 如何调整此数据输入表单

Question

我有一个用户表单，上面有一个文本字段和一个提交按钮。我希望用户能够在文本字段中输入名称并单击提交按钮并将名称输入到电子表格中。单击提交后，我希望姓氏消失并将光标留在文本字段中，以便该人可以继续输入另一个名字。

我已经能够得到它的关闭是该人输入一个名称并单击“提交”按钮并将其输入到电子表格中，但我必须重新选择旧名称，以便在该人开始输入下一个时它消失姓名。

有没有办法自动清除文本字段中的姓名并将光标移动到该姓名，以便该人准备好输入下一个姓名。

这是我的提交按钮后面的代码。谢谢你。

Private Sub CommandButton1_Click()
    Dim i As Integer
    i = 1
        While ThisWorkbook.Worksheets("Sheet1").Range("A" & i).Value <> ""
        i = i + 1
        Wend
    ThisWorkbook.Worksheets("Sheet1").Range("A" & i).Value = TextBox1.Value
End Sub

Answer 1

试试这个:

Private Sub CommandButton1_Click()
    Dim i As Integer
    i = 1
    While ThisWorkbook.Worksheets("Sheet1").Range("A" & i).Value <> ""
        i = i + 1
    Wend
    TextBox1.Value = ""
    TextBox1.SetFocus
End Sub

顺便说一句，如果您需要在单元格中写入值，则在最后一个非空单元格之后，使用这个:

Private Sub CommandButton1_Click()
    With ThisWorkbook.Worksheets("Sheet1")
        .Range("A" & .Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Value
    End With
    TextBox1.Value = ""
    TextBox1.SetFocus
End Sub