Question

我是新手，并且了解基本的Excel VBA，现在我尝试一种逻辑，我有用户窗体以及我们应该以特定形式存储在用户表中的用户窗体中输入的数据，例如该Excel工作表中有预定义的表，例如-> D5和E5是包含表头的单元格。

因此，每当我第一次输入数据时，数据都应相应地存储在D6和E6中，同样，我想在D＆E列下的下一个旁边存储数据吗？任何人都可以帮助您完成此代码！

Answer 1

使用您发布的模糊信息，我只能假设，猜测并尝试回答该问题，因此，如果您有一个带有两个文本框和一个命令按钮的UserForm，并且希望将其值添加到其中的下一个可用行中D＆E列，单击命令按钮时，将执行以下操作：

Private Sub cmdSave_Click()
    Dim LastRow As Long
    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    'declare and set your worksheet, amend as required
    LastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    'get the last row with data on Column D

    ws.Range("D" & LastRow + 1).Value = txtFirstTextBox.Text
    'pass the value from first textbox to Column D
    ws.Range("E" & LastRow + 1).Value = txtSecondTextBox.Text
    'pass the value from second textbox to Column E
    txtFirstTextBox.Text = ""
    txtSecondTextBox.Text = ""
End Sub

在用户表单的特定列中写入数据

1 个答案: