-2

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

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

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

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

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

4

1 回答 1

0

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

在工作表上创建一个 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
于 2013-03-29T15:29:47.430 回答