如何按月份循环，12月后年份+1 月份从1月开始

xlvevc

如何按月份循环，12月后年份+1 月份从1月开始，附件里的不超过12个月就没问题  超过12个月就乱了 麻烦高手给看下，谢谢 按月份循环.rar (24.8 KB, 下载次数: 23) 2020-5-22 17:00 上传 点击文件名下载附件

大灰狼1976

老是说有不良信息，就一串代码有什么不良信息？只好截图发上来。

xlvevc

自己顶一下 有人解惑不

xlvevc

自己摸索了好久  基本达成了想要的效果  麻烦高手看下有没有更好的方法

1.     Dim x, y
   
2.     For I = 1 To Me.dyyf Step 1
   
3.         x = Me.qsyf + I
   
4.         y = Int(x / 12) * 12
   
5.         Me.TextBox1 = x
   
6.         If x > 12 Then Me.TextBox1 = x - y
   
7.         If Me.TextBox1 = 0 Then Me.TextBox1 = 12
   
8.         If Me.TextBox1 = 1 Then Me.qsnf = Me.qsnf + 1
   
9.         Sheets("Sheet1").Range("D12").Value = "这是打印第" & I & "页"
   
10.         'ActiveSheet.PrintOut'打印
    
11.         ActiveSheet.PrintPreview '打印预览

复制代码

xlvevc

1.     Dim x, y
   
2.     For I = 1 To Me.dyyf Step 1
   
3.         x = Me.qsyf + I
   
4.         y = Int(x / 12) * 12
   
5.         Me.TextBox1 = x
   
6.         If x > 12 Then Me.TextBox1 = x - y
   
7.         If Me.TextBox1 = 0 Then Me.TextBox1 = 12
   
8.         If Me.TextBox1 = 1 Then Me.qsnf = Me.qsnf + 1
   
9.         Sheets("Sheet1").Range("D12").Value = "这是打印第" & I & "页"
   
10.         'ActiveSheet.PrintOut'打印
    
11.         ActiveSheet.PrintPreview '打印预览

复制代码

摸索了好久，基本达到了效果，麻烦高手路过看下需要改进不

xlvevc

大灰狼1976 发表于 2020-5-24 21:18
老是说有不良信息，就一串代码有什么不良信息？只好截图发上来。

版主，有点小问题  是从起始月份那个月开始的 现在是代码是从起始月份的下一个月开始

大灰狼1976

xlvevc 发表于 2020-5-25 22:31
版主，有点小问题  是从起始月份那个月开始的 现在是代码是从起始月份的下一个月开始

可以把s=dateadd(...)这句放到循环体最下方（就是next上面），再试试。
抱歉还要设定s的初始值。s=dateserial(qsnf,qsyf,1)

xlvevc

大灰狼1976 发表于 2020-5-26 19:49
可以把s=dateadd(...)这句放到循环体最下方（就是next上面），再试试。
抱歉还要设定s的初始值。s=dates ...

把s=dateadd(...)这句放到next上方，年份乱跳了
s=dateserial(qsnf,qsyf,1) 加上后 都不跳了。。。。

大灰狼1976

等下我重写吧，昨天有事所以有点敷衍了。

大灰狼1976

老问题，还是发图片。