導(dǎo)讀【分享成果，隨喜正能量】生活中，有人給予幫助，那是幸運，沒人給予幫助，那是命運。我們要學(xué)會在幸運青睞自己的時候?qū)W會感恩，在命運磨練自己的時候?qū)W會堅韌。。正如....

【分享成果，隨喜正能量】生活中，有人給予幫助，那是幸運，沒人給予幫助，那是命運。我們要學(xué)會在幸運青睞自己的時候?qū)W會感恩，在命運磨練自己的時候?qū)W會堅韌。。

正如我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高數(shù)據(jù)的準(zhǔn)確度。VBA系列教程共十套，我已經(jīng)全部完成，技術(shù)工具系列在不斷推出。

對于學(xué)員而言，如果您是入門階段可以打包選擇7.1.3.9教程，第7是入門，第1是入門后的提高，第3字典是必備的VBA之精華，第9是實用的典型案例講解；如果您有了一定的VBA基礎(chǔ)可以根據(jù)自己的需要，進行教程的選擇及工具的利用，提供的程序文件就如一座大型的代碼庫支持著大家的工作；工具系列共分兩類：一類是容易些的YZ系列，一類是較難些的NZ系列，這些工具是大家學(xué)習(xí)VBA的好幫手，其中NZ系列工具還有專門版本資料，提供給已按部就班學(xué)習(xí)完我所有教程的學(xué)員。

VBA是面向?qū)ο缶幊痰恼Z言，博大精深，這里我會分享些一些有用的VBA案例，暫時將這部分命名為《VBA精選案例代碼（漢英）》和我的教程相互補充。有很多朋友咨詢英語和VBA的關(guān)系，為了大家更好的領(lǐng)會和掌握VBA中用到的一些英語，這些案例中，我會用英語和漢語同時發(fā)布。今日的內(nèi)容：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

現(xiàn)在，假設(shè)您要隱藏工作簿中除活動工作表之外的所有工作表。此宏代碼將為您執(zhí)行此操作.

Now, lets 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實踐經(jīng)驗，全部濃縮在下面的各個教程中：

【分享成果，隨喜正能量】禮贊、保佑每一位有緣眾生禍散福生，健康平安，吉祥如意，財運亨通。心里包藏什么都有，要用時就有，沒用時就沒有。這就是空即是色、色即是空。