北京 [ 更换 ]
热门城市
北京上海广州深圳成都杭州南京武汉天津西安重庆青岛沈阳长沙大连厦门无锡福州济南宁波昆明苏州郑州长春合肥南昌哈尔滨常州烟台南宁温州石家庄太原珠海南通扬州贵阳东莞徐州大庆佛山威海洛阳淮安呼和浩特镇江潍坊桂林中山临沂咸阳包头嘉兴惠州泉州三亚赣州九江金华泰安榆林许昌新乡舟山慈溪南阳聊城海口东营淄博漳州保定沧州丹东宜兴绍兴唐山湖州揭阳江阴营口衡阳郴州鄂尔多斯泰州义乌汕头宜昌大同鞍山湘潭盐城马鞍山襄樊长治日照常熟安庆吉林乌鲁木齐兰州秦皇岛肇庆西宁介休滨州台州廊坊邢台株洲德阳绵阳双流平顶山龙岩银川芜湖晋江连云港张家港锦州岳阳长沙县济宁邯郸江门齐齐哈尔昆山柳州绍兴县运城齐河衢州太仓张家口湛江眉山常德盘锦枣庄资阳宜宾赤峰余姚清远蚌埠宁德德州宝鸡牡丹江阜阳莆田诸暨黄石吉安延安拉萨海宁通辽黄山长乐安阳增城桐乡上虞辽阳遵义韶关泸州南平滁州温岭南充景德镇抚顺乌海荆门阳江曲靖邵阳宿迁荆州焦作丹阳丽水延吉茂名梅州渭南葫芦岛娄底滕州上饶富阳内江三明淮南孝感溧阳乐山临汾攀枝花阳泉长葛汉中四平六盘水安顺新余晋城自贡三门峡本溪防城港铁岭随州广安广元天水遂宁萍乡西双版纳绥化鹤壁湘西松原阜新酒泉张家界黔西南保山昭通河池来宾玉溪梧州鹰潭钦州云浮佳木斯克拉玛依呼伦贝尔贺州通化朝阳百色毕节贵港丽江安康德宏朔州伊犁文山楚雄嘉峪关凉山雅安西藏四川广东河北山西辽宁黑龙江江苏浙江安徽福建江西山东河南湖北湖南海南贵州云南陕西甘肃青海台湾内蒙古广西宁夏香港澳门
培训资讯网 - 为兴趣爱好者提供专业的职业培训资讯知识

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

学习 学习方案 成长 收获

如何学习VBA?一直是大家关心的话题,这里我梳理了自己多年从事VBA应用的经验,分享给大家。也突出了我编程思想:积木编程。

我给VBA的应用定义:VBA是实现个人小型数据自动化的有效工具(手段),这里的介绍都是我的经验之谈,VBA的重点就是应用,用于实现自己的数据自动化处理。今日的内容是第40讲:VBA语言学习的历程。

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

3.3.6 VBA语言学习的历程

---------为什么要学习VBA?

VBA是一种编程语言,它依托于Office软件,可以实现各种Office软件操作的自动化。也就是说,只要我们用Office软件,如EXCEL、WORD也就是有了应用VBA的理由。为什么用VBA呢?其实最初的很多朋友都有一个共同的理由“因为我懒啊”,说句实在话,这确实是最初学习VBA的理由。但当你学了一段时间后,特别是可以熟练地应用数据库,与人机的交互操作后,你的境界会提高了很多。这时的VBA不再是你偷懒的理由了。

3.3.6.1 初用VBA,真的是因为我懒

最初用VBA的人员很多是因为数据的处理十分繁琐,复制、粘贴、LOOKUP,等等,很繁琐、很烦。VBA可以实现Excel中没有提供的功能,提高运行速度,而且通过编写自定义函数可以实现自己的定制,可以实现办公的自动化功能。

世界上不存在完美的事物,同样也不存在完美的软件。虽然微软通过升级在不断地完善Office系列软件的功能,使其标准功能可以满足日常绝大部分的应用。但在这个娑婆世界里,我们的欲望是无止境的。于是微软便聪明地整合了VBA到它的产品中,给用户留下了可以自行去定义属于自己需求的软件的可能性(WPS还需要继续努力啊)。

下面就是一个实例:某药店的大库现场盘点,人员很多,每个人原则上负责一个区域,盘点后每人都把自己盘点的数据交到了你的手上,但给你的信息是:肯定全部都点到了,但数据有重复的,怎么办?这就要求你在大量的数据中把那些重复的数据删除,怎么办呢?

