Office中国论坛/Access中国论坛

标题: 求VBA代码：判断工作簿是否为今天第一次打开，谢谢！ [打印本页]

作者: 荒烟平楚 时间: 2012-5-12 10:31
标题: 求VBA代码：判断工作簿是否为今天第一次打开，谢谢！
求VBA代码：
   1、假如：当前工作簿是今天第一次打开，那么H1单元格内容等于""，并且H1单元格闪烁，内容等于"提示" ，字体呈紫色。
      假如：当前工作簿不是今天第一次打开，并且H1单元格内容等于""，那么H1单元格闪烁，内容等于"提示" ，字体呈紫色。

   2、执行“停止闪烁”按钮命令后，H1单元格停止闪烁，H1内容等于"确定"，字体呈蓝色。

   第一条用 WorkBook Open 事件，第二条用“停止闪烁”按钮触发，谢谢！

作者: roych 时间: 2012-5-13 00:44
这大概就是TodayNew所说的“鬼打架”吧。
1、搞不懂为什么非要判断打开次数。这很重要吗？
2、是否一定要在宏里面设置，很值得商榷。提醒的方法有很多，我觉得最佳的莫过于利用条件格式。
当然，楼主的想法也不是无法实现的，大体思路应该是这样：
a、设置打开（Workbook_Open()）事件。
b、建立一个数据表，每次打开就把日期追加一次上去（ADO操作）。
c、再一次执行ADO操作，判断当前日期计数是否大于1，如果大于1即为今天第二次打开了，执行闪烁语句（我可不清楚你所谓的闪烁是什么效果哦）。
d、为了数据不过于庞大，建议设置关闭前事件，以便删除超过2天的数据。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)