使用点击按钮更新库存

Question

我已经尝试调整 VBA 代码一段时间了，但没有成功。

我想选择单元格（如 Range 函数）而不是查看整个 row/columns。表格将被文字和图像包围，这就是为什么您会在表格周围看到文字 "test"。

Sub Inventory_change()

With ThisWorkbook.Worksheets("Sheet1")
    For Each Cl In .Range("A3:A9").SpecialCells(6).Offset(1).RangeSpecialCells(6)
     ThisWorkbook.Worksheets("Total").Columns("C").Find(Cl.Value).Offset(, 6) = Columns("C").Find(Cl.Value).Offset(, 6) - Cl.Offset(, 1)
    Next Cl
End With

从A3:A9开始是已售出的产品，F3:F9是已售出的数量。

C6:C12 是库存中的产品，H6:H12 是剩余库存量。

谢谢！

Answer 1

你好像在找这个：

Dim cl As Range

With ThisWorkbook.Worksheets("Total").Columns("C") 'reference "Total" sheet columns C range
    For Each cl In ThisWorkbook.Worksheets("Sheet1").Range("A3:A9").SpecialCells(xlCellTypeConstants) ' loop through "Sheet1" sheet range "A3:A9" cells with "constant" content 
        .Find(cl.Value).Offset(, 5) = .Find(cl.Value).Offset(, 5) - cl.Offset(, 5) ' update cells 5 columns to the right of referenced one (i.e.  "Total" sheet columns H)
    Next cl
End With

使用点击按钮更新库存

Updating the inventory with a click button

macos

excel

vba

button

updates