標題: [發問] 詢問 如何讓每一頁都使用相同的巨集。 [打印本頁]

---

作者: keovin790916    時間: 2013-5-8 22:49     標題: 詢問 如何讓每一頁都使用相同的巨集。

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

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

有甚麼辦法?

---

作者: leoman0002    時間: 2013-5-9 00:40

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

---

作者: GBKEE    時間: 2013-5-9 07:09

本帖最後由 GBKEE 於 2013-5-9 07:11 編輯

回復 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

複製代碼

---

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