Question

小白求助vba代码怎么作用于多个表格？

我想让表 1 2 3都用到表1里的代码，并且同时更改表一里的东西表2里时间是不会动，不像excel表里修订那样每个表格都会显示。就是每个表格里独立操作。
还有个问题如歌我把“sheet1”更改为别的名称，那么代码还可以用吗？如果不能我应该怎么修改代码呢？
代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A2:c10000]) Is Nothing Then
a = Target.Row
Range("d" & a) = Date & Time
End If
End Sub

Answer 1

用类模块可以实现

1、插入一个类模块，复制下面代码

Public WithEvents XL As Application
Private Sub XL_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, [A2:c10000]) Is Nothing Then
        a = Target.Row
        Range("d" & a) = Date & Time
    End If
End Sub

2、然后插入一个普通模块，复制下面代码

Dim X As New 类1
Sub TestEvents()
    Set X.XL = Excel.Application
End Sub

3、运行TestEvents这个过程，就可以实现你要的功能了。

Answer 2

没办法，必须把代码复制到每一个表里面去。

追问

同一个表格sheet1 sheet2 sheet3，没法复制啊

追答

你的代码是在工作表里面，复制代码，双击别的表，粘贴就可以了

Answer 3

新建立一个模块
把代码写到模块里面去
代码里面凡是涉及操作的,都加上表格名字限定,表格利用Thisworkbook.activesheet 调用，也就是当前的操作表，当你切换的另一个表格的时候，都可以用，比如我当前修改A1 则使用 Thisworkbook.activesheet.range("a1").value=123