求助大神如何自动选择打印区域

woshifanlei · 发表于 2020-4-20 20:09

本帖最后由 woshifanlei 于 2020-4-20 20:54 编辑

根据表格，如何黄色底纹数字为1，自动设置序号为1的为打印区域

比如 N1=1 打印区域自动设置为A3:M23
N1=5 打印区域自动设置为A24:M1041

awp57 · 发表于 2020-4-20 20:24

没明白，你模拟一下结果

awp57 · 发表于 2020-4-20 20:26

没明白，你模拟一下结果

woshifanlei · 发表于 2020-4-20 20:30

awp57 发表于 2020-4-20 20:26
没明白，你模拟一下结果

比如： N1=1 打印区域自动识别为A3:M23
N1=5 打印区域自动识别为A24:M1041 以此类推

woshifanlei · 发表于 2020-4-20 20:33

awp57 发表于 2020-4-20 20:24
没明白，你模拟一下结果

比如 N1=1 打印区域自动设置为A3:M23
N1=5 打印区域自动设置为A24:M1041

网海遨游 · 发表于 2020-4-20 21:21

采用隐藏行与列的方法,不知合要求不? 可能要花几秒时间,要耐心一点点.

woshifanlei · 发表于 2020-4-20 21:29

网海遨游发表于 2020-4-20 21:21
采用隐藏行与列的方法,不知合要求不? 可能要花几秒时间,要耐心一点点.

您的代码我看不懂能否解释一下下

网海遨游 · 发表于 2020-4-20 21:57

本帖最后由网海遨游于 2020-4-20 21:58 编辑

Sub Test()
Application.DisplayAlerts = False '禁警告
Application.ScreenUpdating = False '禁屏幕刷新
With Sheets("泰兴")
      If MsgBox("您_确定要打印？", "36", "温馨提示……") = 7 Then '点击取消,就....
         .Columns("a:z").Hidden = False '取消列隐藏
         .Rows("3:60000").Hidden = False '取消行隐藏
         Exit Sub '退出程序
      End If
      '如果点击确定,将执行下面代码
      .Columns("a:z").Hidden = False '取消列隐藏
      .Rows("3:60000").Hidden = False '取消行隐藏
      r = .Cells(Rows.Count, 1).End(3).Row '第1列有数据最大行号
      .Columns("n:u").Hidden = True '隐藏列
      If Application.CountIf(Sheets("泰兴").[n3:n60000], Sheets("泰兴").[n1].Value) = 0 Then '如果没有此数据...
         MsgBox "没有适合数据,程序将退出！", 16, "温馨提示……" '弹出提示
         Exit Sub '退出程序
      End If
      For i = 3 To r '行循环
         If .Cells(i, "n").Value <> .[n1].Value Then '判断N列其他行的值,与N1值是否相等,如果不相等,就....
            .Rows(i).Hidden = True '隐藏行
         End If
      Next i
End With
Call aa '调用下面代码
MsgBox "OK，完成！！！", 48, "温馨提示……" '弹出完成提示
Application.DisplayAlerts = True '允许弹出警告
Application.ScreenUpdating = True '允许屏幕刷新
End Sub
Function aa()
With Sheets("泰兴")
      .PrintOut '打印未隐藏区域

      '以下打印完成,恢复原样
      .Columns("a:z").Hidden = False '取消列隐藏
      .Rows("3:60000").Hidden = False '取消行隐藏
End With
End Function

woshifanlei · 发表于 2020-4-20 22:11

网海遨游发表于 2020-4-20 21:57
Sub Test()
Application.DisplayAlerts = False '禁警告
Application.ScreenUpdating = False ' ...

感谢分享
收益良多

awp57 · 发表于 2020-4-20 22:25

本帖最后由 awp57 于 2020-4-21 20:34 编辑

woshifanlei 发表于 2020-4-20 22:11
感谢分享
收益良多

复制代码

		自动登录	找回密码
密码			免费注册

[2007] 求助大神如何自动选择打印区域