Excel VBA库存增减操作优化及日志信息完善咨询

一、智能库存更新实现 #

无需硬编码逐个单元格，通过遍历所有存在库存变动的行自动更新数量，同时同步收集日志信息，适配任意商品行数，无需手动修改代码。

绑定按钮的完整VBA代码 #

Sub UpdateStockAndLog()
    Dim wsStock As Worksheet
    Dim wsLog As Worksheet
    Dim lastStockRow As Long
    Dim currentLogRow As Long
    Dim i As Long
    Dim changeAmount As Variant
    Dim itemName As String
    
    ' 绑定工作表对象，减少重复调用提升效率
    Set wsStock = ThisWorkbook.Sheets("Stock")
    Set wsLog = ThisWorkbook.Sheets("Log")
    
    ' 获取Stock表最后一行数据行号
    lastStockRow = wsStock.Cells(wsStock.Rows.Count, "A").End(xlUp).Row
    ' 获取Log表下一个空白行号
    currentLogRow = wsLog.Cells(wsLog.Rows.Count, "A").End(xlUp).Offset(1).Row
    
    ' 遍历所有商品行（从第2行开始跳过表头）
    For i = 2 To lastStockRow
        changeAmount = wsStock.Cells(i, "C").Value
        
        ' 仅处理add/remove列有有效数值的行
        If Not IsEmpty(changeAmount) And IsNumeric(changeAmount) Then
            itemName = wsStock.Cells(i, "A").Value
            
            ' 更新库存数量
            wsStock.Cells(i, "B").Value = wsStock.Cells(i, "B").Value + changeAmount
            
            ' 写入详细日志
            wsLog.Cells(currentLogRow, "A").Value = Now()
            wsLog.Cells(currentLogRow, "B").Value = Environ("UserName")
            wsLog.Cells(currentLogRow, "C").Value = itemName
            wsLog.Cells(currentLogRow, "D").Value = changeAmount
            wsLog.Cells(currentLogRow, "E").Value = IIf(changeAmount > 0, "Stock Added", "Stock Removed")
            
            currentLogRow = currentLogRow + 1
            ' 清空当前行的变动数值，避免重复触发更新
            wsStock.Cells(i, "C").ClearContents
        End If
    Next i
    
    ' 自动调整日志表列宽，优化可读性
    wsLog.Columns("A:E").AutoFit
End Sub

二、方案核心优势 #

• 自适应行数：无论Stock表新增多少商品，代码自动遍历所有行，无需修改单元格地址
• 精准操作：仅处理add/remove列有数值的行，跳过空行或非数值行，避免无效计算
• 日志信息完整：记录操作时间、操作人、商品名称、具体增减量、操作类型（添加/移除）
• 防重复执行：更新后自动清空add/remove列数值，避免误触按钮重复更新

三、使用步骤 #

1. 按Alt + F11打开Excel VBA编辑器
2. 在当前工作簿的模块中粘贴上述代码
3. 将“添加”“移除”按钮的宏指定为UpdateStockAndLog
4. 在Stock表的add/remove列输入正数（添加）或负数（移除），点击按钮即可完成库存更新+日志记录

四、日志表表头建议 #

提前为Log表设置以下表头，提升可读性：

内容的提问来源于stack exchange，提问作者Henrik Eckhoff