饥饿鲨进化巨型灯饰鱼:Worksheet的Change事件

来源：百度文库编辑：偶看新闻时间：2024/05/06 07:47:51

Worksheet的Change事件

　　“事件”在前面的贴子里我们已经接触过了，如果你还不清楚，回过头去花上几分钟看一看。
　　当工作表单元格数值被修改后，就会触发Worksheet的Change事件，我们可以通过写一些语句响应这个事件来完成一些工作，下面我们通过一些例子来认识它。
　　打开一个工作薄，点击工作表名称标签，选择“查看代码”命令进入ＶＢＥ编辑窗口，在代码窗口的对象列表中选择“Ｗorksheet”，在事件列表中选择“Change”，这时代码窗口中会出现一段代码：复制内容到剪贴板

代码:

Private Sub Worksheet_Change(ByVal Target As Range)
   
End Sub

　　相关说明：
　　１、Ｗorksheet是对象名，Change是事件名称，对象名称和事件名称用下划线连接;
　　２、（ByVal Target As Range)：括号里的是程序运行传递的参数，Target是一个Range对象，即单元格区域，指触发Change事件的单元格，也就是数值被修改了的单元格。
　　３、我们只需要将所需要执行的代码写在Sub与Ｅnd Sub之间，这样，在工作表的某个单元格发生改变时，就自动执行Sub与End Sub之间的程序代码。

　　如果我们需要在每一次单元格修改之后都告诉我们这个单元格的地址是多少，则代码可以为：复制内容到剪贴板

代码:

Private Sub Worksheet_Change(ByVal Target As Range)
   MsgBox "刚刚修改的单元格地址是：" & Target.Address
End Sub

　　这样，当我们修改了某个单元格后，都会自动弹出一个对话框告诉我们刚刚修改的格的地址是多少。

　　如果我们想只有修改某个单元格区域，比如Ｄ列的单元格的时候，才弹出这个对话框告诉我们，也是可以的，那代码为：复制内容到剪贴板

代码:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 4 Then '当改变的单元格的列号为4,即为Ｄ列时执行程序
      MsgBox "刚刚修改的单元格地址是：" & Target.Address
  End If
End Sub

　　有时，为了减少工作表信息的输入工作，我们会利用到Worksheet的Change事件，例如有一相记录学生借书或还书情况的工作表，C列2行以下的区域记录图书“借出”或“归还”的情况，需要在每一次更改“借出”或“归还”状态时，都在同行的D列记录下更改的日期，则代码可以为：复制内容到剪贴板

代码:

Private Sub Worksheet_Change(ByVal Target As Range)
'当被修改的单元格只有一个，且列号等于３，行号大于２时执行程序
    If Target.Count = 1 And Target.Column = 3 And Target.Row > 2 Then
        Target.Offset(0, 1) = Date '被修改的单元格的右面一个单元格的值为当前日期
    End If
End Sub

　　因为工作的原因，很久没有来了，今天就给大家讲这个很简单的事件，很容易理解。由于时间匆忙，难免有不全面的地方，如有不明白的，希望大家跟贴一起讨论，最后，也给大家留一个练习的题目吧！

　　相关附件：
　　　　１、实例：图书—自动录入时间 图书－自动录入时间.rar (7.61 KB) 图书－自动录入时间.rar (7.61 KB)
下载次数: 105
2009-9-29 14:31
　　　　２、作业：信息录入—一举两得 信息录入—一举两得.rar (10.37 KB) 信息录入—一举两得.rar (10.37 KB)
下载次数: 81
2009-9-29 14:31

VB里的Change事件在一个窗口模块是不是只能用一次？ change 的过去式是什么 change的过去式 change的形容词 alter和change的区别 change和turn的区别 exchange与change的异同？ CPU has change 的问题 worksheet在财务中是什么意思 worksheet在会计中是什么意思谁有金素妍主演的《change》的bt种？ nothing gonna change my love的伴奏谁知道love can change everything 的歌词 change cnrrent fixed disk driver的意思哪位好心人听说过1997的韩国电影《Change》？ CHANGE THE WORLD 的歌手是谁请问vary、change、alter的区别~~ 请问vary、change、alter的区别~~ vf中replace和change的区别波兰事件和匈牙利事件的区别... 下列事件是确定事件的是: 求 WESTLIFE的CHANGE THE WORLD的URL 谁有change the world 罗马拼音的歌词木原音濑的小说CHANGE IT哪里有结局?