標題: 暫停Worksheet_SelectionChange [打印本頁]

---

作者: enoch    時間: 2013-12-17 10:25     標題: 暫停Worksheet_SelectionChange

若果工作表中使用了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
如何可以當執行另一個巨集時可暫時停止該巨集的運作

及如何讓程式知道現時是那個巨集執行中

請指教

---

作者: stillfish00    時間: 2013-12-17 11:31

回復 1# enoch
Private Sub Worksheet_SelectionChange 這是工作表SelectionChange事件
其他巨集中可用 Application.EnableEvents 暫時停止觸發和還原

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   MsgBox Target.Address
   
3. End Sub
   
4. 
   
5. Sub myTest()
   
6.   Application.EnableEvents = False  '暫停Excel事件
   
7.   Range("E5").Select  '不會跳出訊息
   
8.   Application.EnableEvents = True   '還原Excel事件
   
9.   
   
10.   Range("E6").Select  '會跳出訊息
    
11. End Sub

複製代碼

---

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