Excel中VBA编程学习笔记（六）--Application对象

1、基本属性设置

Sub main()

   Application.ScreenUpdating = False '禁止屏幕更新

   Application.ScreenUpdating = True '允许屏幕更新

   Application.DisplayAlerts = False '禁止出现提示对话框

   Application.DisplayAlerts = True '允许出现提示对话框

Application.DisplayFullScreen = True     ‘1.     设置EXCEL为全屏模式

Application.Visible = False     ‘隐藏excel应用

Application.EnableEvents = False '禁用对象事件(不会触发任何excel事件)

Application.Interactive = False  '禁止用户干预宏代码的执行(禁止所有的输入和鼠标操作)

End Sub

注：禁用对象事件后，在代码结束位置应该回复该属性为true.

2、显示活动打印机名称

Private Sub test()

    MsgBox ("当前活动打印机名为：" & Application.ActivePrinter)

End Sub

3、调用另存为对话框

Private Sub test()

    Application.Dialogs(xlDialogSaveAs).Show

End Sub

 

Sub test()

    Filename = "新的工作薄"

    Application.Dialogs(xlDialogSaveAs).Show arg1:=Filename & ".xls" '初始化保存的文件名

End Sub

 

4、检查并显示编辑栏

Private Sub test()

    If Application.DisplayFormulaBar = False Then

        Application.DisplayFormulaBar = True

    End If

End Sub

5、显示或隐藏Excel的滚动条

Private Sub test()

    If Application.DisplayScrollBars = False Then

        Application.DisplayScrollBars = True

    Else

        MsgBox ("已显示滚动栏")

    End If

End Sub

6、设置Excel窗口的大小和位置

Sub test()

    With Application

        .Left = 10

        .Top = 0