EXCLE VB为什么Private Sub Worksheet_Change(ByVal Target As Range) 修改了表格内容不触发?
1个回答
展开全部
用Private Sub Worksheet_Change(ByVal Target As Range),Excel某单元格有改动,给出标识,如: √, ×。
使用方法:打开excel,按alt+F11,打开VBA,在左边VBProject下找到你指定的表(默认是sheet1 sheet2 sheet3,取决于你工作表的命名),比如sheet1,然后双击名称打开代码窗口,把下面的代码复制到右边的代码窗口即可。
代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("sheet2").Cells(Target.Row, Target.Column).Value = "√"
End Sub
说明:代码复制进去后,你修改了这张表的内容后,另一张表(上面代码默认是sheet2,你可以改其它表名)对应位置就会打上勾号。比如你代码复制在sheet1里,然后你在sheet1的单元格A1里修改了数值,在sheet2的单元格A1里就会打 √
使用方法:打开excel,按alt+F11,打开VBA,在左边VBProject下找到你指定的表(默认是sheet1 sheet2 sheet3,取决于你工作表的命名),比如sheet1,然后双击名称打开代码窗口,把下面的代码复制到右边的代码窗口即可。
代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("sheet2").Cells(Target.Row, Target.Column).Value = "√"
End Sub
说明:代码复制进去后,你修改了这张表的内容后,另一张表(上面代码默认是sheet2,你可以改其它表名)对应位置就会打上勾号。比如你代码复制在sheet1里,然后你在sheet1的单元格A1里修改了数值,在sheet2的单元格A1里就会打 √
追问
如果表格下拉,有没有什么方法触发呢?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询