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

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

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

我给VBA的应用定义:VBA是实现个人小型数据自动化的有效工具(手段),这里的介绍都是我的经验之谈,VBA的重点就是应用,用于实现自己的数据自动化处理。今日的内容是第39讲:从初学到精进的方法。

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

3.3.5 VBA代码高手之路

------我们一起“搭积木”,做游戏,就这么简单

如何写VBA代码,一直在有朋友向我询问这个问题,其实,写代码要有“搭积木”的思想:首先要有大量的资源,也就是积木的原型,什么是积木呢?就是各自能单独解决一个或几个小问题的单元,当你要解决新的问题时,就可以利用这些积木,将他们摆放在合适的位置,形成新的代码方案,这就是我推广的解决实际问题的思想。

写代码并不难,成为代码高手也不难,在这种思路的指引下,你很快也会成为高手。我会在文章中逐步地讲解这种思想,和大家分享。教给大家如何去摆放积木,如何利用积木。这些积木是《VBA代码解决方案》中的每一讲内容,朋友们也可以自己在平时多积累,多总结,让自己的积木越来越多。

今天就带大家利用这套教材的内容完成一个稍微复杂的程序制作,需求如下:

1.首先用户要和计算机进行对话,用户将录入一个人名的数据。

2.VBA程序要根据用户的需求,在工作“数据1”的工作表中进行A列的完全匹配查找(为了减少篇幅,我设定是唯一的值)。

3.找到数据后,要把数据导出到一个文本文件,反馈给用户。

上述的过程其实是很多地方大家都会看到的,或者有这类程序的影子,只不过要比上面的要求复杂些,我这里就只讲些方法,具体的应用是千差万别的,让读者自己发挥吧。

为了实现上述的三个需求我们设计如下的步骤:

步骤1 :利用INPUTBOX 函数进行人机对话

步骤2:利用FIND 函数进行查找

步骤3:利用CreateTextFile方法创建文本文件反馈,作为客户的需求。

思路有了,下面要准备我们的“积木”了,打开《VBA代码解决方案》第一册:找到第40讲和第7讲:打开《VBA代码解决方案》第二册: 找到第77讲或78讲

分别复制出上述第40、第7、 第77讲的代码如下:

第40讲inputbox代码:(积木1)

Sub MyInputBox()

Dim sInt As String

Dim r As Integer

r = Sheet1.Range("A65536").End(xlUp).Row

sInt = InputBox("请输入添加人员的姓名:")

If Len(Trim(sInt)) > 0 Then

Sheet1.Cells(r + 1, 1) = sInt

Else

MsgBox "您没有输入内容!"

End If

End Sub

第7讲find代码:(积木2)

Sub myFind()

Dim StrFind As String

Dim Rng As Range

StrFind = InputBox("请输入要查找的值:")

If Trim(StrFind) <> "" Then

With Sheet1.Range("A:A")

