vba 日历

Sub abc() Dim dm As Variant Dim m, w, d, r As Integer y = InputBox("put_year") m = InputBox("put_month") d = DateSerial(y, m, 1) w = Weekday(d) r = 3 Range("3:10").ClearContents Cells(1, 1) = y & "-year," & m & "-month" dm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, ...
VBA | 2016-02-24 20:03 | 阅读 11531 次 | 评论 0 条
浏览176271次
最新评论
  • zhouwenyuan:博主可以开发房产APP吗?
  • qunxingw:结合附件,在分表A或B...实验一下宏就理解了
  • qunxingw:这仅是小范围的一种思路,此题是指数级的数据。