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

zznjcs

原帖由 ggsmart 于 2009-9-29 17:04 发表

        查询出错的原因“草根糖”朋友在下面(http://club.excelhome.net/viewth ... ;page=65#pid3201703)已经讲了，你应该把对target的修改放在第二句。
        另外，如果用了Vlookup函数，还有 ...

楼主说的对,我当时是用VLOOKUP()不行只能用SELECT CASE,现在我把程序简化了.  可以按想要的执行,但执行完还出错.我先研究一下.

zznjcs

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   If Target.Count = 1 And Target.Column = 9 And Target.Row > 2 Then
       If Target = "" Then
         Target.Offset(0, 1) = ""
       Else
            
        Target.Offset(0, 1).Value = Application.WorksheetFunction.VLookup(UCase(Target.Value), Sheets(1).[B2: D10], 3, 0)
        Target.Value = Application.WorksheetFunction.VLookup(UCase(Target.Value), Sheets(1).[B2: D10], 2, 0)
      
       End If
   End If
End Sub
在前面我没有用On Error Resume Next这句,虽然程序可以执行,(两列都会变化),但全有错误提示出现在VLOOKUP函数这一句,为什么会出现?

ggsmart

原帖由 zznjcs 于 2009-9-30 14:11 发表
在前面我没有用On Error Resume Next这句,虽然程序可以执行,(两列都会变化),但全有错误提示出现在VLOOKUP函数这一句,为什么会出现?

还是Change事件的原因，每一次改变单元格的数值都会触发这个事件，而错误是因为找不到查询的值的原因。
比如：
当你输入Q时，把空改为Q，触发了Change事件，这时运行中间的Vlookup语句，查找到Q，并把当前单元格改为“青龙办事处”，这是由于单元格值又发生了改变，又一次触发了Change事件，再次执行Vlookup语句，因为查找不到“青龙办事处”，所以会出错。
实际上这个程序是执行了两遍。


解决的办法可以用On Error Resume Next忽略错误，也可以用Application.EnableEvents = False语句禁止第二次事件的发生。

如果用了Vlookup，在用上Application.EnableEvents = False的同时，建议还是用上On Error Resume Next语句，因为你第一次输入的数据未必就能在查询的表里能找到。

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

zznjcs

哦,这下明白了,多谢楼主.
祝各位节日愉快.!!!!!!

kaka大魔头

网上找了好多教程，这篇最好了~~！真正的入门，最关键是易懂~

本来自己有本vba的书的，书名就是 从入门到精通

结果没看几行，就看8懂了。。。

还是这篇赞！

谢谢lz~~偶会认真学习的~~

woshijin

想学VBA,于是买了本入门书,结果一点都看不懂,当时很后悔花了45元钱居然它认识我我不认识它.看了楼主的杰作,顿时让人觉得焕然一新，哈哈，虽然完成不了作业，但是能勉强看明白内容，而且回头再去看我的书也能看得明白了，真是非常感谢楼主。
另外想问一下，那些在定义变量时。
Sub ggsmart()
　　  Dim i%, xrow%, j%, xcount%                （问：为什么要%是什么意思）
　　  Dim arr() As String
　　  xrow = [a65536].End(3).Row '最后一个非空单元格行号   （问：为什么是End(3)为什么是3）
　　  j = 1       '数组索引号
　　  xcount = Application.WorksheetFunction.CountIf([a1:a65536], "张*") '统计有多少姓张的学生
  （问：为什么要%是什么意思）
（问：为什么End(3)为什么是3）

谢谢，另外国庆要外出在这里先做个记号：看到608楼，第61页

trustwxq

谢谢老师指点，无限循环的问题，和多个单元格内容添加、删除的问题已经解决，等我把程序完善了，就交作业，呵呵~~

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

trustwxq

无限循环的问题，和多个单元格内容添加、删除的问题已经解决，特别是添加时将一列代码向I列复制后，乡镇名称，和乡镇代码一下就出来一片，非常方便，心里也感觉好有成就感，呵呵~~
trustwxq作业-信息录入一举两得.rar (16.69 KB, 下载次数: 870)

2009-10-1 09:25 上传

点击文件名下载附件

程序代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim rng As Range, rng1 As Range, rng2 As Range, str1 As String, aa As Integer
aa = Sheets("代码").[b65536].End(xlUp).Row
For Each rng1 In Target
    If rng1.Column = 9 And rng1.Row > 2 Then
        str1 = rng1
        If str1 >= "a" And str1 <= "z" Then
            str1 = UCase(rng1)
        End If
        If str1 >= "A" And str1 <= "Z" Then
            For Each rng In Sheets("代码").Range("b2:b" & aa)
                Set rng2 = rng
                If rng.Value = str1 Then
                    rng1.Resize(1, 2).Value = rng.Offset(0, 1).Resize(1, 2).Value
                    Exit For
                End If
            Next
            If rng2.Row = aa And rng2.Value <> str1 Then
                bb = MsgBox("代码未指定，指定点确定，重输按取消！", vbOKCancel)
                If bb = vbOK Then
                    rng2.Offset(1, -1) = rng2.Offset(0, -1) + 1
                    rng2.Offset(1, 0).Value = str1
                    Target.Resize(, 2).Value = ""
                    Target.Range("a1").Select
                    Sheets("代码").Activate
                    rng2.Offset(1, 1).Activate
                    Application.EnableEvents = True
                    Exit Sub
                Else
                    Target.Resize(, 2).Value = ""
                    Target.Range("a1").Select
                    Application.EnableEvents = True
                    Exit Sub
                End If
            End If
        ElseIf str1 = "" Then
            rng1.Offset(0, 1).Value = ""
        End If
    End If
Next
Application.EnableEvents = True
End Sub

trustwxq

当单元格内输入非单个字母，非空的内容是，他不变，应该在
ElseIf str1 = "" Then
            rng1.Offset(0, 1).Value = ""
        End If

后再加一个ELSEIF.

shiyajun