[發問] 關於userform show 0 的問題

想請問各位高手小弟製作了表單用了USERFORM.SHOW 0
不知是否有方法在不關閉表單的情況下可讓表單在開啟其他excel檔案時自動隱藏切回原本檔案則出現

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2022-12-6 13:07 | 只看該作者

回復 1# feecshyrnd

不太懂您的意思~
就算開其他excel檔案時~ 你的視窗顯示其他檔案，原本的表單就會看不到了...

例如正在執行的表單 (A檔案的甲表單) ~ 再開 B檔案時~ 你的視窗應該只會顯示 B檔案的畫面~ (除非你手動切換)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

3^#

發表於 2022-12-8 21:21 | 只看該作者

本帖最後由准提部林於 2022-12-8 21:33 編輯

在模組區設一個共用變數//
Public PP%

表單事件區//
Private Sub UserForm_Initialize()
PP = 1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
PP = 0
End Sub

========================
活頁簿事件//
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If PP = 1 Then UserForm1.Show 0
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
If PP = 1 Then UserForm1.Hide
End Sub

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

4^#

發表於 2022-12-9 07:25 | 只看該作者

回復 3# 准提部林

謝謝 feecshyrnd前輩發表此主題
謝謝准提部林前輩指導
後學試不出效果:
1.開啟附件檔案,按按鈕呼叫出表單後除了(按取消X)就什麼事都不能做
2.可能是後學哪個點誤解了
請前輩再指點!謝謝

執行畫面:

Test_20221209_2.zip (11.82 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

5^#

發表於 2022-12-9 16:40 | 只看該作者

本帖最後由准提部林於 2022-12-9 16:48 編輯

回復 4# Andy2483

Sub rrr()
UserForm1.Show 0 '要加0---否則無法選取任何視窗
End Sub

啟動表單後, 再選取其它已開啟的檔案試試!!!

======================
另外, 如果表單不只一個, 可用PP賦值, 去決定哪個表單