VBA新手求助：库存表与分发表交替列值对比验证问题

问题背景 #

我是完全没编程基础的VBA新手，正在做一款库存管理应用，试了一堆网上的代码片段都没用，卡壳了。

核心需求 #

把stock_sheet（库存表）里的库存值，和distribution_sheet（分发表）中Tr/En交替列的输入值做对比：如果分发值大于库存值，就提示用户输入不超过库存值的数值。

对比规则 #

• 若在distribution_sheet的F5、H5、J5……BN5（第5行及以下的偶数列，从F列开始）输入值，需和stock_sheet对应行的F列值对比；
• 若在distribution_sheet的G5、I5、K5……BO5（第5行及以下的奇数列，从G列开始）输入值，需和stock_sheet对应行的G列值对比；
• 要遍历所有有出版物名称的行（从E5到最后一行）。

当前问题 #

现有代码在无语言选项的工作表里能用，但在带Tr/En语言选项的工作表里完全失效，求解决。

现有代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
        Application.EnableEvents = False
        For Each cell In Target
            For i = 13 To 31
                If Not Application.Intersect(cell, Range("F" & (i) & ":BO" & (i))) Is Nothing Then
                    If Not IsNumeric(cell.Value) Or (cell.Value) > Worksheets("stock_sheet").Range("F" & (i)).Value Then
                        MsgBox Worksheets("stock_sheet").Range("E" & (i)).Value & vbCrLf & " please enter a number between 1 and " & Worksheets("stock_sheet").Range("F" & (i)).Value & _
                        " for this publication!", vbCritical, "ERROR"
                        cell.Value = vbNullString
                        cell.Select
                    End If
                End If
            Next i
        Next cell
        Application.EnableEvents = True
End Sub

修复后的代码及说明 #

问题根源 #

1. 原代码固定遍历行13到31，没覆盖E5开始的所有有效行；
2. 不管输入列是奇偶，都只对比stock_sheet的F列，不符合规则；
3. 多语言环境下，列名引用（如"F"）可能受区域设置影响，改用列号更可靠；
4. 没处理输入≤0的情况，逻辑不严谨。

修复代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim stockWs As Worksheet
    Dim targetRow As Long
    Dim stockCol As Long
    Dim maxStock As Double
    
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    Set stockWs = ThisWorkbook.Worksheets("stock_sheet")
    
    ' 遍历所有修改的单元格
    For Each cell In Target
        ' 只处理F(6列)到BO(63列)、行号≥5的单元格
        If cell.Column >= 6 And cell.Column <= 63 And cell.Row >= 5 Then
            targetRow = cell.Row
            ' 偶数列对应库存表F列(6)，奇数列对应G列(7)
            stockCol = IIf(cell.Column Mod 2 = 0, 6, 7)
            
            ' 获取对应库存值
            maxStock = stockWs.Cells(targetRow, stockCol).Value
            
            ' 验证输入：非数字、≤0、大于库存都触发提示
            If Not IsNumeric(cell.Value) Or cell.Value <= 0 Or cell.Value > maxStock Then
                MsgBox stockWs.Cells(targetRow, 5).Value & vbCrLf & _
                       "请输入1到" & maxStock & "之间的数值！", vbCritical, "输入错误"
                cell.Value = vbNullString
                cell.Select
            End If
        End If
    Next cell
    
    Application.EnableEvents = True
End Sub

关键改进 #

• 用列号（6=F，7=G，63=BO）代替列名，彻底解决多语言环境下的区域适配问题；
• 自动判断输入列的奇偶性，匹配对应的库存列，符合需求规则；
• 覆盖从行5开始的所有有效行，不再固定行范围；
• 增加输入≤0的验证，逻辑更完整；
• 提前定义库存表对象，代码更简洁高效。

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