大家好，今天继续和大家分享VBA编程中常用的过程代码。1《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。4面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动也即将结束。
分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的过程代码。过程代码在这里讲解的语句非常简单单一，简单的语句组合起来就是一个复杂的过程，我们要认真掌握这些简单的过程，为我们复杂的工程服务。
VBA过程代码41：打开缩放对话框
Sub MyNZ()
Application.Dialogs(xlDialogZoom).Show
END SUB
代码的解析说明：上述代码过程在执行过程中，将打开缩放对话框，让用户选择缩放的大小并执行此缩放的大小。也可以用Application.Dialogs(256).Show
VBA过程代码42：激活字体对话框
Sub MyNZ()
Application.Dialogs(xlDialogActiveCellFont).Show
END SUB
代码的解析说明：上述代码过程在执行过程中，将打开"活动单元格字体"对话框字体设置对话框，让用户选择缩字体的一些设置。也可以用Application.Dialogs(476).Show
VBA过程代码43：打开另存对话框
Sub MyNZ()
MyFileName = Application.GetSaveAsFilename _
(InitialFileName:=".xlsm", _
fileFilter:="excel工作簿(*.xlsm),*.xlsm", _
Title:="数据备份")
If MyFileName <> "False" Then
ActiveWorkbook.SaveAs Filename:=MyFileName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
END SUB
代码的解析说明：上述代码过程在执行过程中，将打开另存为对话框，当用户选择好路径及录入文件名后进行保存。
VBA过程代码44：创建工作簿(Add方法)
Sub MyNZ()
MsgBox "将创建一个新工作簿."
Workbooks.Add
End Sub
代码的解析说明：上述代码过程在执行过程中，将利用ADD方法创建一个新的工作薄。
VBA过程代码45：创建工作簿，设置工作表
Sub MyNZ()
MsgBox "将创建一个新工作簿,并预设工作表格式."
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
ws.Name = "产品汇总表"
ws.Cells(1, 1) = "序号"
ws.Cells(1, 2) = "产品名称"
ws.Cells(1, 3) = "产品数量"
For i = 2 To 10
ws.Cells(i, 1) = i - 1
Next i
End Sub
代码的解析说明：上述代码过程在执行过程中，将利用ADD方法创建一个新的工作薄。将新建的sheets(1)工作表命名为"产品汇总表"，并在A3-C1单单元格写入"序号""产品名称" "产品数量",之后在A列从A2的单元格开始写入1到9
看板：
下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的"干货"，欢迎有需要的朋友联络（WeChat:NZ9668），分享。
1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。
2 《VBA数据库解决方案》是数据处理的利器；
3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。
4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动也即将结束。
