如何改变Excel的显示位置
时间:2022-09-21 19:00:55
在Excel VBA中,如果需要改变Excel的显示位置以方便用户的操作,可通过VBA设置窗口与左边界和顶端的距离来改变Excel的显示位置。Excel2003可通过VBA宏改变Excel的显示位置。
改变Excel的显示位置的方法:
首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:
Sub Excel_Partner()
Dim myWState As Long, myTop As Double, myLeft As Double
With Application
myWState = .WindowState ‘获取当前的窗口状态
.WindowState = xlNormal ‘将窗口设置为一般显示
myTop = .Top ‘获取当前窗口的顶部位置
myLeft = .Left ‘获取当前窗口的左侧位置
.Top = .Top + 50 ‘设定窗口的顶部位置
.Left = 100 ‘设定窗口的左侧位置
If MsgBox("Excel窗口的显示位置已经改变!" & vbCrLf _
& "要恢复为原来的状态吗?", vbQuestion + vbYesNo) = vbYes Then
.Top = myTop ‘恢复窗口的顶部位置
.Left = myLeft ‘恢复窗口的左侧位置
.WindowState = myWState ‘恢复窗口的显示状态
End If
End With
End Sub
按F5运行键运行程序,即可改变Excel的显示位置。
标签:位置,改变,显示,窗口,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
word2013中如何去除空格处的点
2023-11-29 23:34:59
![](https://img.aspxhome.com/file/2023/5/18725_0s.jpg)
excel2003一列的减法计算教程
2023-06-09 04:57:51
拖到C11单元格 见下图 这时你会发现:每一行的A列数据减去B列数据的差值都列在了同行的C列中 见下图 除此之外
2022-03-25 08:32:48
excel里面怎么设置行间距?excel行间距设置操作教程
2022-11-19 23:11:12
![](https://img.aspxhome.com/file/2023/8/39738_0s.jpg)
excel2003加密的方法教程
2022-01-27 14:15:08
2007excel表格合并单元格快捷键是什么
2022-03-02 12:49:28
Excel如何统计是否加班?Excel加班及加班日期自动生成方法
2023-04-08 05:51:02
![](https://img.aspxhome.com/file/2023/2/40542_0s.jpg)
excel表格做除法的方法步骤详解
2022-04-05 01:02:28
如何在Excel2010批量求和的应用
2023-06-12 07:44:35
![](https://img.aspxhome.com/file/2023/0/37810_0s.jpg)
Word 表格怎么调整行高、列宽和间距
2023-09-25 02:09:53
![](https://img.aspxhome.com/file/2023/3/34933_0s.jpg)
excel 判断整数的方法,以及如何筛选整数的案例
2023-06-01 18:05:55
![](https://img.aspxhome.com/file/2023/8/a155108_0s.gif)
Win10更新KB5003637后出现了任务栏闪烁、屏幕抖动怎么办?
2023-12-14 06:12:40
![](https://img.aspxhome.com/file/2023/4/51364_0s.jpg)
word 中如何插入“x/y”样式的页码
2023-02-03 19:00:00
![](https://img.aspxhome.com/file/2023/1/35581_0s.png)
11个实用Word技巧
2022-08-03 16:23:00
![](https://img.aspxhome.com/file/2023/8/24438_0s.gif)
excel怎么设置表头斜线?excel设置斜线表头方法介绍
2022-03-25 11:09:27
![](https://img.aspxhome.com/file/2023/7/42057_0s.jpg)
excel画一只简笔画小山羊
2022-09-23 01:53:48
![](https://img.aspxhome.com/file/2023/7/41487_0s.jpg)
Win10 Office免费版怎么下载?Office安装使用教程
2023-08-08 06:46:16
![](https://img.aspxhome.com/file/2023/8/15478_0s.jpg)
Word文档怎么修改或删除样式
2023-07-16 19:05:55
![](https://img.aspxhome.com/file/2023/5/31895_0s.png)
Word文档关闭时不提示保存怎么办
2022-06-28 17:35:26
这个IF函数计算题必须要掌握! 考试难点!
2023-06-03 02:43:18
![](https://img.aspxhome.com/file/2023/7/a157367_0s.png)