VBA，Private Sub Worksheet_Change(ByVal Target As Range)
用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里就会打 √
标签：VBA,Private,Sub
