[已解决]用代码解决加一个月时间的问题。

跑跑2014

详细情况在工作薄的窗体代码区Private Sub UserForm_Initialize()里，请高手看这句话要如何写出，多谢。

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-3-29 21:07

1. Private Sub UserForm_Initialize()
   
2.     Label13 = Sheets("总目录").Range("t6").Value
   
3.     DTPicker1 = Sheets("总目录").Range("t6").Value + 1
   
4.     date1 = Sheets("总目录").Range("t6").Value
   
5.     DTPicker2 = DateSerial(Year(date1), Month(date1) + 1, Day(date1))    '   这句如何修改可以得出Label13的下一个月时间。如 Label13现在 显示是2012－01－05 那么这个DTPicker2 就会显示为2012－02－05
   
6. End Sub

复制代码

跳转到最佳答案楼层

810126769

DTPicker1   是个什么控件？
我的2003怎么找不到这个控件？

那么的帅

1. Private Sub UserForm_Initialize()
   
2.     Label13 = Sheets("总目录").Range("t6").Value
   
3.     DTPicker1 = Sheets("总目录").Range("t6").Value + 1
   
4.     date1 = Sheets("总目录").Range("t6").Value
   
5.     DTPicker2 = DateSerial(Year(date1), Month(date1) + 1, Day(date1))    '   这句如何修改可以得出Label13的下一个月时间。如 Label13现在 显示是2012－01－05 那么这个DTPicker2 就会显示为2012－02－05
   
6. End Sub

复制代码

冠军欧洲2010

1. DTPicker1 = VBA.DateAdd("m", 1, Sheets("总目录").Range("t6").Value)

复制代码

跑跑2014

冠军欧洲2010 发表于 2014-3-29 21:08

这句更精简。{:1612:}