值得你珍藏的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

看板：