返回列表 上一主題 發帖

暫停Worksheet_SelectionChange

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-12-17 10:25 | 只看該作者

暫停Worksheet_SelectionChange

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

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

請指教
收藏 分享

stillfish00

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

  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
複製代碼

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題