excel根据条件定义打印区域

mile0823

求助大神，我想根据单元格的内容来定义打印区域eg. 当A1=1时，打印A2:E13区域
     当A1=2时，打印A16:E27区域

谢谢啦！！！

sandays

A1=3时呢？

mile0823

sandays 发表于 2019-5-10 09:32
A1=3时呢？

可以不用考虑A1=3的时候，因我只有两个区域，所以A1只能1或者2

sandays

那就随便先定义一个打印区域，然后修改名称公式为=IF($A$1=1,$A$2:$E$13,$A$16:$E$27) 就结了

huanglicheng

这个用VBA更好控制  供参考

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$1" Then
   
3.         Dim mPrintArea$
   
4.         Select Case Range("A1").Value
   
5.             Case 1: mPrintArea = "$A$2:$E$13"
   
6.             Case 2: mPrintArea = "$A$16:$E$27"
   
7.         End Select
   
8.         ActiveSheet.PageSetup.PrintArea = mPrintArea
   
9.         ActiveSheet.Print
   
10.     End If
    
11. End Sub
    

复制代码

mile0823

sandays 发表于 2019-5-10 09:36
那就随便先定义一个打印区域，然后修改名称公式为=IF($A$1=1,$A$2:$E$13,$A$16:$E$27) 就结了

非常感谢!!!!!!

mile0823

huanglicheng 发表于 2019-5-10 09:38
这个用VBA更好控制  供参考

去掉ActiveSheet.Print这个语句后运行很完美，非常感谢大神

lijian1512

sandays 发表于 2019-5-10 09:36
那就随便先定义一个打印区域，然后修改名称公式为=IF($A$1=1,$A$2:$E$13,$A$16:$E$27) 就结了

很好用 还有个神奇的事  把这个公式粘贴到单元格 会把打印区域的数据显示在这个单元格后面 但如果用IFs就不会。