Question

EXCEl 如何判断指定单元格内数据改动后自动运行宏代码

EXCEl 如何判断指定单元格内数据改动后自动运行宏代码， 我想让单元格E3 位置数据改动后 自动把E3单元格内的文本变成工作表名！我现在用的代码是：Private Sub Worksheet_Change(ByVal Target As Range)ActiveSheet.Name = [e3]End Sub虽然能实现我要的效果但是在E3没数据的时候在编辑别的单元格的时候按回车后就跳出1004错误

Answer 1

用IF语句判断E3的值，
Private Sub Worksheet_Change(ByVal Target As Range)
If [e3].value<>"" then
ActiveSheet.Name = [e3]
endif
End Sub

追问

朋友真是谢谢你！上次也是你帮我的，今天出差要晚上才能测试了。我还想问下能不能把上次的批量上标也改成自动的。就是判断所有单元格有数据自动执行上标，可以实现吗朋友？

追答

应该可以吧，不过我不记得上次的问题了，发个链接给我看看。