如何通过Excel VBA让已创建的弹窗始终保持置顶？

Excel自带的窗口对象没有直接提供置顶属性，要实现窗口始终置顶，需要调用Windows系统API来完成，具体步骤如下：

1. 声明Windows API函数 #

在VBA模块的最顶部（所有过程之外）添加以下API声明，兼容32位和64位Excel：

#If VBA7 Then
    Declare PtrSafe Function SetWindowPos Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
    Declare Function SetWindowPos Lib "user32.dll" (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
#End If

' 置顶相关常量
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

2. 整合到窗口创建代码中 #

修改你现有的代码，添加置顶逻辑：

Sub CreateTopmostWindow()
    Dim targetWindow As Window
    Dim hwnd As Variant
    
    ' 创建新窗口
    Set targetWindow = ActiveWindow.NewWindow
    
    ' 设置窗口尺寸和位置
    With targetWindow
        .WindowState = xlNormal
        .Top = Application.UsableWidth * 0.2
        .Left = Application.UsableWidth * 0.5
        .Height = Application.UsableHeight * 0.5
        .Width = Application.UsableWidth * 0.25
        ' 获取窗口句柄
        hwnd = .hwnd
    End With
    
    ' 调用API设置窗口置顶
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

关键说明 #

• HWND_TOPMOST：将窗口设置为始终置顶状态，即使窗口失去焦点也会保持在最上层
• SWP_NOSIZE和SWP_NOMOVE：仅修改窗口的置顶属性，保持当前的尺寸和位置不变
• 若需要取消置顶，可调用SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE

内容的提问来源于stack exchange，提问作者KasparJohannes