平时，大家都忙于工作，很少有问候， 如何在不打扰对方的情况下，表达问候？

平时，对于自己喜欢的人，往往都是远远地偷看一下，如何在不唐突的情况下，表达爱意？

平时，自己埋头苦干，但老板却不知道，如何不经意地向老板，反映自己的业绩？

平时，大家的Excel, ,千篇一律，没有什么出彩的地方，如何让自己的Excel同事刮目相看？

。。。。。。


其实，对于以上情况，我们可以很容易通过Excel实现，只需要几行代码。来吧， 先看代码：

Private Sub Workbook_Open()

xingqi = Application.WorksheetFunction.Weekday(today, 1)

Select Case xingqi


'对于要显示的内容，大家可以根据自己的情况修改。

Case 1

MsgBox "星期一快乐。虽然平时很少交流，但我从未将你忘记。"


Case 2

MsgBox "星期二快乐。马上要过节了，大家要提前做好准备工作哟。"


Case 3

MsgBox "星期三快乐。你的笑容，让我忘记什么事烦劳。"


Case 4

MsgBox "星期四快乐。上周，我们开发一个大客户， 再接再厉。"


Case 5

MsgBox "星期五快乐。周末又开始了，我在老地方等你，不见不散哈。"


Case 6

MsgBox "星期六快乐。周末还在工作呀，早点休息哈。"


Case 7

MsgBox "星期天快乐。天道酬勤，你付出一定会得到回报。"

End Select

End Sub


这里用到了以下几个语句：

工作簿打开事件 Workbook_Open。. 在前面两篇文章已经介绍过。

调用Excel函数语句Application.WorksheetFunction 。大家都知道，Excel函数是不能直接在VBA里直接使用的，如果要调用Excel自带的函数，我们必须要用这个调用函数。

工作日函数Weekday (日期，参数）。 这个函数会返回对应日期是星期几。参数1，是从星期日算一周的开始；参数2，是从周一算一周的开始。

日期函数Today. 这个日期函数大家比较熟悉，从字面意思就是，返回今天的日期。

多条件判读语句Select-Case-End Select. 它的作用就是根据不同的值，执行不同的命令。下面代码的意思就是，如果今天是星期五，就显示“星期五快乐。周末又开始了，我在老地方等你，不见不散哈。”， 对于要显示的内容，大家可以根据自己的情况修改。

Case 5

MsgBox "星期五快乐。周末又开始了，我在老地方等你，不见不散哈。"


大家是不是觉得很有用呢。有空，不妨试试吧。