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

xinlan55

如何按月份循环，12月后年份+1 月份从1月开始，附件里的不超过12个月就没问题  超过12个月就乱了 麻烦高手给看下，谢谢
按月份循环.rar (24.8 KB, 下载次数: 10)

2020-5-22 17:06 上传

点击文件名下载附件

xinlan55

自己顶一下  有人解惑不

xinlan55

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

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 '打印预览

复制代码