多个sheet运用相同的一段代码

我是谁123123

一个excel工作簿里面有多个工作表，针对一张表，写了一个代码，现在想把这个代码运用到每一个表中，但是宏的代码不会写，请哪位大咖帮忙解决下。代码如下所示：

Private Sub Worksheet_Change(ByVal TargetAs Range)

If Target.Column = 3 And Target.Count = 1Then

   If IsNumeric(Target.Value) = True Then

       Application.EnableEvents = False

              Target = Target.Value / 100

       Application.EnableEvents = True

   End If

End If

If Target.Column = 8 And Target.Count = 1Then

   If IsNumeric(Target.Value) = True Then

       Application.EnableEvents = False

              Target = Target.Value / 100

       Application.EnableEvents = True

   End If

End If

If Target.Column = 9 And Target.Count = 1Then

   If IsNumeric(Target.Value) = True Then

       Application.EnableEvents = False

              Target = Target.Value / 100

       Application.EnableEvents = True

   End If

End If

If Target.Column = 10 And Target.Count = 1Then

   If IsNumeric(Target.Value) = True Then

       Application.EnableEvents = False

              Target = Target.Value / 100

       Application.EnableEvents = True

   End If

End If

End Sub

不知道为什么

放在工作簿事件试试

我是谁123123

不知道为什么 发表于 2018-10-11 19:05
放在工作簿事件试试

工作簿事件试过了，没有效果

不知道为什么

我是谁123123 发表于 2018-10-11 19:09
工作簿事件试过了，没有效果

应该上传Excel 表格附件哦

我是谁123123

不知道为什么 发表于 2018-10-11 19:10
应该上传Excel 表格附件哦

我想把上面的那段代码通过自动加载宏的方式应用到每张表，但是这个宏代码不会编写；每张工作表只需要C列，H列，I列，J列输入的数值自动除以100就可以了

我是谁123123

不知道为什么 发表于 2018-10-11 19:10
应该上传Excel 表格附件哦

这是excel文件

红旗雪

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Count <> 1 Then Exit Sub
  If Intersect([c:c,h:h,i:i,j:j], Target) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  If Val(Target) Then Target = Target / 100
  Application.EnableEvents = True
End Sub

我是谁123123

红旗雪 发表于 2018-10-11 19:47
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Count  1 Th ...

谢谢，大佬！这个代码是放在工作簿事件里面的吧

我是谁123123

红旗雪 发表于 2018-10-11 19:47
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Count  1 Th ...

放在模板里面的话，这个代码应该怎么写的呢？

不知道为什么

我是谁123123 发表于 2018-10-11 20:03
放在模板里面的话，这个代码应该怎么写的呢？

保存为启用宏？