暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / VBA禁用分页符及隐藏除活动工作表之外的所有工作表

VBA禁用分页符及隐藏除活动工作表之外的所有工作表

VBA语言専攻 2022-08-03
30
【分享成果，随喜正能量】生活中，有人给予帮助，那是幸运，没人给予帮助，那是命运。我们要学会在幸运青睐自己的时候学会感恩，在命运磨练自己的时候学会坚韧。。
正如我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。VBA系列教程共十套，我已经全部完成，技术工具系列在不断推出。
对于学员而言，如果您是入门阶段可以打包选择7.1.3.9教程，第7是入门，第1是入门后的提高，第3字典是必备的VBA之精华，第9是实用的典型案例讲解；如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择及工具的利用，提供的程序文件就如一座大型的代码库支持着大家的工作；工具系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列，这些工具是大家学习VBA的好帮手，其中NZ系列工具还有专门版本资料，提供给已按部就班学习完我所有教程的学员。
VBA是面向对象编程的语言，博大精深，这里我会分享些一些有用的VBA案例，暂时将这部分命名为《VBA精选案例代码（汉英）》和我的教程相互补充。有很多朋友咨询英语和VBA的关系，为了大家更好的领会和掌握VBA中用到的一些英语，这些案例中，我会用英语和汉语同时发布。今日的内容：VBA禁用分页符及隐藏除活动工作表之外的所有工作表

第三章 VBA打印代码示例

VBA Printing Codes Examples

6  禁用分页符Disable Page Breaks


Sub nzDisablePageBreaks() '禁用分页符
    Dim wb As Workbook
    Dim wks As Worksheet
    Application.ScreenUpdating = False
    For Each wb In Application.Workbooks
        For Each Sht In wb.Worksheets
            Sht.DisplayPageBreaks = False
        Next Sht
    Next wb
    Application.ScreenUpdating = True
End Sub


若要禁用分页符，请使用此代码。它只会从所有打开的工作簿中禁用分页符。
To disable page breaks use this code. It will simply disable page breaks from all the open workbooks.

第四章 工作表代码

Worksheet Codes

1  隐藏除活动工作表之外的所有工作表Hide all but the Active Worksheet

Sub nzHideWorksheet() '隐藏除活动工作表之外的所有工作表
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub

现在，假设您要隐藏工作簿中除活动工作表之外的所有工作表。此宏代码将为您执行此操作.
Now, let's say if you want to hide all the worksheets in your workbook other than the active worksheet. This macro code will do this for you.




【分享成果，随喜正能量】      

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】礼赞、保佑每一位有缘众生祸散福生，健康平安，吉祥如意，财运亨通。心里包藏什么都有，要用时就有，没用时就没有。这就是空即是色、色即是空。


分页符vbavba字典
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论