標題: [發問] 關於userform show 0 的問題 [打印本頁]

---

作者: feecshyrnd    時間: 2022-12-5 00:51     標題: 關於userform show 0 的問題

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

---

作者: mark15jill    時間: 2022-12-6 13:07

回復 1# feecshyrnd


    不太懂您的意思~
    就算開其他excel檔案時~ 你的視窗顯示其他檔案，原本的表單就會看不到了...
     
      例如正在執行的表單 (A檔案 的 甲表單) ~ 再開 B檔案時~ 你的視窗應該只會顯示 B檔案的畫面~ (除非你手動切換)

---

作者: 准提部林    時間: 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

---

作者: Andy2483    時間: 2022-12-9 07:25

回復 3# 准提部林


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

執行畫面:
[attach]35572[/attach]

[attach]35573[/attach]

---

作者: 准提部林    時間: 2022-12-9 16:40

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

回復 4# Andy2483


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


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

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

---

作者: Andy2483    時間: 2022-12-12 07:40

本帖最後由 Andy2483 於 2022-12-12 07:45 編輯

回復 5# 准提部林


    謝謝前輩指導
懂了
[attach]35584[/attach]

[attach]35585[/attach]

[attach]35586[/attach]

[attach]35587[/attach]

[attach]35588[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)