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 | 阅读 11929 次 | 评论 0 条
浏览192580次
最新评论
  • yu1776151787:电子电路程序,强啊
  • qunxingw:普中,51 A6正常测试
  • zhouwenyuan:博主可以开发房产APP吗?
  • qunxingw:结合附件,在分表A或B...实验一下宏就理解了