作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
wise |
Q：如何编写让Excel的窗口保持在最前端的VBA代码？
A：ALT+F11→插入模块→输入以下代码:
- Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
- Private Const HWND_TOP& = 0
- Private Const HWND_BOTTOM& = 1
- Private Const HWND_TOPMOST& = -1
- Private Const HWND_NOTOPMOST& = -2
- ' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
- Private Const SWP_NOSIZE& = &H1
- ' 保持窗口大小
- Private Const SWP_NOMOVE& = &H2
- ' 保持窗口位置
- Private Sub TOPMOST()
- ' 将窗口设为总在最前
- SetWindowPos Application.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
- End Sub
- Private Sub NOTOPMOST()
- ' 取消窗口总在最前
- SetWindowPos Application.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
- End Sub
|
2楼
じ☆潴の︵ゞ |
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一