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

zznjcs · 发表于 2009-9-30 13:50

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

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

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

zznjcs · 发表于 2009-9-30 14:11

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 · 发表于 2009-9-30 14:39

原帖由 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 · 发表于 2009-9-30 15:15

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

kaka大魔头 · 发表于 2009-9-30 15:26

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

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

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

还是这篇赞！

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

woshijin · 发表于 2009-9-30 16:29

想学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 · 发表于 2009-9-30 22:23

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

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

trustwxq · 发表于 2009-10-1 09:25

无限循环的问题，和多个单元格内容添加、删除的问题已经解决，特别是添加时将一列代码向I列复制后，乡镇名称，和乡镇代码一下就出来一片，非常方便，心里也感觉好有成就感，呵呵~~

trustwxq作业-信息录入一举两得.rar (16.69 KB, 下载次数: 870)
程序代码：
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 · 发表于 2009-10-1 09:46

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

后再加一个ELSEIF.

shiyajun · 发表于 2009-10-1 13:20

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

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

回复 zznjcs 的帖子

想学VBA,

回复 635楼 ggsmart 的帖子

再次上交作业，谢谢老师指点！

啊哦，发现了一个小问题，不过好解决！

太感谢你了