袁承志和温青青续写:在Excel中怎样用宏直接把当前日期用星期显示?

来源:百度文库 编辑:高考问答 时间:2024/05/05 15:58:37
在Excel中,通过单元格格式设置,可以把当前日期用星期显示,如果用宏代码实现这一任务,怎么办?

两种方法:

一、Weekday函数

返回一个 Variant (Integer),包含一个整数,代表某个日期是星期几

例子:

Cells(1, 1) = Weekday(Cells(1, 2))

二、用NumberFormatLocal属性设置单元格格式

例子:

Cells(1, 1).NumberFormatLocal = "[$-804]aaaa;@"

Cells(1,1).NumberFormatLocal = "[$-804]aaa;@"

上面两行命令稍有差别。不过都是返回的周几

当然还有第三种方法,不过就有些脱裤子放屁的感觉了,我想不会有人有这么傻的办法的,但它的确也是另外一种方法。就是利用worksheetfunction对象引用Excel内置的weekday函数:

例子:

Cells(1, 1) = WorksheetFunction.Weekday(Cells(1, 2))