EXCEL如何弹出msgbox窗口，并显示触发宏的单元格的值？

1. 启动excel之后，按快捷键Alt+F11，并双击左侧的sheet1→双击后在右侧输入代码：

   Sub test()
       MsgBox "你好,胖猫" '弹出对话框的关键语句。
   End Sub
   

   

2. 回到excel中，点击插入→形状→矩形，插入后，右键点击“指定宏”，选择test并确定：
   

   

3. 点击这个矩形，即可看到一个对话框。
   

   

如果只是查询到期日，没必要用msgbox，这样很难看清，建议直接筛选的方法。

在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查询，更加方便，不需要本机加装任何接口。