excel vba编程实例(Excel VBA如何向新添加的sheet中添加worksheet_change事件呢)

改成下面这样就行了。ShtCodeName=ThisWorkbook.Worksheets("AAAA").CodeNameWithThisWorkbook.VBProject.VBComponents.Item(ShtCodeName).CodeModule.InsertLines1,"PrivateSubWorksheet_Change(ByValTargetAsRange)".InsertLines2,"msgbox""生成事件成功""".InsertLines3,"'这是一个注释示例".InsertLines5,"EndSub"EndWith试试吧。