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

zyh196712

原帖由 ggsmart 于 2009-9-27 13:22 发表


你的目的是想让汇总后的工作表的学生信息按分表的学生的序号的顺序分别写入，对吧。单从现在的工作表的数据来看，不考虑序号有其他变化（比如间断，现在的文件里的序号是连续的，即从1——N号），那给你提供一个 ...

谢谢你在百忙之中为我解答！

trustwxq

原帖由 zyh196712 于 2009-9-28 21:20 发表

哦，是i有问题！现在总算明白了！这样的话将表的位置换一下就可以了，我试了，成功！谢谢你了！
想问一下：就算你英语不好，那你这些是怎么写出来的？英语我压根就没学过，我要借助有道工具才能看懂啊！

英语不好可以学编程，但是学起来会很吃力，建议同时学习英语，这样两方面可以同时提高，真是和题目一样“一举两得”啊！

草根糖

原帖由 trustwxq 于 2009-9-28 21:37 发表
我的代码里现在至少还存在两个缺点：
第一个就是和草根糖说的一样，选择多个删除的时候，后面的一列不能对应删除，所谓对应删除是指选i2:i4后按delete键，然后就删除i2:j4单元格中的内容，这个问题好解决，在总IF后面加上一个IF Target.count<>1 then……就行了

首先赞一个！你的代码有很多可以学习的地方。
按照你说的在总if后面加……，我一开始就试过，没有成功，不知道是什么原因。
我的代码加上后，就会都是执行总then后面的语句。很郁闷！~

zznjcs

原帖由 草根糖 于 2009-9-29 08:13 发表


首先赞一个！你的代码有很多可以学习的地方。
按照你说的在总if后面加……，我一开始就试过，没有成功，不知道是什么原因。
我的代码加上后，就会都是执行总then后面的语句。很郁闷！~

我也在想如果IF TARGET.COUNT<>1, 那一个单元格改动的时候不就执行THEN后面的语句了吗?

草根糖

原帖由 zznjcs 于 2009-9-28 19:25 发表
591570

程序好麻烦,想用个VLOOKUP.可是写的总是不对,找不到原因.
楼主看看指导一下.

原代码：

1.          Case Is = "B"
   
2.             Target = "百花湖乡"
   
3.             Target.Offset(0, 1) = "520181002"
   
4.             Target.Offset(0, 1).Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets(1).Range("B2, B10"), 2, 0).Value

复制代码

修改成：

1.          Case Is = "B"
   
2.             Target.Offset(0, 1).Value = Application.WorksheetFunction.VLookup(UCase(Target.Value), Sheets(1).[B2:D10], 3, 0)
   
3.             Target = "百花湖乡"

复制代码

即可。

trustwxq

原帖由 草根糖 于 2009-9-29 08:13 发表
首先赞一个！你的代码有很多可以学习的地方。
按照你说的在总if后面加……，我一开始就试过，没有成功，不知道是什么原因。
我的代码加上后，就会都是执行总then后面的语句。很郁闷！~

你可能没有完全理解我的意思，应该是有一个if target.count<>1 and target.comumn=9 and target.row>2 and…… then……这样的一个条件语句。我昨天只是简单的写了写，我试过一次连续的单元格区域是可以的，不连续的才会出现无限循环。

草根糖

貌似，昨天我也碰到了死循环，呵呵~
3Q!~

ggsmart

原帖由 zznjcs 于 2009-9-28 19:25 发表
591570

程序好麻烦,想用个VLOOKUP.可是写的总是不对,找不到原因.楼主看看指导一下.

请参照前面例子，昨天有朋友已经用过Vlookup来做了。`http://club.excelhome.net/viewthread.php?tid=470603&amp;page=60#pid3198119

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

橙子125

真好啊，支持

ggsmart

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

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

复制代码

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

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

复制代码

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

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.   Application.EnableEvents = False
   
4.     Target.Value = Target.Value & "公司"
   
5. Application.EnableEvents = True
   
6. End Sub
   

复制代码

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


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