使用一个数据输入表单填充多个数据表

Question

我暂时没有使用过宏，而且我对某些简单的东西感到困惑。

我正在尝试使用一个数据输入表单填充多个数据表。例如，我有4家商店。我需要输入每日库存，销售，存款等。每个商店在单独的工作表中都有自己的表。我希望数据录入员能够选择商店＃和日期，然后输入库存，销售和每日存款，然后提交。提交数据后，我希望它在日期组织的相应工作表上填充相应的表。提交数据后，我希望数据输入框重置为空白，以便可以进行下一个输入。

任何正确方向的引导都是最有帮助的

谢谢！

Answer 1

转到VBAProject，右键单击 - ＆gt;插入 - ＆gt;用户表格。创建用户表单 - 类似于：

您可以预先填充商店和库存组合框，以简化生活。要启动from，您可以使用工作表上的按钮并连接其Click事件。你最终会得到类似的东西：

Public frmEntry As UserForm1

Private Sub cmdAdd_Click()

    If frmEntry Is Nothing Then

        Set frmEntry = New UserForm1

        Call PopulateStores()
        Call PopulateInventory()

    End If

    frmEntry .Show Modal

End Sub

在提交方面 - 您需要在“提交”按钮上处理Click事件。

Answer 2

此链接可帮助您创建数据条目：http://www.contextures.com/xluserform01.html

当用户完成在表单上输入数据时（例如，在他单击“完成”按钮之后），只需将控件（如文本框）中的数据写入相应的工作表和单元格即可。例如，将此代码添加到您的用户：

Private Sub btnFinish_Click()
    Worksheets("Store1").Cells(2,3).Value2 = Me.TextBox1.Text
End Sub