'---下面开始过程Worksheet_Change,该过程在工作表的内容发生改变时触发,
'---其中Target定义为单元格变量
Private Sub Worksheet_Change(ByVal Target As Range)
'---以下这一行是出错处理,在代码编制过程中,暂时不要添加,以方便调试
'---调试完成后,为了保证运行正常,应该添加这一行代码
On Error Resume Next
'---定义TRow,TCol分别表示您查找的数据清单区域行和列
'---[如果数据清单区域行列不定,那么您需要多定义一个单元格变量]
Dim TRow As Integer
Dim TCol As Integer
'---如果被改变的单元格行为1,列为1[实际上就是Target=Range("A1")],那么进行以下流程
If Target.Row = 1 And Target.Column = 1 Then