广场舞兰草花:excel问题,这段vba怎么不运行?

来源:百度文库 编辑:高考问答 时间:2024/05/01 07:27:26
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是做什么用的啊?