作者：乔山办公网日期：
返回目录：excel表格制作
有个更简单的做法，可以起到“警告库存不足”的作用。在库存一列使用“条件格式”里“突出显示”，设好“小于200就填醒目颜色”，如红色。这样，一旦输入的库存小于200，这一格就是红色的。
用VBA写代码即可实现。
详细步骤如下：
1.Alt+F11，打开VBA编辑界面，双击左侧zhidaoMicrosoft Excel对象下的“Sheet1”，确保程序是在sheet1中执行
2.点击下图“通用”右侧的下拉箭头，选择worksheet
3.此时，代码编辑区，自动出现两专串代码，如下图所示：
4.补充写上一句代码“Range("h1")=Target.text"
5.关闭VBA界面，返回Sheet1，点击任意单元格属，就看到H1的值就等于点击单元格的值
如果只是查询到期日，没必要用copymsgbox，这样很难看清，建议直接筛选的方法。
在B列筛选：条件为 小于或等于 当前日期+5 比如输入4/26 这个方法最简单。
也可以用一个辅百助列，加以if函数，筛选，更方便。
一定要用msgbox，用如下代码：（仅供参考，需要根据实际情度况修改）
Sub cha()
Dim m As String
For i = 2 To [a1].End(xlDown).Row - 1
If Cells(i, 2) <= Now() + 5 Then m = m & Cells(i, 1) & "于" & Cells(i, 2) & "将到期" & Chr(13)
Next
MsgBox (m)
End Sub
以上范例在附件内。
另外，excel读取oracle，可用菜单“数据问“-”获取外部数据“-”新建数据库查询“-新数据源-自己起个名字-选microsoft ODBC for oracle，前提是要有oracle数据库，并要有用户名和密码。
如果数据库不在网络内，可以在oracle数据库端建立WEB服务器，并将数据用WEB页面方式答发布，用excel 新建WEB查询，更加方便，不需要本机加装任何接口。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'判定zhidao选取单元是否$f$3.若是则弹回出窗答口
If Target.Column = 6 Then UserForm1.Show
'选择了F列任意单元格的时候，弹出窗体1
End Sub