vba 日历

Sub abc() Dim dm As Variant Dim m, w, d, r As Integer y = InputBox("putyear") m = InputBox("putmonth") d = DateSerial(y, m, 1) w = Weekday(d) r = 3 Range("3:10").ClearContents Cells(1, 1) = y & "-year," & m & "-month" dm = Array(31,...
VBA | 2016-02-24 20:03 | 11080次阅读 | 0评
浏览152299次