1、打开excel程序,新建一个空白excel表格。
2、按Alt+F11快捷键,打开Microsoft Visual Basic for Applications宏代码编辑器。
3、在VBA编辑器左侧"工程-VBAProject"列表中,右键"插入"-"模块"。
4、在右侧新建的"模块1"中输入以下代码: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 LongConst HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Sub 窗口总在最前面()SetWindowPos Application.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVEEnd SubSub 恢复()SetWindowPos Application.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVEEnd Sub
5、保存,并关闭VBA窗口,返回EXCEL窗口。
6、使用方法:将窗口置顶:在excel窗口下,按Alt+F8,弹出宏对话框,选择"窗口总在字斤谯噌最前面",点"执行"。恢复:在excel窗口下,按Alt+F8,弹出宏对话框,选择"恢复",点"执行"。