ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
一招顶“一万招”的懒人技巧 Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: ggsmart

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

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-9-30 11:03 | 显示全部楼层
本帖已被收录到知识树中,索引项:开发帮助和教程
原帖由 trustwxq 于 2009-9-29 22:19 发表
谢谢ggsmart在635楼的讲解,看了以后有一种感觉叫大彻大悟,真好!ggsmart是真正的高手,讲解的非常细致,而且很透彻。听课还是要听当老师的讲的课,因为老师知道如何讲、重点在什么地方!

呵呵,有同感。

TA的精华主题

TA的得分主题

发表于 2009-9-30 13:50 | 显示全部楼层
原帖由 ggsmart 于 2009-9-29 17:04 发表

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

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

TA的精华主题

TA的得分主题

发表于 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函数这一句,为什么会出现?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-9-30 14:39 | 显示全部楼层

回复 zznjcs 的帖子

原帖由 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 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-9-30 15:15 | 显示全部楼层
哦,这下明白了,多谢楼主.
祝各位节日愉快.!!!!!!

TA的精华主题

TA的得分主题

发表于 2009-9-30 15:26 | 显示全部楼层
网上找了好多教程,这篇最好了~~!真正的入门,最关键是易懂~

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

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

还是这篇赞!

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

TA的精华主题

TA的得分主题

发表于 2009-9-30 16:29 | 显示全部楼层

想学VBA,

想学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页

TA的精华主题

TA的得分主题

发表于 2009-9-30 22:23 | 显示全部楼层

回复 635楼 ggsmart 的帖子

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

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

TA的精华主题

TA的得分主题

发表于 2009-10-1 09:25 | 显示全部楼层

再次上交作业,谢谢老师指点!

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

TA的精华主题

TA的得分主题

发表于 2009-10-1 09:46 | 显示全部楼层

啊哦,发现了一个小问题,不过好解决!

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

后再加一个ELSEIF.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2021-5-16 17:49 , Processed in 0.066580 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表