我们假设数据如下:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

如果能在这么多的数据中找到重复的数据,那绝对是眼力的体操,我们怎么解决?

打开《VBA代码解决方案》第一册:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

拷贝出内部的代码到WORD文档:

Sub MyDeleteRow()

Dim R As Integer

Dim i As Integer

With Sheets("sheet9")

R = .[A65536].End(xlUp).Row

For i = R To 1 Step -1

If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then

.Rows(i).Delete

End If

Next

End With

End Sub

下面我们要对上面的代码进行分析修正了:

上面的代码中

① With Sheets("sheet9") 更正为With Sheets("sheet1") ,因为我的数据是在"sheet1"的工作表中

② If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then

.Rows(i).Delete

End If

判断的是只有第一列重复,就删除,我们根据实际情况,在盘点时,药品+批次应该是唯一的,所以我们的对策是在工作表的E列做个公式:B列&C列,同时上面的代码成为;

If WorksheetFunction.CountIf(.Columns(5), .Cells(i, 5)) > 1 Then

.Rows(i).Delete

End If

最后看我们的实际工作表:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

代码:

Sub MyDeleteRow()

Dim R As Integer

Dim i As Integer

With Sheets("sheet1")

R = .[A65536].End(xlUp).Row

For i = R To 1 Step -1

If WorksheetFunction.CountIf(.Columns(5), .Cells(i, 5)) > 1 Then

.Rows(i).Delete

End If

Next

End With

End Sub

截图:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

运行时点击上面的红色圆圈框住的运行钮。

运行后的结果:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

上面是不是很简单呢?或许你说还有其他的办法,但对于大量的数据来讲,VBA作为一个非常实用的方案,也是确实值得采用的。

3.3.6.2 学习VBA到了一定的水平之后,实现自动化办公,会成为你的学习的动力。

Office本身一些功能的细节和控制确实不能完全满足我们的要求,如数据透视表(Pivot Table),那个数据汇总,怎么看怎么别扭,别急,这个时候你要考虑VBA了。电脑不是人脑,至少目前还取代不了,但我们可以通过控制实现我们的需求:比如说文件名和文件结构的操作;文件的删除;自动检查数据的有效性;数据的查找;查到数据后的处理;鼠标右键的控制;文件的导入导出;数据录入的即时校验;建立独立的窗体录入;数据库文件的操作;文件中图形的处理等等。

当你再深入的学习时,追求的是自动化和视觉并用了,比如我要做一个欢迎的界面,欢迎朋友们学习VBA:

我们打开《VBA代码解决方案》第二册:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

拷贝出代码到WORD:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

我们为了实现上述代码在ACTIVE SHEET中自动运行,我们把上述代码放在Worksheet的Activate方法里并且把上面的程序略作修改:

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Worksheet_Activate()

Dim sTest As String

Dim i As Integer

sTest = "欢迎你学习VBA,利用VBA,<VBA代码解决方案>会带给你学习的快乐!"

For i = 1 To Len(sTest)

Range("A1").Value = Left(sTest, i)

Sleep 200

Next

End Sub

截图如下:

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

好了,我们把工作薄的焦点放到sheet1工作薄,然后再返回到sheet3工作薄,看看运行的效果:

这样的视觉效果是不是很值得深入地去学习呢?

当你开始学习VBA,在你的工作中,不久的将来,VBA语言一定会成为你工作中不可或缺的一部分。

VBA成长历程,一路学习,一路收获(VBA学习方案系列讲座之40讲)

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

第7套教程(三册):VBA之EXCEL应用

第1套教程(三册):VBA代码解决方案

【第4套教程(16G):VBA代码解决方案之视频(第一套的视频讲解)】

第3套教程(两册):VBA数组与字典解决方案

第2套教程(两册):VBA数据库解决方案

第6套教程(两册):VBA信息获取与处理

第5套教程(两册):VBA中类的解读和利用

第8套教程(三册):VBA之Word应用(最新教程)

