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
看板:
联系客服