vba窗体置顶

　　在使用电脑办公的时候，经常会同时打开多个软件。比如同时使用excel和AutoCAD，这时候需要按照excel的内容在AutoCAD上面进行画图。将AutoCAD最大化，这时候如果还想看excel就只能从任务栏点击excel图标，这样excel窗口才会弹出。这里就教教大家，怎么不用这么麻烦的操作，一直把excel保持在窗口最前面。

　　1、首先打开VBA编辑器，按住 ALT+F11按钮 ，或者点击“开发者工具”下面的 “Visual Basic ”选项，进入VBA编辑器

　　2、点击菜单栏的 “插 入”——“ 模块 ”，弹出代码窗口。

　　3、在窗口中粘贴下列代码

　　复制内容到剪贴板

　　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

　　4、关闭VBA编辑器

　　5、在EXCEL工作界面中按快捷键 ALT+F8 ，或者点击菜单栏“ 视图”——“宏”， 弹出宏窗口。选择 “窗口总在最前 ”，然后点击“ 执行”。 这样，EXCEL的窗口就会一直保持在最前面了

　　6、如果不想EXCEL窗口保持在最前，那就按上一步操作，选择“ 恢复 ”——“ 执行”， 这样窗口就不会在最前面了。