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

如何调整此数据输入表单

1 个答案: