1.VBA 基础

'修改标题
sub SetCaption()
　　Application.Caption = "修改Excel标题内容"    '总窗口标题
　　ActiveWindow.Caption = vbNullString        '当前窗口标题（开多个Excel文档，每个文档为一个窗口）
end sub


'窗口最大化
sub MaximizedWin()
　　Application.WindowState = xlMaximized      '总窗口标题 最大化
　　ActiveWindow.WindowState = xlMaximized     '当前窗口最大化　　　　xlMaximized 最大化；  xlNormal 正常；  xlMinimized 最小化。     

end sub        

Application.DisplayFullScreen = True     '全屏显示（隐藏标题栏、工具栏）
Application.Visible = False              '隐藏Excel主窗口（可以同时显示其他窗体）
Application.Left = 1000                  '从屏幕左边界至Excel主窗口左边界的距离（只有当Application.WindowState=xlNormal时才可使用）
Application.Top = 1000                   '从屏幕顶端到Excel主窗口顶端的距离    （同上）
'隐藏主窗口在任务栏中不会显示，而使用Left或Top则Excel仍会在任务栏中显示应用程序窗口按钮。

'限定工作窗口大小
sub SetGameWindow()
　　Dim UsedW as Single, UsedH as Single
　　Dim ViewRange as Range
　　Set ViewRange = Range("A1:I9")
　　With ActiveWindow
　　　　.DisplayHeadings = False             '不显示行列号
　　　　.DisplayHorizontalScrollBar = False  '不显示水平滚动条
　　　　.DisplayVerticalScrollBar = False    '不显示垂直滚动条
　　　　.DisplayWorkbookTabs = False         '不显示工作标签
　　　　.WindowState = xlNormal
　　　　UsedW = .Width - .UsableWidth        '获得窗口左右边框宽度
　　　　UsedH = .Height - .UsableHeight      '获得窗口上下边框（含标题栏）高度
　　　　.Width = ViewRange.Width + UsedW     '设定窗口宽度（固定单元格+边框）
　　　　.Height = ViewRange.Height + UsedH   '设定窗口高度（固定单元格+边框+标题栏）
　　　　.ScrollRow = 1                       '滚动窗口到第1行
　　　　.ScrollColumn = 1                    '滚动窗口到第1列
　　　　.ActiveSheet.ScrollArea = ViewRange.Address　　'设定允许滚动区域
　　　　.EnableResize = False                '禁止调整窗口大小
　　end with
end sub