本文介绍用vba代码设置Excel全屏显示。工具/原料 ROG幻14 Windows11 Excel2016 方法/步骤 1 打开Excel，在开发工具栏里点击Visual Basic。2 在Visual Basic里插入一个新模块，创建一个sub过程。3 在sub过程中输入：Application.DisplayFullScreen = TrueWith ActiveWindow.DisplayHorizontalScrollBar = False.DisplayVertica...
如果需要用vba代码全屏显示excel工作表，那么可以这样操作。工具/原料 宏基新蜂鸟 win10 WPS表格 方法/步骤 1 点击顶部菜单开发工具下的VB编辑器。2 在编辑器窗口的顶部，点击插入模块。3 在代码编辑窗口输入以下代码，运行即可全屏显示excel工作表。Sub Macro1() Application.DisplayFullScreen = TrueEnd Su...
1 教程以新建的Excel为例来介绍如何通过VBA实现窗口全屏显示效果。2 鼠标右键单击Excel图标，然后选择打开命令即可打开该程序。3 当Excel窗口为活动窗口时，按下键盘上的Alt+F11键即可跳转到VBA界面。4 在VBA界面中，单击菜单栏中的插入，然后选择模块命令。5 在模块窗口复制粘贴以下代码：Sub 全屏显示()Application.D...
首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.DisplayFullScreen = True MsgBox "Excel窗口已全屏显示!下面将恢复默认的显示状态!"Application.DisplayFullScreen = False End Sub 按F5运行键运行...
下面是设置工作簿视图和窗口的一些VBA代码。 工作簿视图 可以选择使用普通视图、页面布局视图、分页预览视图来显示工作表。 普通视图 示例代码: '以普通视图显示活动窗口中的活动工作表 ActiveWindow.View = xlNormalView 分页预览 示例代码: '以分页预览显示活动窗口中的活动工作表 ...
1 教程以新建的Excel工作为例来介绍如何通过VBA实现全屏显示且隐藏水平滚动条功能。2 鼠标右键单击Excel图标，然后在弹出的右键菜单中选择打开命令即可。3 进入Excel界面之后，按下Alt+F11键即可进入VBA界面。4 单击VBA窗口菜单栏中的插入，然后选择模块命令。5 在模块窗口中复制粘贴以下代码：Sub 全屏显示且隐藏水平...
.DisplayFullScreen = True .CommandBars(1).Enabled = False .CommandBars("Full Screen").Controls(1).OnAction = "RestoreWindow" End With With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False ...
下面是设置工作簿视图和窗口的一些VBA代码。 工作簿视图 可以选择使用普通视图、页面布局视图、分页预览视图来显示工作表。 普通视图 示例代码: '以普通视图显示活动窗口中的活动工作表 ActiveWindow.View = xlNormalView 分页预览 示例代码: '以分...
StringSt = "显示滚动条"Sf = "隐藏滚动条"showDisplay btn, St, Sf'调用函数End Sub函数：Private Sub showDisplay(btn As ToggleButton, St, Sf)Select Case VBA.Right(btn.Name, 1)Case 1'全屏If btn.Value ThenApplication.DisplayFullScreen = Truebtn.Caption = StElseApplication.DisplayFullScreen = ...
因为看不到了,眼不见心不烦了。 那么同理,Excel是否可以这样呢? Sub全屏() Application.DisplayFullScreen= True WithActiveWindow .DisplayHorizontalScrollBar= False '水平滚动条 .DisplayVerticalScrollBar= False '垂直滚动条 .DisplayWorkbookTabs= False '标签 ...