Question

EXCEL中VB编程问题

怎样判断一个单元格是星期几?几月几日?例如:A1是一个已经存在的日期型的数值,程序运行后要使B1填上是A1的星期几,C1是几月几日象这样的程序该怎样写啊?希望此中高手不吝赋教,多谢了

Answer 1

这个用VB编程吗？B1=weekday(A1,2),c1=A1,再在单元格格式-日期里选择符合你要求的格式就行 。要是是用VBA编程，weekday函数一样可用，不过不知道能简单解决的问题为什么要用VBA

Answer 2

Public Sub DateChange()
Dim dt As Date
dt = Range("A1").Value
Range("B1").Value = "星期" & Weekday(dt, vbMonday)
Range("C1").Value = Month(dt) & "月" & Day(dt) & "日"
End Sub