Question

怎么用Private Sub Worksheet_Change(ByVal Target As Range) ？

Excel某单元格有改动，给出标识，如： √， ×。
请问怎么写？
没接触过VBA，请请详细点，谢谢。

Answer 1

1、首先在Excel表格中，打开【开发工具】，依次点击【文件】-【选项】-【自定义功能区】。

2、然后在右侧窗口勾选【开发工具】，点击确定。

3、确定之后回到表格编辑页面，按【ALT+F11】组合键，打开VBE窗口。

4、打开VBE窗口，双击需要编辑宏的工作表【sheet1】，在右侧的代码窗口输入代码。

5、输入完成，点击保存并关闭窗口，回到表格页面，在A列进行签到编辑。

Answer 2

用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里就会打 √

Answer 3

简单的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("sheet2").Cells(Target.Row, Target.Column).Value = "√"
End Sub

使用方法：
打开excel，按alt+F11，打开VBA，在左边VBProject下找到你指定的表（默认是sheet1 sheet2 sheet3，取决于你工作表的命名），比如sheet1，然后双击名称打开代码窗口，把上面的代码复制到右边的代码窗口即可。

说明：
代码复制进去后，你修改了这张表的内容后，另一张表（上面代码默认是sheet2，你可以改其它表名）对应位置就会打上勾号。比如你代码复制在sheet1里，然后你在sheet1的单元格A1里修改了数值，在sheet2的单元格A1里就会打 √

追问

谢谢你的回答，可是我还有个疑问。为什么关闭Excel再次启动，就没有效果了？

这是怎么回事？

追答

那是你没保存。注意2003版本的会提示涉及个人信息的一个提示，可能实际没有保存下去，你要进入选项设置把那个删除个人信息选项去掉再保存。
如果是2007以上版本的要保存为启用宏的工作簿才行，否则代码不会被保存进去，下次打开就没了。