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

ggsmart · 发表于 2009-9-29 13:42

1、选择多个删除的时候，后面的一列不能对应删除———我觉得可以这样，首先在前面加上一个IF Target.count<>1 then……Else……End If语句，分别对改变的单元格个数不等于1和等于1的时候设置相应的代码，等于1的时候很简单，大家都做了例子。对于不等于1的时候，我觉得可以在选中的区域里设置循环，把对多个单元格区域的处理变成对多个单个单元格的处理，处理的思路和对target.count=1时的处理思路一样，只不过在外面加了一层循环而已。我的基本的思路为：

If Target.Column = 9 And Target.Row > 2 Then
If Target.Count = 1 Then
'语句块
Else
Dim rng As Range
For Each rng In Selection '在选中的区域内循环
'语句块
Next
End If
End If

复制代码

2、程序需要多循环一圈———造成程序循环的原因是单元格的数值被修改了，因为每次修改都会触发Worksheet的Change事件，所以程序会多次执行。
比如，我们需要在我们输入的值的后面加上“公司”两个字，那该怎么做呢？如果输入以下的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Target.Value & "公司"
End Sub

复制代码

用了上面的代码，你会发现程序会一直运行下去，因为每执行一次程序都会对单元格进行修改，每一次修改都会触发Change事件，每次发生Change事件，程序都会执行......总是这样，一直没个完。
如何让程序只运行一次呢？有办法，使用Application.EnableEvents = False语句即可。使用了这句语句后，就禁止了事件的发生，当你在修改单元格的数值后就不会再触发工作表的Change事件了。使用它后将不会出现事件的“连锁反应”，就不会重复执行程序了。但要注意的是，在程序结束时需要用 Application.EnableEvents = True把它的属性改回来，因为Excel不会自动去替我们修改它。
知道了这个，上面的程序可以设计为：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Target.Value & "公司"
Application.EnableEvents = True
End Sub

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
关于Application.EnableEvents 属性，可以通过下面的实例来认识，你也动手做一做，通过在某单元格输入数值，会自动得出所输入的数值的和，也就是累加，效果如图所示.
数据累加.gif

[ 本帖最后由 ggsmart 于 2009-10-2 15:16 编辑 ]

橙子125 · 发表于 2009-9-29 13:46

再支持

zznjcs · 发表于 2009-9-29 13:47

还要多练习呀.

ggsmart · 发表于 2009-9-29 14:33

请问zyh196712朋友问的问题还是前面对应序号的问题吗？不知道现在是不是真的解决并理解了。

还有，我也发下感慨，我的英语也是差到不能再差了。呵呵。。。记得初三的时候，老是被老师抓到楼梯间站着面壁思过，后来我一直怀疑那级楼梯是不是已经被我踩得发光并能照出自己的影子了，呵呵........好痛苦也有好有意思的童年。

我个人觉得，英语学好了，对学习写程序很有帮助，但并不是没会英语就不能学程序，只是花的时间多点而已。让所有和我一样不懂英语的人一起努力，好好学习吧。

[ 本帖最后由 ggsmart 于 2009-10-2 15:02 编辑 ]

阿龙168 · 发表于 2009-9-29 14:43

好棒啊，找了好久才找这，只有你才说得最通俗易懂，严重支持楼主，希望继续发贴！

幽幽的空白 · 发表于 2009-9-29 15:34

太牛了，这帖子不错，记下了回去研究

huguyue619 · 发表于 2009-9-29 15:45

我要用VBA 制作一个点击下就能在WORD中最后一页的右下角插入一个图片，代码该如何写，望大家不吝赐教

ggsmart · 发表于 2009-9-29 15:54

Worksheet的SelectionChange同Change事件差不多，选择的单元格发生变化后就会触发Worksheet的SelectionChange事件，明白了Change事件，再来看SelectonChange事件就简单多了。前面有朋友已经在自己的代码里用到了这个事件，这里我就不再多说，通过一个例子来认识他吧。
如果我们想看一看选中的区域里有没有字母“A”，如果有，则把字母“A”改成红色，我们就可以用这个事件，看图片效果：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
看了上面的图片，你可以先做一做，这里，我传上我的附件，供大家参考。

字母A变红色.rar (10.48 KB, 下载次数: 3271)

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

zznjcs · 发表于 2009-9-29 16:53

我用VLOOKUP()试过了,怎么还是不可以.
系统会提示;
Run-time error '1004':
Unable to get the Vlookup property of the WorksheetFunction class

没办法执行这个函数.

ggsmart · 发表于 2009-9-29 17:04

原帖由 zznjcs 于 2009-9-29 16:53 发表
我用VLOOKUP()试过了,怎么还是不可以.
没办法执行这个函数.

查询出错的原因“草根糖”朋友在下面(http://club.excelhome.net/viewthread.php?tid=470603&page=63#pid3201703)已经讲了，你应该把对target的修改放在第二句。
另外，如果用了Vlookup函数，还有必要用Cace语句吗？如果用了Case语句，我觉得就没必要用Vlookup函数了。对于这个问题，我个人推荐不使用Case语句，现在的数据很少，用Case语句的话不会太麻烦，那如果有100种情况，200种情况，甚至更多的时候，那在程序设计时需要写多少句Case???

[ 本帖最后由 ggsmart 于 2009-10-2 15:01 编辑 ]

		自动登录	找回密码
密码			免费注册

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

回复 trustwxq 的帖子

回复 zyh196712 的帖子

请教大家一个问题WORD VBA的

关于Worksheet的SelectionChange事件

最新热点 /1