Excel VBA中如何在If函数内选择表格单元格实现库存校验？

以下是可直接使用的功能代码，可实现你需要的校验逻辑：

Sub CheckInStockStatus()
    Dim targetWs As Worksheet
    Dim stockHeader As Range
    Dim checkCell As Range
    
    ' 可替换为你实际的工作表名称，例如 Set targetWs = ThisWorkbook.Sheets("库存管理表")
    Set targetWs = ThisWorkbook.ActiveSheet
    
    ' 查找"In stock"表头位置，默认表头在第1行，可根据实际调整行号
    On Error Resume Next
    Set stockHeader = targetWs.Rows(1).Find(What:="In stock", LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    ' 未找到对应表头时提示退出
    If stockHeader Is Nothing Then
        MsgBox "未检测到""In stock""列，请确认工作表表头是否正确", vbExclamation
        Exit Sub
    End If
    
    ' 遍历In stock列所有有数据的单元格（跳过表头行）
    For Each checkCell In targetWs.Range(stockHeader.Offset(1, 0), targetWs.Cells(targetWs.Rows.Count, stockHeader.Column).End(xlUp))
        ' 仅校验数值类型单元格，避免空值/文本报错
        If IsNumeric(checkCell.Value) Then
            If checkCell.Value > 0 And checkCell.Value < 2 Then
                ' 向左偏移4位取值并弹框提示
                MsgBox checkCell.Offset(0, -4).Value & " stock not available", vbInformation
            End If
        End If
    Next checkCell
End Sub

使用说明 #

• 运行前可将代码中ThisWorkbook.ActiveSheet替换为实际工作表名称，避免在其他工作表误运行
• 若你的表头不在第1行，修改targetWs.Rows(1)中的数字为实际表头所在行号即可
• 如果需要一次性展示所有库存不足的条目而非逐个弹框，可将符合条件的内容存入字符串，遍历结束后统一弹出即可

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