vba常用代码注释（值得你珍藏的VBA编程常用语句）

分享成果，随喜真能量。大家好，今天继续和大家分享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讲内容已经录制完成，第一阶段的优惠活动也即将结束。

,