[發問] 詢問 如何讓每一頁都使用相同的巨集。

keovin790916

詢問 如何讓每一頁都使用相同的巨集。

我只錄製一頁， 2-10頁跟隨第一頁的。

有甚麼辦法?

leoman0002

附上附件...比較清楚你想要的結果

GBKEE

回復 1# keovin790916

1. Option Explicit
   
2. [code]'ThisWorkbook(這活頁簿)模組 的程式碼
   
3. Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'ThisWorkbook(這活頁簿) 改變作用中的工作表的觸動事件
   
4.     '你錄製的巨集可放這裡
   
5.     MsgBox Sh.Name
   
6. End Sub
   
7. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
8.     'ThisWorkbook(這活頁簿) 工作表有修改的觸動事件
   
9.     '你錄製的巨集可放這裡
   
10.     MsgBox Sh.Name & "  " & Target
    
11. End Sub

複製代碼

1. Private Sub Ex()  '可複製於任何模組
   
2.     'VBA視窗中 按 F8 逐行 執行此程式看看
   
3.     Sheets("Sheet1").[a1] = "aaa"
   
4.     Sheet2.Activate
   
5.     Sheet2.[a1] = "aaa"
   
6.     Sheet3.Activate
   
7.     Sheet3.[a1] = "aaa"
   
8.     Sheet1.Activate
   
9. End Sub

複製代碼