admin管理员组

文章数量:1621658


'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

本文标签： 详解入门代码笔记Excel

版权声明：本文标题：Excel 之 VBA 入门学习代码详解笔记（2） 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dianzi/1728850156a1176573.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。