Question

Excel VB中怎样写单元格改变语句？

如果需要单元格A1的数据产生变化就。。。。这样的条件我写了下面的语句，但却是必须在手工改变A1的条件下才进行下面的运算，要怎样写才能使只要A1单元格数据有变化就满足运算条件呢？
If Target.Address = "$A$1" Then
........
我的代码是写在ThisWorkbook中的：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sheet4
If Target.Address = "$A$1" Then

Dim a As Integer

For a = 1 To 2
Range("P18").Value = a
If Range("R17").Value > 2 Then
x% = sndPlaySound("C:\xstx.wav", uFlags%)
SendKeys "{F9}"
Exit Sub
End If
Next

End If
End With
End Sub

A1里是一个公式，运算结果会产生变化，但这段代码却是必须在手工改变A1的条件下才进行下面的运算，要怎样写才能使只要A1单元格数据有变化就满足运算条件呢？

Answer 1

可以实现你说的功能
1.Workbook_Open读取Range("a1").Value到变量a1Value

2.任何cell出发的SheetChange事件中加入处理
判断Range("a1").Value是否变化，变化就执行过程a1valuechange

Public a1Value
Private Sub Workbook_Open()
a1Value = Range("a1").Value
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If a1Value <> Range("a1").Value Then a1valuechange
a1Value = Range("a1").Value

'=====以下是其他需要处理的语句

End Sub

Sub a1valuechange()
MsgBox "A1 value is changed!"
End Sub

Answer 2

按下ALT+F11,双击左边的SHEET1(假设你要在SHEET1中实现)
在"通用"下选择WORKSHEET,在后面一个下拉框中选择CHANGE
然后会出来一个框架.
在里在写入
你的代码.

Answer 3

直接放在sheet4里面吧，就是在VBE窗口中，双击sheet4的空白区里
把你的代码放到下面的代码中间
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
然后贴到当前工作表的代码区域就可以了