Vba 从用户窗体在特定列中写入数据
我是新来的,知道基本的Excel VBA,现在我正在尝试其中一种逻辑,我有用户表单和我们在用户表单中输入的数据,它应该存储在特定的表中,就像在Excel工作表中,我有预定义的表,例如->D5和E5是单元格包含表头Vba 从用户窗体在特定列中写入数据,vba,excel,Vba,Excel,我是新来的,知道基本的Excel VBA,现在我正在尝试其中一种逻辑,我有用户表单和我们在用户表单中输入的数据,它应该存储在特定的表中,就像在Excel工作表中,我有预定义的表,例如->D5和E5是单元格包含表头 所以,每当我第一次输入数据时,数据应该相应地存储在D6和E6中,同样地,我想在D&E列下的下一列存储数据?任何人都可以帮助完成此代码 对于您发布的模糊信息,我只能假设、猜测并尝试回答这个问题,因此,如果您有一个带有两个文本框和一个命令按钮的用户表单,并且您希望将其值添加到D&E列中的下
所以,每当我第一次输入数据时,数据应该相应地存储在D6和E6中,同样地,我想在D&E列下的下一列存储数据?任何人都可以帮助完成此代码 对于您发布的模糊信息,我只能假设、猜测并尝试回答这个问题,因此,如果您有一个带有两个文本框和一个命令按钮的用户表单,并且您希望将其值添加到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
请将您目前掌握的密码张贴出来。欢迎来到so。请显示到目前为止您已经疲惫不堪的工作。观看此视频:。请在此处查看。这将是在列D或E中查找下一个空行的良好开端。