Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 从用户窗体在特定列中写入数据_Vba_Excel - Fatal编程技术网

Vba 从用户窗体在特定列中写入数据

Vba 从用户窗体在特定列中写入数据,vba,excel,Vba,Excel,我是新来的,知道基本的Excel VBA,现在我正在尝试其中一种逻辑,我有用户表单和我们在用户表单中输入的数据,它应该存储在特定的表中,就像在Excel工作表中,我有预定义的表,例如->D5和E5是单元格包含表头 所以,每当我第一次输入数据时,数据应该相应地存储在D6和E6中,同样地,我想在D&E列下的下一列存储数据?任何人都可以帮助完成此代码 对于您发布的模糊信息,我只能假设、猜测并尝试回答这个问题,因此,如果您有一个带有两个文本框和一个命令按钮的用户表单,并且您希望将其值添加到D&E列中的下

我是新来的,知道基本的Excel VBA,现在我正在尝试其中一种逻辑,我有用户表单和我们在用户表单中输入的数据,它应该存储在特定的表中,就像在Excel工作表中,我有预定义的表,例如->D5和E5是单元格包含表头


所以,每当我第一次输入数据时,数据应该相应地存储在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中查找下一个空行的良好开端。