Question

我目前尝试设置存储位置。对于项目的预订，我使用2个工作表。工作表1用于键入物料的零件号（单元格B4）和数量（单元格B7）。在工作表2中，保存了库存的实际数量（列D）和零件编号（列A）。当前的任务是，每当需要预订一个项目时，用户在工作表1中键入零件编号和数量，单击按钮，工作表2中的库存就会调整。我对vba完全陌生，我所知道的一切都是自学的，所以请原谅我对此知识的了解。

我计算出工作表1和2中零件编号的值的比较。我无法解决的问题是，从零件的实际库存量中减去工作表1中键入的数量。工作表2。

Private Sub CommandButton1_Click()

Dim xlRange As Range
Dim xlCell As Range
Dim xlSheet As Worksheet
Dim valueToFind, Quantity


    valueToFind = Worksheets(1).Range("B4").Value
    Quantity = Worksheets(1).Range("B7").Value

    Set xlSheet = ActiveWorkbook.Worksheets("Sheet2")
    Set xlRange = xlSheet.Range("A1:A10000")

    For Each xlCell In xlRange
        If xlCell.Value = valueToFind Then

        'Execute "Cell D in the same row as valueToFind" - Quantity'

        End If

End Sub

因此，那么then函数应该可以像上面提到的那样工作。非常感谢每一个帮助

减去2个不同范围内的不同工作表中的单元格

0 个答案: