分享成果，隨喜真能量（這是我視頻教程的開場白）。大家好，今天繼續和大家分享VBA編程中常用的簡單“積木”過程代碼第76-80講，內容是：保存當前工作簿的副本到其它位置備份；不顯示警告框；關閉屏幕刷新；獲取工作表的行數及當前工作表中已使用的行數；將當前工作表NZ移至工作表的最后等內容。

VBA過程代碼76：保存當前工作簿的副本到其它位置備份工作簿。

Sub MyNZ()

Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean

If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub

Set awb = ActiveWorkbook

If awb.Path = "" Then

Application.Dialogs(xlDialogSaveAs).Show

Else

BackupFileName = awb.Name

OK = False

On Error GoTo NotAbleToSave

If Dir("D:/" & BackupFileName) <> "" Then

Kill "D:/" & BackupFileName

End If

With awb

Application.StatusBar = "正在保存工作簿..."

.Save

Application.StatusBar = "正在備份工作簿..."

.SaveCopyAs "D:/" & BackupFileName

OK = True

End With

End If

NotAbleToSave:

Set awb = Nothing

Application.StatusBar = False

If Not OK Then

MsgBox "備份工作簿未保存!", vbExclamation, ThisWorkbook.Name

End If

End Sub

代碼的解析說明：本程序將把當前工作簿進行復制并以與當前工作簿相同的名稱保存在D盤中。其中，使用了Kill方法來刪除已存在的工作簿。

VBA過程代碼77：在程序執行過程中使出現的警告框不顯示

Sub MyNZ()

Application.DisplayAlerts=False

………………………….

Application.DisplayAlerts=true

End sub

代碼的解析說明：上述代碼在在程序執行過程中使出現的警告框不顯示，注意在最后一定要恢復顯示警告框。

VBA過程代碼78：關閉屏幕刷新

Sub MyNZ()

Application.ScreenUpdating=False

………………………….

Application.ScreenUpdating=True

End Sub

代碼的解析說明：上述代碼在在程序執行過程中關閉屏幕刷新，這樣可以加快程序的運行速度。

VBA過程代碼79：獲取工作表的行數及當前工作表中已使用的行數

Sub MyNZ()

Msgbox Rows.Count

Msgbox ActiveSheet.UsedRange.Rows.Count

End Sub

代碼的解析說明：上述代碼在在程序執行過程返回工作表的行數及當前工作表中已使用的行數

VBA過程代碼80：將當前工作表NZ移至工作表的最后

Sub MyNZ()

Sheets(“NZ”).SELECT

ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

End Sub

代碼的解析說明：將當前工作表NZ移至工作表的最后,先對工作表“NZ”進行選擇，然后移動到最后。

越簡單的事物往往越容易理解，簡單的過程組合起來就是一個復雜的過程，我們要先認真掌握這些簡單的過程，才能在可以為我們復雜的工程服務。

另外：下面是我根據自己20多年的VBA實際利用經驗，編寫的四部教程，這些是較大塊的“積木”，可以獨立的完成某些或者某類系統的過程，歡迎有需要的朋友聯絡（WeChat:NZ9668）分享。利用這些可以提高自己的編程效率。

第一套：《VBA代碼解決方案》是PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點。是初學及中級以下人員必備的資料。

第二套：《VBA數據庫解決方案》是PDF教程。數據庫是數據處理的利器，對于中級人員應該掌握這個內容了。

第三套：《VBA數組與字典解決方案》是PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平的必備資料。

第四套：《VBA代碼解決方案》的視頻教程。目前正在錄制，現在推出“每天20分鐘，半年精進VBA”活動，越早參與，回饋越多。現在第一冊48講內容已經錄制完成。錄制到第二冊64講的課程，開始第二級階段的優惠期。

總結

以上是生活随笔為你收集整理的vba显示正在加载_简单、易用的VBA过程积木代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。