时间戳

首页 > 解决方案 > 创建一个存储库；用户从输入框输入数据，数据保存在另一张表中

excel - 创建一个存储库；用户从输入框输入数据，数据保存在另一张表中

问题描述

我需要创建一个输入框，其中我有多个输入框来输入多个信息。它们是： - 输入经销商名称 - 输入经销商编号 - VPR 级别 - 包装级别 - 安装日期 - 操作 - 审核日期 - 损失率

一旦用户输入所有信息并单击提交按钮，信息就会被复制到不同的工作表并充当存储库。当输入多个数据时，数据会从下一个可用的空白行开始复制到存储库表中。

我需要宏，任何人都可以帮我怎么做

标签： excel

解决方案

我会避免使用Activateand Select。这可能是您要查找的内容，但您需要调整工作表名称等内容。

Private Sub OK_Click()
    Dim LastRow As Long

    LastRow = Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, 1).End(xlUp).Row + 1

    Cells(LastRow, 1).Value = UserForm1.TextBox1.Value
    Cells(LastRow, 2).Value = UserForm1.TextBox2.Value
    Cells(LastRow, 3).Value = UserForm1.TextBox3.Value
    Cells(LastRow, 4).Value = UserForm1.TextBox4.Value
    Cells(LastRow, 5).Value = UserForm1.TextBox5.Value
    Cells(LastRow, 6).Value = UserForm1.TextBox6.Value

    Unload Me
End Sub

推荐阅读