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

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

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

代碼的解析說明：本程序?qū)旬?dāng)前工作簿進行復(fù)制并以與當(dāng)前工作簿相同的名稱保存在D盤中。其中，使用了Kill方法來刪除已存在的工作簿。

VBA過程代碼77：在程序執(zhí)行過程中使出現(xiàn)的警告框不顯示

Sub MyNZ()

Application.DisplayAlerts=False

………………………….

Application.DisplayAlerts=true

End sub

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

VBA過程代碼78：關(guān)閉屏幕刷新

Sub MyNZ()

Application.ScreenUpdating=False

………………………….

Application.ScreenUpdating=True

End Sub

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

VBA過程代碼79：獲取工作表的行數(shù)及當(dāng)前工作表中已使用的行數(shù)

Sub MyNZ()

Msgbox Rows.Count

Msgbox ActiveSheet.UsedRange.Rows.Count

End Sub

代碼的解析說明：上述代碼在在程序執(zhí)行過程返回工作表的行數(shù)及當(dāng)前工作表中已使用的行數(shù)

VBA過程代碼80：將當(dāng)前工作表NZ移至工作表的最后

Sub MyNZ()

Sheets(“NZ”).SELECT

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

End Sub

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

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

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

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

第二套：《VBA數(shù)據(jù)庫解決方案》是PDF教程。數(shù)據(jù)庫是數(shù)據(jù)處理的利器，對于中級人員應(yīng)該掌握這個內(nèi)容了。

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

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。