[已解决]单元格$A$1有编程，但是怎么让A列都有这些程序？急，求大神！！

如题目。
          编程如下：
                         Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "1" Then
For i = 1 To 1
Beep
Sleep 300
Next i
End If
End Sub

我想要这个程序在A列中都可以实现~~~
现在只是在A1中可以实现~~~~~
试了好多次，实在不会啊，求大神~~~~~~~~~

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-10 11:45

Target.Address = "$A$1"
改为target.column=1

跳转到最佳答案楼层

求大神帮忙啊！~~~~~~坐等高手~~~~

小小鱼鱼

天灵灵地灵灵,大神快出现~~~~~

qh8600

Target.Address = "$A$1"
改为target.column=1

小小鱼鱼

真流弊啊~~~~~~

小小鱼鱼

qh8600 发表于 2014-10-10 11:45
Target.Address = "$A$1"
改为target.column=1

大神~谢谢你啊，改了下，很好用。多谢指点！！！！
想嫁给你的心都有啦~~~~

小小鱼鱼

设不了最佳答案~~~~~~