分享成果，随喜真能量（这是我视频教程的开场白）。大家好，今天继续和大家分享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讲的课程，开始第二级阶段的优惠期。