Question

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

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

在零件传入页面上，输入零件名称，数量，复选框，以说明零件的发票是否已添加到会计文件，以及选择零件的存储位置（即存储位置）下拉可选列表。

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

到目前为止，我只使用过宏，对VBA知之甚少，但我愿意尝试任何你认为可以让它工作的东西。我希望这是有道理的。任何帮助将不胜感激！谢谢托比

Answer 1

这应该可以帮助您开始，将一些表格中的单元格值或单元格范围转移到另一张表格的简单示例。

在工作表上创建一个commandButton，并将此宏附加到它：

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

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

1 个答案: