Excel 之 VBA 入门学习代码详解笔记（2）

'2-1激活窗口(Activate 方法)
Sub SelectWindow()
	Dim iWin As Long, i As Long, bWin '定义i为long
	 MsgBox "依次切换已打开的窗口"
	 iWin = Windows.Count '工作表的数量
	 MsgBox "您已打开的窗口数量为：" & iWin
	For i = 1 To iWin
		Windows(i).Activate
		 bWin = MsgBox("您激活了第 " & i & "个窗口，还要继续吗？", vbYesNo)
		 If bWin = vbNo Then Exit Sub
		 Next i
End Sub
'2-2窗口状态(WindowState 属性)
Sub testWindow()
	 '测试 Excel 应用程序窗口状态
	 MsgBox "应用程序窗口将最大化"
	 Application.WindowState = xlMaximized
	 Call testWindowState '调用子函数 xlMaximized
	 MsgBox "应用程序窗口将恢复正常"
	Application.WindowState = xlNormal
	 MsgBox "应用程序窗口已恢复正常"
	 '测试活动工作簿窗口状态
	 MsgBox "当前活动工作簿窗口将最小化"
	 ActiveWindow.WindowState = xlMinimized
	 Call testWindowState
	 MsgBox "当前活动工作簿窗口将最大化"
	 ActiveWindow.WindowState = xlMaximized
	 Call testWindowState
	 MsgBox "当前活动工作簿窗口将恢复正常"
	 ActiveWindow.WindowState = xlNormal
	 Call testWindowState
	 MsgBox "应用程序窗口将最小化"
	 Application.WindowState = xlMinimized
	 Call testWindowState
End Sub
'*********************************************************
Sub testWindowState()
	 Select Case Application.WindowState
		 Case xlMaximized: MsgBox "应用程序窗口已最大化"
		 Case xlMinimized: MsgBox "应用程序窗口已最小化"
		 Case xlNormal:
		 Select Case ActiveWindow.WindowState
		 Case xlMaximized: MsgBox "当前活动工作簿窗口已最大化"
		 Case xlMinimized: MsgBox "当前活动工作簿窗口已最小化"
		 Case xlNormal: MsgBox "当前活动工作簿窗口已恢复正常"
		 End Select
	  End Select
End Sub
'2-3 切换显示工作表元素
2-3-1切换显示/隐藏行列标号
Sub testDisplayHeading()
	 MsgBox "切换显示/隐藏行列标号"
	ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings '行列头的标记号
End Sub
2-3-2"切换显示/隐藏网格线"
Sub testDisplayGridline()
	 MsgBox "切换显示/隐藏网格线"
	 ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
End Sub
2-3-3 切换显示/隐藏水平滚动条
Sub DisplayHorizontalScrollBar()
	 MsgBox "切换显示/隐藏水平滚动条"
	ActiveWindow.DisplayHorizontalScrollBar = _
	Not ActiveWindow.DisplayHorizontalScrollBar
	'DisplayVerticalScrollBar 属性将用来设置垂直滚动条。
End Sub
2-3-4切换显示/隐藏水平和垂直滚动条
Sub DisplayScrollBar()
	 MsgBox "切换显示/隐藏水平和垂直滚动条"
	 Application.DisplayScrollBars = Not (Applica