返回列表 上一主題 發帖

[發問] 在每個工作表的程式碼窗口中寫入相同語法(SelectionChange)

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-8-2 08:26 | 只看該作者

[發問] 在每個工作表的程式碼窗口中寫入相同語法(SelectionChange)

本帖最後由 jackdream 於 2023-8-2 08:41 編輯

各位前輩，手邊有個檔案內容有兩百多個sheet，因為每個sheet都要偵測SelectionChange(如附圖)，
如果每一個sheet手動貼上VBA語法會很耗時，請問是否有更快速的方式? 感謝。
收藏 分享

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-20 
2#
發表於 2023-8-2 11:58 | 只看該作者
活頁簿共用事件區//
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
3#
發表於 2023-8-2 16:27 | 只看該作者
活頁簿共用事件區//
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Ra ...
准提部林 發表於 2023-8-2 11:58


感謝，已測試成功。

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題