让excel窗口置顶（可以用于Win 64或者 Win 32）

最新推荐文章于 2024-04-16 20:17:42 发布

fairytxj

最新推荐文章于 2024-04-16 20:17:42 发布

阅读量1w

点赞数 17

分类专栏： excel office

本文链接：https://blog.csdn.net/hjs1983821/article/details/104896900

版权

excel 同时被 2 个专栏收录

1 篇文章

订阅专栏

office

1 篇文章

订阅专栏

1、打开VB窗口（Alt+F11）
在这里插入图片描述
2、工程窗口右键-新建-模块

3、根据自己系统的类型插入以下代码：代码转载自：https://www.extendoffice.com/documents/excel/2030-keep-excel-window-on-top.html

'Update 20140909
#If Win64 Then
    Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            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
    Public 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
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
    #If Win64 Then
        Dim xHwnd As LongPtr
    #Else
        Dim xHwnd As Long
    #End If
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

以上代码：如果是win64位,只留下If分支的代码，代码如下：

Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            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

Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
        Dim xHwnd As LongPtr
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

4、保存关闭VB窗口
5、excel窗口-启动宏（Alt+F8）
在这里插入图片描述
6、在宏窗口中选择需要的选项：
SetXLOnTop:窗口置顶
SetXLNormal:窗口恢复

选择SetXLOnTop:执行则窗口置顶，任意时候回到宏窗口（Alt+F8）执行SetXLNormal:则恢复。