单元格内每打印一页变换一个日期。

lq-1600

做了一个完整的。
修改了代码中的's'错误。
样式中农历、星期用了公式和格式。

坠入迷途

lq-1600 发表于 2023-2-24 21:03
做了一个完整的。
修改了代码中的's'错误。
样式中农历、星期用了公式和格式。

打印预览正常使用了，
可以帮忙写个生成吗？
点生成按钮，新建一个工作簿，这个工作薄内就是从起始日期到截止日期的工作表。一个日期对应一个工作表，表名为公历日期。
比如现在2023年1月1日，2023年1月2日，2023年1月3日，
点生成后新建一个工作簿，里面有3个表，名字依次2023年1月1日，2023年1月2日，2023年1月3日。

3190496160

lq-1600 发表于 2023-2-24 20:03
PrintOut  好厉害 浪费我几张纸

你觉得是因为别人义务帮你而浪费了你的纸张？？

lq-1600

3190496160 发表于 2023-2-24 22:32
你觉得是因为别人义务帮你而浪费了你的纸张？？

我不是楼主，我只想学习一下VBA,谁知道学习是有代价的。

lq-1600

我是不是太无聊了，大半夜不睡觉帮你改程序，切记不要删除工作表里面的”副本“。
能力有限，不太会用 copy 命令去设置参数，让工作表在复制的时候不复制按钮。
所以只能折中这样了，建立一个副本来复制，命令行如下：
Sheets("副本").Copy After:=Sheets(Sheets.Count)


最后重要事情说三遍。
切记不要删除工作表里面的”副本“！
切记不要删除工作表里面的”副本“！
切记不要删除工作表里面的”副本“！


里面有个宏2没有用的，测试留下的。
英文太差不会起名字，以后打算用中文写。

坠入迷途

lq-1600 发表于 2023-2-25 00:06
我是不是太无聊了，大半夜不睡觉帮你改程序，切记不要删除工作表里面的”副本“。
能力有限，不太会用 cop ...

完全可以使用了，谢谢你的帮助。