上述教程的学习顺序:

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

  • 如何学习VBA呢? 概括的说就是: 学习过程中要信、解、受、持,更要有回向的业力。无论您在学习的任何阶段,都要对照教程的知识点加持自己的实际工作,总会有丰厚的收获。
  • 教程学习顺序是7,1(或4),3,2,6,5。如果想学习WORD VBA选择8.第7套《VBA之Excel应用》是对VBA基本的讲解;第1(或4)套《VBA代码解决方案》是《VBA之Excel应用》的提高;第3套《VBA数组与字典解决方案》是VBA应用的专题讲解,教程中讲解的专题是数组和字典,大家会在这套教程中看到非常全面的数组与字典的应用;第2套《VBA数据库解决方案》也是VBA应用的专题讲解,教程讲解的专题是数据库,大家会在这套教程中看到VBA连接Excel与accdb的全面应用;第6套《VBA信息获取与处理》是整个VBA应用的提高;第5套《VBA中类的解读及应用》是VBA的最高理论“类”“接口技术”的讲解。第8套教程《VBA之Word应用》是对WORD vba应用的专业讲解,是紧扣面向对象编程的讲解,建议在第7套教程之后学习。

相关知识

相关内容

725人参加!这场培训倡议“争做齐鲁未来教育家”!

近日,齐鲁名师名校长名班主任建设工程(2022-2025)师德涵养主题培训暨课题开题指导活动在曲阜市举办。培训班以弘扬教育家精神为主题,组织开展了专题讲座引领、浸润式师德涵养现场教学、研修课题开题与指导等培养活动。全国知名教育学家、中国教育···

欢迎台生报名!300个免费名额,直通全球最大AI训练营!

全球最大的AI培训班来了!中国高校人工智能人才国际培养计划昨日在北京大学启动!未来一个多月内将在全国重点计算机高校中筛选100名老师300名学生参加2018年培养计划图灵奖得主John E. Hopcroft深度学习发明人Geoffrey ···

第三期中证隰县基层干部乡村振兴能力培训班在杭举办

中国日报11月15日北京电 2021年11月8日-13日,“第三期中证·隰县基层干部乡村振兴能力培训班”在浙江大学华家池校区开班,本期培训班由中国证券业协会、中国扶贫基金会、隰县人民政府联合举办,此次培训有来自隰县的68名基层干部参加,中国···

京蒙苏豫涉外法律服务专题培训班圆满结束

由北京市司法局、内蒙古自治区司法厅、江苏省司法厅、河南省司法厅及四省区市律师协会共同主办,内蒙古自治区司法厅和律师协会承办的“京蒙苏豫涉外法律服务研讨会暨专题培训班”于11月2日圆满完成所有课程,顺利结束。来自北京、江苏、河南和内蒙古的12···

给校外培训“立规矩” 让“野机构”无处遁形——教育界别省政协委员建言加强校外培训机构管理

连续几日,北京知名舞蹈培训机构——天鹅湖畔少儿芭蕾一夜之间关闭全市门店上了热搜,与之相关的退费难、卷钱跑路等话题也不绝于耳。记者发现,类似的现象,在全国比比皆是。“这位家长,请了解一下我们古筝培训班,今日报名一律5折;街舞团一次缴一年费用,···

京蒙苏豫涉外法律服务专题培训班在满洲里市开班

11月1日,由北京、内蒙古、江苏、河南司法厅(局)及四地律师协会主办的京蒙苏豫涉外法律服务专题培训班在内蒙古自治区满洲里市正式开班。本次培训班是贯彻习近平总书记关于加强涉外法治建设相关指示的重要实践,是响应和落实司法部党组对广大律师提出的“···

第三批北京市优秀社区社会工作专业人才培训试点推进会暨京台社区社会工作专题培训会在京台两地连线举办

2022年7月20日上午,由北京市台办、市社工委市民政局主办的“第三批北京市优秀社区社会工作专业人才培训试点推进会暨京台社区社会工作专题培训会”在京台两地连线开启,台湾地区社会工作专家及北京优秀社会工作者200余人参加。▲张霄林分享参加培···

【预告】就在明天!西山区2023年第二期线上家庭教育培训

西山区2023年第二期线上家庭教育培训家庭教育在未成年人成长发展中具有不可替代的重要作用是促进未成年人健康成长、推进社会主义和谐社会建设的重要基础为在家庭中大力倡导和谐理念、培育和谐精神,提高家长的思想道德素质和科学教育子女的能力,在全社会···

北京冬奥会圆满成功 澳门各界倍感自豪

来源:央视新闻20日晚上,不少澳门市民相约一起收看了北京冬奥会闭幕式的现场直播,共同回味本届冬奥赛事的难忘瞬间。澳门体育教师协会会长 老杰龙:这次冬奥会的成功举办再一次展示了我们国家的伟大和强大,在我们的运动员里面也有很多的突破,例如这一次···

校外培训行业迎来强监管,“教育 区块链”新模式试图解决行业痼疾

