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

【问题标题】：Populate multiple data tables using one data entry form使用一个数据输入表单填充多个数据表
【发布时间】：2015-02-24 03:26:54
【问题描述】：

我已经有一段时间没有使用宏了，我对一些简单的事情感到有些困惑。

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

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

谢谢！

【问题讨论】：

下次，请选择比“Excel宏问题”更具描述性的问题标题。我已经为你改好了。

标签： excel

【解决方案1】：

转到VBAProject，右键单击-> 插入-> 用户表单。创建一个用户表单 - 例如：

您可以预先填充商店和库存组合框，让生活更轻松。首先，您可以在工作表上放置一个按钮并连接其 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 事件。

【讨论】：

【解决方案2】：

此链接将帮助您从以下位置创建数据条目：http://www.contextures.com/xluserform01.html

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

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

【讨论】：