郑军 长江大学:excel问题,这段vba怎么不运行?

来源:百度文库 编辑:神马品牌网 时间:2024/05/02 07:58:36
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = 1 Then
Target.Value = "韦"
End If
If Target.Value = 2 Then
Target.Value = "李"
End If
If Target.Value = 3 Then
Target.Value = "何"
End If
End If
End Sub
这是在第一列,进行输入替换的代码
安全等级也调试过到低等级了,数字签署也有了,
就是不能实现,不知怎么回事,望高手赐教,留个联系方式好吗,qq,电话? 我打过去。。

这个vba是做什么用的啊?