Question

Excel窗口总在最前的VBA程序

我的电脑是win7 64位的。找到这个程序但是提示错误，32位的就可以用。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 Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2 Sub 窗口总在最前面()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

Answer 1

　　想在显示窗体的时候窗体一直在EXCEL表格的最前面，那么在显示窗体的语句处使用有模的方式打开，就是在show后面加个1：
例如：
sub auto_open()
formname.show 1
end sub
如果是fromname.show 0 或者formname.show则窗体不会强制在最前面

如果想只显示窗体，EXCEL隐藏，则可通过下面语句可以设置EXCEL为不可见，只显示窗体：
private sub From_Load()
application.visible=false
end sub

Answer 2

Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongLong, _
  ByVal hwndInsertAfter As LongLong, ByVal x As LongLong, ByVal y As LongLong, _  ByVal cx As LongLong, ByVal cy As LongLong, ByVal wFlags As LongLong) As LongLong

Answer 3

你在 declare 前面加上 private 就可以了

追问

还是这样子...

追答

我这边是win8.1 x64，是可以的，不过你问题解决了就好