2010年2月10日
Excel VBA 应用 --批量修改选中区域单元格的时间数据，自动为时间值加1月 CELL值=CELL值 + DateAdd(“m”,1,date)
摘要： Sub ChangeTime_Click()''功能：改变时间'Dim rc As Integer'获取EXCEL中有内容的数据行数rc = ActiveSheet.UsedRange.Rows.CountFor i = 1 To rc '内容不为空时---没实现完整性检查 If Range("A" & i).Value <> "" Then '时间加一个月 Range("A"... 阅读全文
posted @ 2010-02-10 17:54 大鱼 阅读(1281) 评论(0) 推荐(0) 编辑