Set Rng = .Find(What:=StrFind, _

After:=.Cells(.Cells.Count), _

LookIn:=xlValues, _

LookAt:=xlWhole, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

If Not Rng Is Nothing Then

Application.Goto Rng, True

Else

MsgBox "没有找到该单元格!"

End If

End With

End If

End Sub

第77讲CreateTextFile方法代码:(积木3)

Sub MyCreText()

Dim MyFile As Object

Dim myStr As String

Dim j As Integer, i As Integer

Set MyFile = CreateObject("Scripting.FileSystemObject") _

.CreateTextFile(ThisWorkbook.Path & "\" & "人员表单.txt", True)

For i = 1 To Range("A65536").End(xlUp).Row

myStr = ""

For j = 1 To Range("IV" & i).End(xlToLeft).Column

myStr = myStr & Cells(i, j) & ","

Next

myStr = Left(myStr, (Len(myStr) - 1))

MyFile.WriteLine (myStr)

Next

MyFile.Close

Set MyFile = Nothing

End Sub

我们的积木就准备好了,当然这些积木读者要了然于胸啊,这样才能快速地找到。下面我们要搭建积木了,我们注意到上述第二块积木中第7讲FIND函数的代码中包含了第一块积木中第40讲的INPUTBOX的代码,那么这就可以略去了第40讲的内容了,把积木1扔掉,用积木2和3即可,直接把积木2FIND的代码拷贝如下,同时为了看清楚,修正一下格式:

Sub myFind()

Dim StrFind As String

Dim Rng As Range

StrFind = InputBox("请输入要查找的值:")

If Trim(StrFind) <> "" Then

With Sheet1.Range("A:A")

Set Rng = .Find(What:=StrFind, _

After:=.Cells(.Cells.Count), _

LookIn:=xlValues, _

LookAt:=xlWhole, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

If Not Rng Is Nothing Then

Application.Goto Rng, True "找到值后将执行的操作

Else

MsgBox "没有找到该单元格!"

End If

End With

End If

End Sub

对上述代码进行分析:上述代码中查找值后将执行的是: Application.Goto Rng, True 操作,而我们要求执行的是数据的导出操作,那么好了,就把上述Application.Goto Rng, True 操作换成代码77讲的内容就OK了。

下面为修正后的代码及其注释:

Public myhs As Integer "设置全局变量,用来传递找到了要找的人名时记录该单元格的行数

Sub myFind()

Dim StrFind As String

Dim Rng As Range

StrFind = InputBox("请输入要查找的人名:") "步骤1 利用INPUTBOX 函数进行人机对话

If Trim(StrFind) <> "" Then "要求用户录入的数据不能为空值

With Sheets("数据1").Range("A:A") "此处修正了工作表的名称

"完全匹配查找,完成步骤2 利用FIND 函数进行查找

Set Rng = .Find(What:=StrFind, _

After:=.Cells(.Cells.Count), _

LookIn:=xlValues, _

LookAt:=xlWhole, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

If Not Rng Is Nothing Then

myhs = Rng.Row "设置传递函数,当找到了要找的人名时记录该单元格的行数

MyCreText "如果找到了用户要求的人名将进入MyCreText过程

Else

MsgBox "没有找到该人名!"

End If

End With

End If

End Sub

Sub MyCreText() "如果找到了用户要求的人名将执行步骤3 利用CreateTextFile方法创建文本文件作为客户的需求。

Dim MyFile As Object

Dim myStr As String

Dim j As Integer ", i As Integer I的变量去掉,用了Myhs

Set MyFile = CreateObject("Scripting.FileSystemObject") _

.CreateTextFile(ThisWorkbook.Path & "\" & "人员资料.txt", True) "把要输出的文件名称修正为人员资料

" For i = 1 To Range("A65536").End(xlUp).Row "此行代码去掉,因为值是唯一的

myStr = ""

For j = 1 To Range("IV" & myhs).End(xlToLeft).Column

myStr = myStr & Cells(1, j) & ":" & Cells(myhs, j) & ", " "此处修正代码加入输出数据的抬头

Next

myStr = Left(myStr, (Len(myStr) - 1))

MyFile.WriteLine (myStr)

"Next "此行代码去掉,因为值是唯一的

MyFile.Close

Set MyFile = Nothing

MsgBox ("OK") "添加程序完成的提示

End Sub

代码截图:

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

在上述的讲解中你会发现,有了这些“积木”,代码只是改了改。改动的幅度很少,这样节约了你大量的时间。

下面我们看代码的执行:

数据1工作表的截图,我们要查找的是A115:

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

运行后提示输入要查找的人名:

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

运行结束:

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

运行结果显示:

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

再次重申一点,做程序就如同搭积木,尽可能不要去写代码,当你要解决新的问题时,你首先要有自己的解决思路,然后,在你的积木库房中把你需要的积木块拿出来,余下的问题就是把你拿出的积木组合好,有的还会修正一下,就这么简单。

我的《VBA代码解决方案》中会有各式各样的独立的积木,给你分享,给你利用。当然你要弄懂每讲的内容才能运用自如,才能组合、才能结合实际的问题修正。

“积木编程”与VBA代码精进(VBA学习方案系列讲座之39讲)

我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套教程之后学习。

相关内容

怎么学?如何干?西藏7市(地)委书记在西藏日报发表文章

启航新征程 开创新局面为全面建设社会主义现代化新拉萨努力奋斗自治区党委常委、拉萨市委书记 普布顿珠党的二十大大笔擘画坚持以中国式现代化全面推进中华民族伟大复兴的宏伟蓝图,区党委十届三次全会全面铺开建设美丽幸福西藏、共圆伟大复兴梦想的壮阔实践···

2023年全区智慧旅游专业人才培训班圆满结业

6月2日,自治区旅游发展厅主办的全区智慧旅游专业人才培训班在拉萨圆满结业。培训共历时三天,累计完成全区旅游行政管理部门工作人员及涉旅企业专业技术人员培训100人。本次培训是区旅发厅深入推进学习贯彻习近平新时代中国特色社会主义思想主题教育重要···

徐汇萨迦共同举办大美西藏首届口腔学习班

随着现代医学的发展,口腔健康越来越受到人们的关注,为提高西藏地区口腔技术水平和服务质量,近日,徐汇区牙病防治所和萨迦县中心医院远程连线共同举办首届口腔学习班开班仪式。徐汇区卫生健康委副主任胡强,上海援藏干部、萨迦县委常务副书记、常务副县长沈···

自觉抵制“一对一”“一对多”等学科类培训!哈尔滨中小学生暑期预警来了

17日,记者从哈尔滨市各区教育局获悉,2023年暑假将至,南岗区、道里区、香坊区教育局向家长发出预警,自觉抵制违规培训,各区义务教育阶段学科类培训机构已经全部注销,暑假期间以任何形式开展的学科类培训均属于违规培训。家长要自觉抵制任何机构或个···

哈尔滨市道里区企投局举办“招商大讲堂”专题培训

黑龙江网讯(记者 王惠婷)10月24日,哈尔滨市道里区企投局组织开展“招商大讲堂”专题培训班,全区各招商专班负责同志及业务骨干参加培训。本次培训从实际需求出发,紧紧围绕当前招商工作中的热点、难点,对“什么是招商引资”“道里区的产业结构和主导···

团黑龙江省委举办全省青年文明号青年岗位能手学习宣传贯彻党的二十大精神培训交流会

中国青年报客户端讯(李海涛)为深入学习贯彻党的二十大精神,充分发挥青年文明号、青年岗位能手示范引领作用,在全省职业青年中掀起学习党的二十大精神热潮,11月22日,团黑龙江省委举办全省青年文明号青年岗位能手学习宣传贯彻党的二十大精神培训交流会···

辽宁葫芦岛举办外贸政策培训会推动外贸保稳增量

辽宁省葫芦岛市外贸政策培训会4月3日举办。 辽宁省贸促会供图中新网葫芦岛4月3日电 (李晛)辽宁省葫芦岛市外贸政策培训会4月3日举办。本次活动由辽宁省贸促会支持、葫芦岛市商务局主办,葫芦岛市贸促会、葫芦岛海关、中国出口信用保险辽宁分公司和辽···

山西运城:严查无证校外培训机构 查封9家警告2家

新华社太原8月5日电(记者王飞航)记者从山西省运城市政府了解到,运城市教育局近日联合市公安局等多家单位,对中心城区无证校外培训机构进行了一次突击检查,共检查了13家校外培训机构,查封9家,警告2家,发放整改通知书4份。今年7月,运城市教育局···

山西开展培训筑牢森林“防火墙”

山西新闻网3月30日讯(记者 卢奕如)今日,记者从山西省应急管理厅获悉,全省举办森林草原防灭火业务培训,邀请专家以视频会议形式,围绕森林扑火指挥实操、森林草原火灾防控经验做法、火灾现场各级各类指挥员具体操作中遇到的问题等内容进行授课。培训内···

校外培训机构治理工作取得进展 山西停办近1300所

资料图:小学生排队等待进入校园。中新社记者 刘文华 摄中新网5月11日电 据教育部网站消息,按照校外培训机构专项治理工作整体安排,教育部、民政部、国家市场监管总局启动了校外培训机构治理专项督查工作。5月9日至10日,督查组率先在北京市开展华···

山西综改区举办省技术创新中心申报培训

  8月18日,山西综改区科技金融部举办2023年度省技术创新中心申报培训会,来自区内企业、科研院所及有关单位代表160余人参加了培训。  山西省技术创新中心是以产业前沿引领技术和关键共性技术研发为核心的产业技术创新平台,承担着为区域和产业···

山西汾阳医院开展健康教育与控烟知识培训

来源:【吕梁日报-吕梁新闻网】本报讯 (记者 刘少伟) 5月18日,在“世界无烟日”到来之际,山西汾阳医院组织开展健康教育与控烟知识培训。近年来,山西汾阳医院全面落实健康中国战略,根据国家卫健委《关于2011年起全国医疗卫生系统全面禁烟的决···

山西省文物局年度田野考古技术培训班开班

10月10日,山西省文物局在运城闻喜上郭城址、邱家庄墓群举办2023年度田野考古技术培训班开班仪式。该次培训为期三个月,通过理论和实践两部分教学,旨在推进山西考古工作高质量发展,提升考古业务人员专业技术水平。本次培训由山西省考古研究院和山西···

最低每课时9元!全省学科类校外培训课时长和收费标准出台

近日,山西省发改委、省教育厅下发《关于中小学学科类校外培训收费标准及有关事项的通知》,明确全省中小学学科类校外培训收费标准,从12月17日起执行。《通知》对全省线上线下学科类校外培训基准收费标准和浮动幅度制定了科学标准。其中,义务教育阶段线···

山西天镇 阳光职业培训学校培养乡村“新农人”乡村振兴添动能

(记者 贺文生) 山西天镇县阳光职业培训学校紧紧围绕乡村振兴战略,按照“政府引导、农民自愿、立足产业、突出重点”的原则,创新高素质农民技能培训方式方法,采取以“授人以渔”的方式,让人才振兴成为助推农业农村现代化的内生动力,以高素质农民引领现···

山西:建立全过程 全链条 无缝隙安全培训制度

黄河新闻网讯(记者杨江涛)日前,山西省应急管理厅下发了《山西省安全培训管理暂行办法》(以下简称《办法》)。我省将进一步抓好安全生产这个基本盘、基本面,推动全省安全培训工作制度化、规范化、科学化,促进安全培训工作高质量发展。山西省应急管理厅厅···

山西:艺考培训机构纳入全国监管平台管理

央广网太原10月6日消息(记者郎麒) 日前,山西省教育厅、省发改委、省公安厅等部门联合制定《加强面向高中阶段学生艺考培训规范管理工作方案》,针对艺考培训的突出特点和实际情况,全面规范艺考培训行为,将艺考培训机构统一纳入全国校外教育培训监管与···

太平财险阳泉中支开展消防安全教育和有限空间作业培训

为强化员工安全意识,进一步提升员工消防和有限空间突发事件应急处理能力,9月14日,太平财险阳泉中支邀请北京市卫民安消防教育咨询中心山西分中心讲师向全体员工开展了一次消防安全教育和有限空间作业课程培训。按照防消结合、预防为主的原则,本次讲座通···

山西省数字化转型贯标试点工作宣贯培训会在太原举行

  10月20日消息,山西省数字化转型贯标试点工作宣贯培训会在太原举行。省工信厅介绍,作为国家数字化转型贯标试点省份,试点启动后将引导企业加快数字化转型,助力制造业高端化、智能化、绿色化发展。  今年,工信部启动数字化转型贯标试点工作,我省···

山西马兰花创业培训讲师大赛收官 太原市获多个奖项

山西新闻网8月31日讯(记者 冯耿姝)8月29日,山西省第四届马兰花创业培训讲师大赛圆满收官,太原市代表队在比赛中分获多个二、三等奖和优秀奖。本届大赛以“启迪创新思维·激发创业梦想”为主题,全省共有56名教师晋级复赛,其中,太原市有7名选手···