使用一个数据input表单填充多个数据表

我有一段时间没有使用macros，而且我正在陷入一些简单的事情。

我正在尝试使用一个数据input表单填充多个数据表。 例如，我有4家商店。 我需要input每日库存，销售额，存款等。每个商店在单独的工作表中都有自己的表格。 我希望数据input员能够select商店＃和date，然后input库存，销售和每日存款，然后提交。 一旦数据被提交，我希望它在由date组织的适当的工作表上填充适当的表格。 数据提交后，我希望数据input框重置为空白，以便可以进行下一个input。

任何转向正确的方向将是最有帮助的

谢谢！

Answer 1

转到VBAProject，右键单击 – >插入 – >用户表单。 创build一个用户表单 – 如下所示：

您可以预先填充“商店”和“广告资源”combobox，以使生活更轻松。 要开始从您可以使用一个button放置在工作表上并连接其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 

在提交方 – 你需要处理提交button上的Click事件。

Answer 2

此链接将帮助您从http://www.contextures.com/xluserform01.html创build数据条目

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

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