Question

excel报警功能

比如说在某一单元格内，当数字大于50小于100为正常，如果小于50，打开表格提示库存不足，如果大于100，打开表格提示库存过多。真诚的等待你们的帮助！是否要用VBA编写，如果要的话请告诉我一下该怎么写？分数虽不多，但是希望有心人能帮个忙！谢谢

Answer 1

 预警功能通过高亮单元格来实现，单元格自动变色的问题在EXCEL中可用两种方法实现：

方法一：

 条件格式，操作如下(以到期前五天举例)：

 开始-->条件格式-->新建规则-->使用公式确定-->输入公式=(A1>TODAY()-5)*(A1<TODAY())-->设置单元格填充色-->确定。

公式中的星号可用and函数替代。

方法二：

 VBA代码。

alt+f11打开VBA, 键入如下代码到需要设置颜色的sheet下，

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
 For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
  If cel > Date - 5 And cel < Date Then cel.Interior.ColorIndex = 20
 Next
End Sub

Answer 2

那根本就不用，IF函数就可以解决了。
如数据在B1单元格，你报警的单元格为A1你可以在A1中输入：
=if（50>=B1,"库存不足"，if(100>=B1,"库存正常","库存过多"））
这样，当你在B1单元格内填入数据的时候A1单元格会自动显示相应的文字。

Answer 3

我假设你要在SHEET1,A1单元格中实现此功能
按下ALT+F11,在左边的框中,双击THISWORKBOOK
然后复制下列代码入代码框中.
每次打开工作薄时,会自动判断A1的单元格值,并发出警报.

Private Sub Workbook_Open()
Sheets("SHEET1").Select
If Cells(1, 1) < 50 Then
MsgBox "库存不足"
End If
If Cells(1, 1) > 100 Then
MsgBox "库存过多"
End If
End Sub

Answer 4

公式判断就可以了

=if(A1<50,"库存不足",if(A1>=100,"库存过多","正常"))