菜鸟谈VBA最最基础入门《原创》

xzdfxly

真是太棒了，受益非浅呀！！

tenglong1898

多谢了。。。。。。

ggsmart

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

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.    
   
4. End Sub
   

复制代码

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

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

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

复制代码

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

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

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

复制代码

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

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

复制代码

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

　　相关附件：
　　　　１、实例：图书—自动录入时间 图书－自动录入时间.rar (7.61 KB, 下载次数: 4348)

2009-9-29 14:31 上传

点击文件名下载附件

　　　　２、作业：信息录入—一举两得 信息录入—一举两得.rar (10.37 KB, 下载次数: 4027)

2009-9-29 14:31 上传

点击文件名下载附件

[ 本帖最后由 ggsmart 于 2009-9-29 14:31 编辑 ]

trustwxq

早早的交上作业，呵呵~~
信息录入—一举两得.rar (13.45 KB, 下载次数: 1644)

2009-9-27 21:28 上传

点击文件名下载附件

zyh196712

原帖由 zznjcs 于 2009-9-26 21:48 发表

我试过了,一样的代码,只是把三个变量定义一下类型就可以了呀.

谢谢！弱弱的问下，你的全部能复制吗？我试了一下，为什么我的第2张表和第8张表没有复制（复制1~89）。
我定义的变量是：Dim start As Double, i As Byte, aa As Long, bb As Long。

trustwxq

增加了两个功能，一是：输入小写变成大写，二是：输入的是字母但代码对应表中如果没有时，选择指定对应关系还是重新输入，选择后进入不同的操作。
信息录入—一举两得.rar (15.7 KB, 下载次数: 1626)

2009-9-27 22:36 上传

点击文件名下载附件

[ 本帖最后由 trustwxq 于 2009-9-27 22:38 编辑 ]

tlttr

非常感谢

草根糖

楼主老师终于又出新章了。
能在百忙之中抽出时间来教我们，非常难得！
请接受我由衷的感谢！

我这次的作业。 信息录入—一举两得——草根糖.rar (15.54 KB, 下载次数: 484)

2009-9-28 12:49 上传

点击文件名下载附件

我发现其中有两个不足的地方：
一、选择I列的多个单元格删除数据时会出错。
二、在I列输入的字母为小写时，乡镇代码列不变，即无法判断。
请老师指导。

草根糖

另外，再问个问题：
这段代码为什么执行的时候，提示无法获取vlookup属性？

1. Private Sub Worksheet_Change(ByVal Target As Range)   
   
2. Dim i%, j%
   
3.     i = Sheets(2).[i65536].End(xlUp).Row   
   
4.   For j = 2 To i Step 1
   
5.     If Target.Count = 1 And Target.Column = 9 And Target.Row > 2 Then
   
6.        Cells(j, 10) = Application.WorksheetFunction.VLookup(Sheets(2).Cells(j, 9), Sheets(1).Range("B2:D10"), 3, 0)
   
7.     End If
   
8.   Next
   
9. End Sub
   

复制代码

请各位老师同学帮忙。
谢谢！

zznjcs

这个讲的太及时了,我正在搞一个文档,想输入一个单元格,然后会将这一行变相应的颜色.正好用上了.