2024年3月24日发(作者：)

在使用Excｅl办公时我们需要让Eｘcｅl窗口总是显示在最前面而不被别的窗口挡住，虽

然Ｅxcel并没有提供这样的功能，但可以用下面的方法:

在VBA中使用APＩ函数“SetWｉndowPos”可以让Excel窗口总在最前面。步骤

如下:

1、新建一个工作簿,按Ａlｔ+Ｆ１１,打开VＢA编辑器。

2、单击菜单“插入→模块”，在右侧的代码窗口中粘贴下列代码:

Ｄeclarｅ Ｆunction SeｔWiｎdｏwPｏｓ Ｌib "uｓeｒ32" （BｙVal hｗn

ｄ Aｓ Long, _

ByVal hwndIｎseｒtAfter As Lonｇ, ByVａｌ x Ａs Long， ＢｙVal

y As Ｌｏng， _

ﻫ

BｙＶal ｃx Aｓ Long, ByVal cy As Lｏng， ByVa

ｌ ｗＦlaｇs Ａs Long） As Long

Ｃonst HWND＿TOPMOＳT ＝ -１

Ｃｏｎst HＷＮD＿NOTOPMＯST = -２

ﻫ

Conｓt SＷP＿ＮＯSＩZE = ＆H1

ﻫ

Ｃonst

ＳWP_ＮＯMOVE = &H2

Sub 窗口总在最前面（)

SetWindoｗPos Apｐlｉcaｔion.ｈｗnd, ＨWND_TOPMOSＴ, ０, 0, ０, ０,

SWP_NOＳIZＥ Or SWP＿NOMＯＶE

ﻫ

Ｅnd Sｕb

ﻫ

Sub 恢复()

ＳetWindｏwPoｓ Apｐｌicａtion．ｈwnd， HWND_NＯTOPMOST, ０, 0, 0, 0,

SＷP＿NOSIＺE Ｏr SＷP_NOＭＯVE

ﻫ

End Sub

关闭ＶBA编辑器。

3、在Exｃel界面工作表界面中按快捷键Alt+Ｆ８，打开“宏”对话框，选择

宏名“窗口总在最前面”，单击“执行”按钮即可让Excel窗口总在最前面。

4、选择宏名“恢复”并运行将取消窗口总在最前面的设置。