|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 网海遨游 于 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
|
|