標題: [發問] 如何用VBA對新加的工作表添加VBA [打印本頁]

---

作者: sunnyso    時間: 2013-7-25 17:59     標題: 如何用VBA對新加的工作表添加VBA

請教各位大大，如何用VBA新加一個工作表並對它加入VBA。

例如，新加一個名爲“ABC1“的工作表，並加入
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then MsgBox "$A$1 Changed"
End Sub

---

作者: GBKEE    時間: 2013-7-26 15:23

本帖最後由 GBKEE 於 2013-7-27 06:22 編輯

回復 1# sunnyso

1. Option Explicit          'Lines 1  '工具->選項:如有勾選 要求變數宣告, 模組會自動輸入Sub Ex()
   
2.     With Sheets.Add(, Sheets(Sheets.Count))
   
3.         With ThisWorkbook.VBProject.VBComponents(.CodeName).CodeModule
   
4.             .InsertLines 2, "Private Sub Worksheet_Change(ByVal Target As Range)"
   
5.             .InsertLines 3, "IF Target.Address = ""$A$1"" Then MsgBox ""$A$1 Changed"""
   
6.             .InsertLines 4, "End Sub"
   
7.         End With
   
8.     End With
   
9. End Sub

複製代碼

---

作者: sunnyso    時間: 2013-7-26 23:39

回復 2# GBKEE

感謝超版。受教了。

---

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