如何通过代码使得每一个新增的工作表中都自动写入指定代码

vested

各位大神

我想实现这样的目的：

附件的Excel中目前有2个工作表,sheet1和sheet2。
sheet2中写入了代码，只要双击A1单元格即可返回sheet1.[A1],想这个工作簿中其他新增的工作表都会自动在工作表的界面写入跟sheet2一样的过程，这样每次双击本工作表的A1即可返回sheet1.[A1]

学习了类似代码，但是不能实现目的，请大神指导下，谢谢。
代码如下

1. 'sheet2代码
   
2. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
3.     If Target.Address(False, False) = "A1" Then Sheet1.Activate: Sheet1.[A1].Select
   
4. End Sub

复制代码

1. 'thisworkbook里的代码
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     With ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule
   
4.         .InsertLines 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
   
5.         .InsertLines 2, "If Target.Address(False, False) = ""A1"" Then Sheet1.Activate: Sheet1.[A1].Select"
   
6.         .InsertLines 3, "End Sub"
   
7.     End With
   
8. End Sub

复制代码

vested

顶起来，求大神指导。

龙城飞将III

昨晚刚写过一个类似的。
测试了下，代码可以用，没问题。

山菊花

不用给各工作表写代码，工作簿的SheetBeforeDoubleClick事件就能满足你的要求。

1. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Address <> "$A$1" Then Exit Sub
   
3.     Sheet1.Activate
   
4.     Range("a1").Activate
   
5. End Sub

复制代码

vested

龙城飞将III 发表于 2016-3-17 22:15
昨晚刚写过一个类似的。
测试了下，代码可以用，没问题。

我新加工作表后会报错，显示下标越界，以下代码标黄
With ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule

vested

山菊花 发表于 2016-3-18 09:02
不用给各工作表写代码，工作簿的SheetBeforeDoubleClick事件就能满足你的要求。

谢谢山菊指导，提供了新思路。（以前看了很多你的函数方面的帖子）

但是我还是想知道我原来代码哪里错了？

我新加工作表后会报错，显示下标越界，以下代码标黄
With ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule

山菊花

本人电脑测试，首楼第二段代码无错误。

前段时间有过一个帖子讨论这个问题并有解决办法，有兴趣可搜索一下。

vested

山菊花 发表于 2016-3-18 10:39
错误的大致意思是，各对象更新不同步，当Workbook_NewSheet事件被激活时，VBProject对象慢了一拍，还没来得 ...

好的，我去搜索一下。

hbhm

山菊花 发表于 2016-3-18 09:02
不用给各工作表写代码，工作簿的SheetBeforeDoubleClick事件就能满足你的要求。

请教，有N多个sheet和sheet2类似，用宏做图表后，触发private sub选择C列的行看数据图表。
但觉得把把private sub代码拷到每个sheet，是很笨的方法，有什么方法能把这个代码运用到每个sheet。谢谢谢谢。

lsc900707

hbhm 发表于 2016-10-23 23:45
请教，有N多个sheet和sheet2类似，用宏做图表后，触发private sub选择C列的行看数据图表。
但觉得把把pr ...

就用楼上的办法去解决呀>>>>>>>>>>>