如何从一个工作表提交数据以更新单独的工作表？答案

【问题标题】：How do you submit data from one worksheet to update a separate worksheet?如何从一个工作表提交数据以更新单独的工作表？
【发布时间】：2013-03-20 06:18:10
【问题描述】：

我正在尝试开发一个库存控制系统（在 Microsoft Excel 2010 上），但我遇到了一个问题，希望有人可以帮助我！

我有一个零件进货工作表和每个存储位置的单独工作表。（其中 5 个）

在零件进货页面上，您输入零件名称、数量、一个复选框以说明该零件的发票是否已添加到会计文件中，并选择零件的存储位置（即存储位置）为一个下拉可选列表。

我想在数据输入表（零件传入表）上创建一个提交按钮，该按钮将更新相关工作表（用户选择的存储位置）并将提交的详细信息添加到该工作表。我知道如何添加详细信息（我认为），但我的问题是如何让它将详细信息添加到选定的存储位置/工作表？

到目前为止，我只真正使用过宏并且对 VBA 的了解相当有限，但我愿意尝试任何你认为可以让它工作的东西。我希望这是有道理的。任何帮助将不胜感激！谢谢托比

【问题讨论】：

如果我能看到示例文件，我可以为您提供准确的指示：)

标签： excel vba controls stock

【解决方案1】：

这应该可以帮助您入门，这是一些将单元格值或单元格范围从一张纸转移到另一张纸的简单示例。

在工作表上创建一个命令按钮，并将此宏附加到它：

Sub TransferData() 
    Dim sht1 as Worksheet
    Dim sht2 as Worksheet

    Set sht1 = ThisWorkbook.Sheets("Parts Incoming")  '<-- modify as needed'
    Set sht2 = ThisWOrkbook.Sheets("Storage Location") '<-- modify as needed'

    'Example of placing cell value from B16 on Parts Incoming in the cell A1 on the storage location sheet.'
    sht2.Range("A1") = sht1.Range("B16") 

    'Example of transfering data from a Range of cells to another range of cells on a different worksheet:'
    sht2.Range("A1:A50") = sht1.Range("E50:E100")


    ' you will need to modify or add to this to transfer data from different places '

End Sub

【讨论】：