50论坛币求助VBA高手

我的建议是将起始和结束的日期放在一个保护的单元格中（例如一个工作表的最后一行），以免被其他人破坏，或者干脆将放置起始和结束的日期单元格所在的工作隐藏起来，只在VBA程序中调用这两个值所在的单元格就可以。

以下VBA程序可实现持续的累加，你计算的程序完成后就可以调用以下模块完成日期的累加，为下一轮地计算准备好开始和结束日期。

Sub aa()


'这两个语句是赋初始值的，也可以手工赋初始值
'    ThisWorkbook.Worksheets("sheet1").Cells(65535, 1).Value = "2010-1-1"
'    ThisWorkbook.Worksheets("sheet1").Cells(65535, 2).Value = "2010-3-1"

'这两行是在初始值的单元格上累加一天
    ThisWorkbook.Worksheets("sheet1").Cells(65536, 1).Value = ThisWorkbook.Worksheets("sheet1").Cells(65535, 1).Value + 1
    ThisWorkbook.Worksheets("sheet1").Cells(65536, 2).Value = ThisWorkbook.Worksheets("sheet1").Cells(65535, 2).Value + 1
   
  '这两行是将累加后的值覆盖初始值所在的单元格
    ThisWorkbook.Worksheets("sheet1").Cells(65535, 1).Value = ThisWorkbook.Worksheets("sheet1").Cells(65536, 1).Value
    ThisWorkbook.Worksheets("sheet1").Cells(65535, 2).Value = ThisWorkbook.Worksheets("sheet1").Cells(65536, 2).Value
   
   
End Sub

参见附件中的程序