如何將現有工作簿置頂?? (On Top)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-4-24 09:03 | 只看該作者

回復 1# samsung2888
ThisWorkbook.Activate
AppActivate "MicroSoft Excel"

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

samsung2888

中學生 Rank: 2

帖子: 11
主題: 4
精華: 0
積分: 51
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
註冊時間: 2013-11-14
最後登錄: 2018-8-6

3^#

發表於 2015-4-24 16:23 | 只看該作者

試過不行呢!!!!我想要把Excel視窗放到windows最上層.....always on top!!!

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-4-24 16:47 | 只看該作者

回復 3# samsung2888
沒辦法永遠提到最上，而是執行到上面的程式碼時
會把"Excel應用程式"提到最上層而已。

如果你指的是Excel工作表被UserForm蓋住，可以修改Userform的ShowModal屬性為false

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

5^#

發表於 2015-4-24 20:02 | 只看該作者

(1) 掛API
or
(2) 掛程式

(1) 掛API
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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

Sub AlwaysOnTop(最上層 As Boolean)
  On Error Resume Next
  h = Excel.Application.hwnd
  If Err Then
  h = FindWindow("XLMAIN", "Microsoft Excel - " & ThisWorkbook.Name)
  End If
  On Error GoTo 0
  k = IIf(最上層, -1, -2)
  Call SetWindowPos(h, k, 0, 0, 0, 0, 3)
End Sub

TOP

samsung2888

中學生 Rank: 2

帖子: 11
主題: 4
精華: 0
積分: 51
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
註冊時間: 2013-11-14
最後登錄: 2018-8-6

6^#

發表於 2015-4-24 22:23 | 只看該作者

回復 5# bobomi

感謝網友bobomi 熱心的回答.....
原來要用api 才解決得到
測試過真的可以喔
我要的就是這個......厲害!!!!!萬分感謝你

TOP