Question

我想为仓库创建一个excel模板。在此模板中集成了仓库，销售和发票。

我已经编写了一个代码，每次创建发票并单击按钮时，都会将数据传输到销售中。我想集成我的代码功能，可以在我的仓库中进行更正，即当我填写发票时，我将物品ID，描述，金额和价格。点击一个按钮后，我希望仓库表中的物料金额减少与发票中的金额相同。

对我来说最大的问题是如何编写从发票表中获取信息的代码（ID和项目金额），在仓库表单和仓库表单栏中查找完全匹配“I”（库存）减少库存相同的金额。

sheet1 - 名称表“仓库”。 “C”列中的ID;股票 - “I”栏;数据从行“4”开始 sheet3 - 名称表“发票”。合并列“A”“B”中的ID（第1列）;我在合并栏中列出的金额“S”“T”“U”（第4栏）;数据从第15行开始，如下面的代码所示。

我的代码将数据传输到销售（sheet2）。我需要将函数集成到此代码中，而无需创建另一个按钮。

Sub Button4_Click()
Dim x As Long
Dim erow As Long

'Calculate starting rows
x = 15
With Worksheets("Sellings")
    erow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End With

With Worksheets("Invoice")
    Do While .Cells(x, 1) <> ""

        'The next line copies values to Sheet2
        Worksheets("Sellings").Range("A" & erow & ":Z" & erow).Value = .Range("A" & x & ":Z" & x).Value
        'increment row counters
        x = x + 1
        erow = erow + 1
    Loop
End With
End Sub

Excel中的减法

0 个答案: