调用单元格值并替换它

Question

所附照片是我正在使用的电子表格。 我有一个用户窗体，它采用我定义为“案例”的旋转按钮值。 我可以获得代码以获取微调按钮值并将其从我想要的单元格中减去，但是它从 0 而不是单元格中已有的原始值中减去它。 例如，我想从单元格 C9 中减去 5，但我得到的不是该单元格的 300-5 = 295，而是 -5 的值。

到目前为止，这是我的代码：

    For i = 1 To 5
        For j = 1 To 6
            'If inventorysheet.Cells(inventoryrow, 1).Value = ComboBox1 And inventorysheet.Cells(inventoryrow, 2).Value = ComboBox2 And inventorysheet.Cells(inventoryrow, 3).Value = s Then
                currentinventory = Sheets("Inventory").Range("C" & (7 * k - 2)).Cells(i, j).Value
                Exit Do
            'End If
        Next
    Next
    
    'inventoryrow = inventoryrow + 1
Loop

Sheets("Inventory").Range("C" & (7 * k - 2)).Cells(i, j) = Sheets("Inventory").Range("C" & (7 * k - 2)).Cells(i, j) - cases

为了澄清起见， k optionbutton 值， i和j是组合框索引，我认为这些不会给我带来任何问题。 TIA！

我无法弄清楚如何获取代码以从单元格中提取原始值，它总是从 0 中减去。

Answer 1

只是跟进。 我意识到我把事情复杂化了，最终解决了。 这就是最终的工作。 事实证明我之前所做的甚至不是正确的事情。 也感谢 GSerg 的评论，它让我意识到我的错误。

'Check the current inventory level
With Sheets("Inventory")  
    currentinventory = Sheets("Inventory").Range("C" & (7 * k - 2)).Cells(i, j).Value  
    newinventory = currentinventory - cases  
'Update the inventory level
    inventorysheet.Range("C" & (7 * k - 2)).Cells(i, j).Value = newinventory  
End With