如何从两张纸上读取相同的数据，然后使用vba减去数据

当您单击按钮保存或提交时，我需要一些公式或函数来使用相同的id（条形码）从另一个工作表中减去，然后使用marco更改数据（数量）

stock

invoice
![

我想知道如何从发票到库存表中减去数据

回答=发票（数量） - 库存（数量）任何人帮助我

这是我的代码......`选项显式

子inv（）

昏暗作为范围昏暗rng1作为范围昏暗我作为长昏暗A作为长昏暗B作为范围昏暗rng_dest作为范围昏暗RANGE1作为范围昏暗RANGE2作为范围

'for subtract quantity in invoice and stock
Dim num1 As Integer
Dim num2 As Integer
Dim ans As Integer
Dim Stock As Long
Dim invoice As Range
Dim stk As Range

Application.ScreenUpdating = False

num1 = ThisWorkbook.Sheets("Invoice").Range("B8:B37").Value
num2 = ThisWorkbook.Sheets("STOCK").Range("B8:B").Value

ans
 If num2 = num1 Then
  ans = num2 - num1

'检查是否在工作表上找到发票＃“发票数据”

i = 1

Do Until Sheets（“发票数据”） . 范围（“A”和i）.Value =“”

If Sheets("Invoice data").Range("A" & i).Value = Sheets("Invoice").Range("H3").Value Then

  'Ask overwrite invoice #?

  If MsgBox("Invoice Already Exist.. Do you want to Overwrite.?", vbYesNo) = vbNo Then

    Exit Sub

  Else

    Exit Do

  End If

End If

i = i + 1

环

i = 1

设置rng_dest =表格（“发票数据”） . 范围（“D：D”）设置RANGE1 =表格（“发票数据”） . 范围（“G：G”）

'如果找到发票＃，则删除行

Do Until Sheets（“发票数据”） . 范围（“A”和i）.Value =“”

If Sheets("Invoice data").Range("A" & i).Value = Sheets("Invoice").Range("H3").Value Then

  Sheets("Invoice data").Range("A" & i).EntireRow.Delete

  i = 1

End If

i = i + 1

环

'在工作表发票数据的列D：G中找到第一个空行

Do Until WorksheetFunction.CountA（rng_dest.Rows（i））= 0

i = i + 1
 Do Until WorksheetFunction.CountA(RANGE1.Rows(i)) = 0

i = i + 1
Loop

环

'Copy range B16:I38 on sheet Invoice

设置rng =表格（“发票”） . 范围（“B8：B37”）设置RANGE2 =表格（“发票”） . 范围（“D8：D37”）

'将包含值的行复制到工作表发票数据

For A = 1 To rng.Rows.Count


If WorksheetFunction.CountA(rng.Rows(A)) <> 0 Then

  rng_dest.Rows(i).Value = rng.Rows(A).Value

   If WorksheetFunction.CountA(RANGE2.Rows(A)) <> 0 Then

  RANGE1.Rows(i).Value = RANGE2.Rows(A).Value


  Sheets("Invoice data").Range("A" & i).Value = Sheets("Invoice").Range("H3").Value

  'Copy Date

  Sheets("Invoice data").Range("B" & i).Value = Sheets("Invoice").Range("H2").Value

  'Copy Company name

  Sheets("Invoice data").Range("C" & i).Value = Sheets("Invoice").Range("B1").Value



  i = i + 1
End If
   End If

下一个A.

MsgBox（“发票已保存！”）

Application.ScreenUpdating = True
Sheets("Invoice").Range("H3").Value = _
Sheets("Invoice").Range("H3").Value + 1

结束子

Sub Formc（）

UserForm1.Show

结束子

`