进入excle，打开VBA的编辑器，在编辑里新建一个过程，命名为whichday

然后是定义一些要用到的变量，全部是字符串的类型。

Dim mydate, question, msg1, msg2, response As String

再给这些变量进行赋值。

msg1 = 周末缝宙 msg2 = 工作日 question = 请输入一个日期，格式如：mm/dd/yy response = InputBox(question)

将用户输入的日期格式进行转换，Cdate是一个将字符串转换为日期的函数，weekday函数是一个将指定的日期在一周当中的天施游数，返回铲篇近的是一个数字，如果数字是1，代表的是周末，1则代表的是周一，以此类推。

mydate = Weekday(CDate(response))

对mydate的值进行判断，2-6之间的值，表示是工作日，除此之外是周末，也就是休息日

然后是点击菜单栏上面的“运行”按钮。

回到excle的界面，输入一个日期，点击确定，便会给出相应的提示，这里给出的是工作日的提示。