用VBA实现打印指定区域 （根据年份选择）

清风竹-

梁笑燕 发表于 2024-3-12 18:00
我好像不错过了什么
今天点了编辑删了张图片 重新审核了

我未回复 。

梁笑燕

清风竹- 发表于 2024-3-12 21:00
我未回复 。

在实践中遇到的新问题
请帮忙看看哦~~谢谢！！！

梁笑燕

梁笑燕 发表于 2024-3-12 21:58
在实践中遇到的新问题
请帮忙看看哦~~谢谢！！！

我先把部分第三行空的日期先填充起来 再运行看看效果

清风竹-

梁笑燕 发表于 2024-3-12 21:58
在实践中遇到的新问题
请帮忙看看哦~~谢谢！！！

For i = 4 To m
          If arr(i, 1) <> "" Then
             If --Format(arr(i, 1), "yyyy") = n Then
                If s1 = 0 Then s1 = i
                Exit For
             End If
          End If
       Next

梁笑燕

清风竹- 发表于 2024-3-13 09:54
For i = 4 To m
          If arr(i, 1)  "" Then
             If --Format(arr(i, 1), "yyyy") = n  ...

1 与 3 都放上
还是 3 替代掉 1 呢？


哈哈 小白 表示不懂不懂

梁笑燕

清风竹- 发表于 2024-3-10 13:12
请参考一下。

这个应用要我的其中一份比较规范表格测试成功了哦~~~

清风竹-

梁笑燕 发表于 2024-3-13 15:55
1 与 3 都放上
还是 3 替代掉 1 呢？

是 3 替代掉 1 ，
仿照3 在2中加判断语句。
For i = m  To 3 step -1
          If arr(i, 1) <> "" Then
             If --Format(arr(i, 1), "yyyy") = n Then
                If s2 = 0 Then s2 = i
                Exit For
             End If
          End If
       Next

梁笑燕

是表示满足条件的初始行 与 结束行吧