VBA库存管理宏问题：同产品切换重量后价格未同步更新

我来帮你搞定这个问题！你的核心痛点在于：你用了AutoFilter过滤重量，但VLookup依然会扫描整个B:E列，只找第一个匹配产品名称的记录，完全没用到过滤后的结果——这就是切换重量后价格纹丝不动的原因。

问题根源拆解 #

原代码里的AutoFilter只是隐藏了不符合重量条件的行，但VLookup的逻辑是“找到第一个匹配com_prod的单元格”，根本不会理会哪些行被隐藏了。所以不管你切换多少次重量，它只会返回产品主表里第一个出现该产品的价格。

解决方案：双条件精准查找 #

我们可以抛弃依赖AutoFilter的思路，改用同时匹配产品名称和重量的查找逻辑，直接定位到对应的价格记录。这里推荐用INDEX+MATCH组合，兼容性好，适用于所有Excel版本：

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("product_Master")

' 先清空价格框，避免无效输入
If Me.com_prod.Value = "" Or Me.com_trantype.Value = "" Then
    Me.txt_rate.Value = ""
    Exit Sub ' 直接退出，不用执行后续查找
End If

On Error Resume Next ' 处理找不到匹配记录的情况
If Me.com_trantype.Value = "Sale" Then
    ' 匹配产品(B列) + 重量(E列)，返回售价(D列)
    Me.txt_rate.Value = Application.WorksheetFunction.Index(sh.Range("D:D"), _
        Application.WorksheetFunction.Match(Me.com_prod.Value & Me.com_weight.Value, _
        sh.Range("B:B") & sh.Range("E:E"), 0))
ElseIf Me.com_trantype.Value = "Purchase" Then
    ' 匹配产品(B列) + 重量(E列)，返回采购价(C列)
    Me.txt_rate.Value = Application.WorksheetFunction.Index(sh.Range("C:C"), _
        Application.WorksheetFunction.Match(Me.com_prod.Value & Me.com_weight.Value, _
        sh.Range("B:B") & sh.Range("E:E"), 0))
End If
On Error GoTo 0

' 如果找不到匹配记录，清空价格框
If Err.Number <> 0 Then
    Me.txt_rate.Value = ""
    Err.Clear
End If

代码说明 #

1. 双条件匹配：用Me.com_prod.Value & Me.com_weight.Value把产品和重量拼接成唯一标识，确保找到的是对应重量的产品价格。
2. 精准返回列：INDEX直接指向采购价（C列）或售价（D列），避免了VLookup需要计算列偏移的麻烦。
3. 错误处理：找不到匹配记录时，自动清空价格框，避免出现错误值。

可选方案（Excel 365+） #

如果你用的是Excel 365或更高版本，可以用Filter函数实现更简洁的逻辑：

Dim sh As Worksheet
Dim matchData As Variant
Set sh = ThisWorkbook.Sheets("product_Master")

If Me.com_prod.Value = "" Or Me.com_trantype.Value = "" Then
    Me.txt_rate.Value = ""
    Exit Sub
End If

' 获取同时匹配产品和重量的行数据
matchData = Filter(Filter(sh.Range("B2:E" & sh.Cells(sh.Rows.Count, "B").End(xlUp).Row).Value, _
    Me.com_prod.Value, True, vbTextCompare), Me.com_weight.Value, True, vbTextCompare)

' 判断是否找到匹配记录
If UBound(matchData) >= 0 Then
    If Me.com_trantype.Value = "Sale" Then
        Me.txt_rate.Value = matchData(0)(2) ' 售价是数组第3个元素（索引从0开始）
    Else
        Me.txt_rate.Value = matchData(0)(1) ' 采购价是数组第2个元素
    End If
Else
    Me.txt_rate.Value = ""
End If

额外注意事项 #

• 确保你的产品主表中，同一产品+不同重量的组合是唯一的，否则MATCH会返回第一个匹配的结果。
• 原代码中的AutoFilter会留在工作表上，如果你不需要保留过滤状态，记得在代码末尾加上sh.AutoFilterMode = False来关闭过滤，避免影响其他操作。
• 原代码里第二个On Error Resume Next是多余的，建议统一错误处理逻辑。

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