你应该这么玩excel-你的库存预警了吗

有网友求助如下：

求老师帮忙做个库存预警，要求：当H列小于N列M列显示预警并如图所示颜色，当B列物料编码列有填充数据时自动触发该功能。

其实，这个公式判断的话，很简单，

=IF(H3<L3,"需补货","库存充足"))

但是又要求用代码实现，看来是数据比较多，加上，原来的是用条件格式标注红色和绿色，更显得表格慢。

现在把代码分享如下：

Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") Dim rng As Range Set rng = ws.Range("H3:L" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row) ' 设置要比较的单元格范围，根据实际情况修改最后一行的行号 Dim i As Long For i = 3 To rng.Rows.Count If ws.Cells(i, 8).Value < ws.Cells(i, 12).Value Then ws.Cells(i, 13).Value = "需补货" Else ws.Cells(i, 13).Value = "库存充足" End If Next i

以上是判断的代码，以下是加颜色标注的代码（完整）：

Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") Dim rng As Range Set rng = ws.Range("H3:L" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row) ' 设置要比较的单元格范围，根据实际情况修改最后一行的行号 Dim i As Long For i = 3 To rng.Rows.Count If ws.Cells(i, 8).Value < ws.Cells(i, 12).Value Then ws.Cells(i, 13).Value = "需补货" ws.Cells(i, 13).Interior.Color = RGB(255, 0, 0) ' 填充红色 Else ws.Cells(i, 13).Value = "库存充足" ws.Cells(i, 13).Interior.Color = RGB(0, 255, 0) ' 填充绿色 End If

完成 后，把代码贴到工作薄中的代码模块就可以执行了。