华夏时报(www.chinatimes.net.cn)记者 王永菲 冉学东 北京报道近两个月,以校外培训为主要业务的教辅行业迎来密集监管。从诸如高思、跟谁学、学而思等多个头部教育机构被顶格罚款的行政处罚,到教育部成立校外教育培训监管司,校外···

建场地、做培训、打造IP,室内滑雪紧握冬奥接力棒

近年来,室内滑雪市场发展迅速。截至2020年年底,中国室内滑雪场数量为36家,位居全球第一。后冬奥时代,室内滑雪该如何大显身手?2020年室内滑雪场数量超2013年7倍2月20日,北京冬奥会正式闭幕,冰雪运动市场仍在快速发展。据文旅部相关调···

全国公安机关领导干部学习宣传贯彻党的二十大精神政治培训班成功举办

深入学习宣传贯彻党的二十大精神,是当前和今后一个时期全国公安机关的首要政治任务。新时代新征程,如何切实把广大公安民警的思想和行动统一到党的二十大精神上来?如何进一步加强公安机关领导干部队伍政治建设和忠诚教育?公安部党委统筹谋划、孜孜不倦。1···

枫叶教育亏损超31亿;北京首批线上学科培训非营利牌照仍在民政审批中|一周教育要闻

实习记者|陈振芳本周,教育机构方面,“学而思转型的非营利机构未能通过审批。”言论在社交媒体发酵,北京首批线上学科培训非营利牌照仍在民政审批中,尚未获得许可证;“早教第一股”美吉姆重庆两加盟店陷跑路传闻,美吉姆称,预计两周内能够正常上课;苹果···

京保扶贫协作结硕果,北京三年帮河北阜平培训1483名教师

在京保扶贫协作推进中,北京不断加大对保定阜平县的教育资金投入和支持力度,全方位推动阜平教育质量提升。3年来,利用京冀扶贫协作资金,北京已帮助阜平县培训了1483名中小学及幼儿园教师。据了解,阜平职教中心与北京市物业管理行业协会5家会员企业,···

最新!校外培训七大违规行为将被重罚,一图解读

“双减”改革实施两年以来,擅自举办校外培训机构、隐形变异开展校外培训等问题仍不同程度存在,个别机构“卷款跑路”问题仍零星发生,人民群众合法权益仍不时受到损害,为此,教育部组织成立了调研组,先后赴北京、天津、上海、山东、江苏、江西、浙江等实地···

夏宝龙在北京师范大学亲切看望来京学习的香港中小学校长和教师

夏宝龙在北京师范大学亲切看望来京学习的香港中小学校长和教师 主办方供图中新网北京5月18日电(记者 高凯)5月16日上午,国务院港澳事务办公室主任、党组书记夏宝龙来到北京师范大学亲切看望参加“香港中小学校长领导研习班及新入职教师内地学习团联···

白银市举办推进国家公共文化服务体系示范区创新发展暨公共文化高质量发展培训班

为了给全市推进国家公共文化服务体系示范区创新发展工作搭建一个交流学习、开阔视野的高质量平台,7月17日,白银市举办推进国家公共文化服务体系示范区创新发展暨公共文化高质量发展培训班。本次培训班结合白银市推进国家公共文化服务体系示范区创新发展暨···

义务教育阶段线下学科类培训机构压减率超九成

义务教育阶段线下学科类培训机构压减率超九成教育是国之大计、党之大计,教育兴则国家兴,教育强则国家强。“我国有2.9亿在校学生,要坚持把教育这个关乎千家万户和中华民族未来的大事办好。”今年的政府工作报告提出,要促进教育公平与质量提升,继续做好···

非学科类培训行业性增长:门店增加、课程上新、业绩翻红

21世纪经济报道记者王峰北京报道 教育上市公司陆续发布半年报,青少年非学科类校外培训率先复苏,取得行业性增长。21世纪经济报道梳理发现,有的公司营收显著增长,有的公司利润扭亏为盈;有的公司招收人数回暖,有的公司开始扩张教学中心。新东方、好未···

努力当好乡村振兴“领头雁”——全国村党组织书记和村委会主任视频培训班侧记

新华社北京5月15日电 题:努力当好乡村振兴“领头雁”——全国村党组织书记和村委会主任视频培训班侧记新华社记者冯家顺、丁小溪“培训内容丰富实用,抓党建促乡村振兴方向更明、办法更多”“提升领导能力,打造群众信得过的‘铁班子’”“学习先进典型,···