返回列表 上一主題 發帖

暫停Worksheet_SelectionChange

stillfish00

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

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題