电子表格VBA编程计算速成2(4)

第一章 电子表格专业函数编程第二章 学习VBA编程基础第三章 常用VBA编程代码语句第四章 电子表格计算编程

Dim oldcaption as string '用oldCaption变量保存打开本工作簿前的EXCEL标题

Sheet1.Activate ' 激活工作表1

With ActiveWindow ' 以下是对当前活动窗口的操作 .DisplayGridlines = False ' 不显示网格线

.DisplayHeadings = False ' 不显示行号列标

.DisplayOutline = False ' 不显示大纲视图

.DisplayZeros = False ' 隐藏窗口0值★

.DisplayHorizontalScrollBar = False ' 隐藏水平滚动条 .DisplayVerticalScrollBar = False ' 隐藏垂直滚动条

.DisplayWorkbookTabs = False ' 隐藏工作表标签

.WindowState = xlMaximized ' 工作簿打开时最大化 End With '结束针对当前活动窗口的操作 ActiveWorkbook.DisplayDrawingObjects = xlHide ' 隐藏绘图工具栏 With Application

.DisplayFormulaBar = False ' 隐藏公式编辑栏

.DisplayStatusBar = False ' 隐藏状态栏

.ShowWindowsInTaskbar = False ' 隐藏窗口任务栏工具栏 End With

http://www.77cn.com.cnmandBars("Standard").Visible = False '隐藏标准工具栏

http://www.77cn.com.cnmandBars("Formatting").Visible = False '隐藏格式工具栏