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

梁笑燕

ActiveSheet.PageSetup.PrintArea = "$A$" & [E1] & ":$F$" & [F1] '打印区域


活动表 单张SHEETGE 可以实现
但是多张SHEET 表E1 F1的数字各不同的情况下
.PrintArea = "$A$" & [E1] & ":$F$" & [F1] '打印区域  VBA目前这样它只会根据第一张的E1 F1 的数量全部批量设置了打印区域了

请大家帮看看 可以每张VBA设置成不同的打印区域吗？
谢谢！！

清风竹-

请参考一下。

梁笑燕

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

哇 太感谢了 ！！

会这些好棒呀 羡慕
我去另外一张表去看看 看我能否灵活应用

梁笑燕

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

这句不知是什么意思及用意
我基本不会写
只会套用

清风竹-

梁笑燕 发表于 2024-3-10 17:57
这句不知是什么意思及用意
我基本不会写
只会套用

dim声明变量。变量 sh 声明为工作表数据类型。s1和s2没有写数据类型，是可变型数据类型(s1、s2也可以省略不写)。m、n、i已经省略。

梁笑燕

清风竹- 发表于 2024-3-10 18:38
dim声明变量。变量 sh 声明为工作表数据类型。s1和s2没有写数据类型，是可变型数据类型(s1、s2也可以省略 ...

主界面变了位置

分sheet第一行删了
这几个代码关键位置改了应该可以了吧

清风竹-

梁笑燕 发表于 2024-3-10 23:53
主界面变了位置

分sheet第一行删了

是这样改。运行效果好就可以了。

梁笑燕

清风竹- 发表于 2024-3-11 12:02
是这样改。运行效果好就可以了。

谢谢
本来年份是想着用辅助列的
这下更省事了

梁笑燕

清风竹- 发表于 2024-3-11 12:02
是这样改。运行效果好就可以了。

谢谢你的回答！！！   好及时的回复

问题拓展 拓展问题
还是  
一、设置打印区域随数据自动扩展

[color=rgba(0, 0, 0, 0.9)]有没有当设置好的打印区域当有新的数据增加的时候，又要重新设置打印区域，十分地麻烦，今天给大家教一个比较简单的方法。

[color=rgba(0, 0, 0, 0.9)]

[color=rgba(0, 0, 0, 0.9)]如下图所示，要打印的A1:H11区域的内容。如下图所示：

[color=rgba(0, 0, 0, 0.9)]

[color=rgba(0, 0, 0, 0.9)]Step-1:选中区域A1:H11单元格区域，然后单击【页面布局】-【打印区域】-【设置打印区域】，如下图所示：

[color=rgba(0, 0, 0, 0.9)]

[color=rgba(0, 0, 0, 0.9)]

[color=rgba(0, 0, 0, 0.9)]Step-2:单击【公式】-【名称管理器】，然后在名称管理器里看一个已经生成的名称，然后单击【编辑】，将公式修改为：=INDIRECT("A1:H"&match("座",Sheet2!$B:$B))，然后单击【确定】，如下图所示：

[color=rgba(0, 0, 0, 0.9)]注：如果mact函数判断的区域为数值型的则使用macth(9e+307,……），如果是文本型请使用macth(“座”,……），以上两个公式都是判断最后一条记录的意思。

[color=rgba(0, 0, 0, 0.9)]

[color=rgba(0, 0, 0, 0.9)]

[color=rgba(0, 0, 0, 0.9)]

梁笑燕

清风竹- 发表于 2024-3-10 18:38
dim声明变量。变量 sh 声明为工作表数据类型。s1和s2没有写数据类型，是可变型数据类型(s1、s2也可以省略 ...

我好像不错过了什么
今天点了编辑删了张图片 重新审核了

有提示说你回复了 但是没看到内容