[已解决]我想采用模块代码写入到2个工作表vb窗口,下面代码如何修改?

hcy1185 · 发表于 2012-3-21 13:42

我想采用模块代码写入到2个工作表vb窗口,下面代码如何修改?
Sub 向指定工作表写入代码()
Dim sh As Worksheet
Dim Code As String
Code = ""
Code = Code & "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
Code = Code & "If Intersect(Target(1), Columns(""A:D"")) Is Nothing Then Exit Sub" & vbCrLf'在这里写入代码
Code = Code &"Sheets(""概算表"").Cells(Target(1).Row, Target(1).Column) = Target" & vbCrLf ',使两个工作表内容同步
Code = Code & "End Sub" & vbCrLf
For Each sh In ThisWorkbook.Worksheets
   If Not sh.Name <> "概算调整" Then
            With ActiveWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
                        NextLine = .CountOfLines + 1
                        .InsertLines NextLine, Code
            End With
      'sh.Visible = False '要使这N张表都处于隐藏状态可在此加入此句
   End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-3-21 15:06

Sub 向指定工作表写入代码()
Dim sh As Worksheet
Dim Code1$, Code2$
第一个工作表名称 = "Sheet1"
第二个工作表名称 = "Sheet2"
Code1 = ""
Code1 = Code1 & "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
Code1 = Code1 & "If Intersect(Target(1), Columns(""A:D"")) Is Nothing Then Exit Sub" & vbCrLf '在这里写入代码
Code1 = Code1 & "Sheets(""概算表"").Cells(Target(1).Row, Target(1).Column) = Target" & vbCrLf ',使两个工作表内容同步
Code1 = Code1 & "End Sub" & vbCrLf
Code2 = ""
Code2 = Code2 & "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
'..........
'..........
Code2 = Code2 & "End Sub" & vbCrLf
For Each sh In ThisWorkbook.Worksheets
If sh.Name = 第一个工作表名称 Then
With ActiveWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code1
End With
End If
If sh.Name = 第二个工作表名称 Then
With ActiveWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code2
End With
End If
Next
End Sub

复制代码

跳转到最佳答案楼层

zjdh · 发表于 2012-3-21 13:47

你这2个工作表段名称？？

zjdh · 发表于 2012-3-21 13:49

修改这一句;
If sh.Name =第一个工作表名称 or sh.Name =第二个工作表名称 Then

hcy1185 · 发表于 2012-3-21 14:34

zjdh 发表于 2012-3-21 13:49
修改这一句;
If sh.Name =第一个工作表名称 or sh.Name =第二个工作表名称 Then

老师!
向两个工作表写入不同的代码

zjdh · 发表于 2012-3-21 15:06

Sub 向指定工作表写入代码()
Dim sh As Worksheet
Dim Code1$, Code2$
第一个工作表名称 = "Sheet1"
第二个工作表名称 = "Sheet2"
Code1 = ""
Code1 = Code1 & "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
Code1 = Code1 & "If Intersect(Target(1), Columns(""A:D"")) Is Nothing Then Exit Sub" & vbCrLf '在这里写入代码
Code1 = Code1 & "Sheets(""概算表"").Cells(Target(1).Row, Target(1).Column) = Target" & vbCrLf ',使两个工作表内容同步
Code1 = Code1 & "End Sub" & vbCrLf
Code2 = ""
Code2 = Code2 & "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
'..........
'..........
Code2 = Code2 & "End Sub" & vbCrLf
For Each sh In ThisWorkbook.Worksheets
If sh.Name = 第一个工作表名称 Then
With ActiveWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code1
End With
End If
If sh.Name = 第二个工作表名称 Then
With ActiveWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code2
End With
End If
Next
End Sub

复制代码

hcy1185 · 发表于 2012-3-21 15:26

本帖最后由 hcy1185 于 2012-3-21 15:42 编辑

zjdh 发表于 2012-3-21 15:06

老师!
Target(1)是什么意思?
写在两个工作表的代码,过程名一样可以吗?

zjdh · 发表于 2012-3-21 16:41

hcy1185 发表于 2012-3-21 15:26
老师!
Target(1)是什么意思?
写在两个工作表的代码,过程名一样可以吗?

Target(1)是你的宏中写的！
在这里它的意思是CHANGE区域的第一个单元，一般是左上角。
写在两个工作表的代码,过程名可以一样。

hcy1185 · 发表于 2012-3-21 17:39

zjdh 发表于 2012-3-21 16:41
Target(1)是你的宏中写的！
在这里它的意思是CHANGE区域的第一个单元，一般是左上角。
写在两个工作表 ...

非常感谢老师的指导!

		自动登录	找回密码
密码			注册

[已解决]我想采用模块代码写入到2个工作表vb窗口,下面代码如何修改?

评分

相关帖子

评分

评分