随笔 - 55
文章 - 0
评论 - 10
02 2010 档案
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"...阅读全文