VBA是什么 初学者必知的VBA自学钢琴入门怎么学知识？

来源：蜘蛛抓取(WebSpider) 时间：2023-06-17 15:13 标签： 自学钢琴入门怎么学
VBA，英文全称Visual Basic for Applications，直接翻译过来叫做“可以直接使用的VB语言”。本文介绍VBA在Access数据库中的作用和学习方法。一、VBA是什么？VBA衍生于VB语言，主要应用于微软Office大礼包的各项组建之中。（Excel和Access应用VBA较多）Access需要VBA来实现自动化VB语言是正牌的专业编程语言，是微软公司的看家语言之一，和C语言高低搭配、相得益彰。VBA和VB语言二者是包含关系，二者除了使用场景不同，语法基本相同。学习VBA也基本可以等同于学习VB。通过学习VBA了解编程入门知识，对编程产生兴趣并且入门的人也绝不在少数。需要澄清的是，VB语言没有消亡，VB系列语言（VB.net，VBA）仍然是十大主流编程语言之一，至今仍然在各条战线上（尤其是工业战线）发挥重要作用。不夸张的讲，学习VB语言的性价比，尤其是对于非IT从业者的性价比，超出Java、Python等语言，雄踞各主流编程语言之首。与VB的应用场景不同，VBA主要服务于Office各大软件，正如我所说的，VBA（包括封装好的宏）是Office各项技术中最有技术含量的一项。VBA不仅是Office软件实现办公自动化的重要一环，也是微软Office办公软件技术雄霸世界的标志，很难超越。VBA的存在，足以说明微软公司是一家试图打破编程领域专业和非专业壁垒的伟大公司（目前来看前无古人，后面有没有来者不好说）。Access数据库内置的VBA语言，非常的实用和强大，但是有一定的学习难度，是Access数据库入门五项技术中最难的一项。二、VBA有什么用？对于Access数据库来说，它的VBA主要有两个作用：1.控制窗体2.进行各种计算VBA第1个作用，是控制Access数据库的窗体。这项技术是Access数据库入门的基础技术，是开始Access入门学习的女同学所必须掌握的。这部分知识，严格的意义来说并不是VBA技术的核心部分，难度也还算可以（和表、查询、报表技术相比略难），基本不涉及到变量和函数封装的知识。只需要掌握一些基础的窗体控制VBA技巧，就能让Access数据库威力倍增。以下是一些常用的VBA使用范例：1.窗体刷新。窗体刷新是实现窗体自动化的最常用VBA语句，me.refresh可以说在Access的VBA中无处不在。2.窗体最大化、打开、关闭。3.各种组件的控制。比如文本框、列表框的清空等等。4.表中各项记录的控制。前一项、后一项、第一项、最后一项的定位，添加新纪录等等。5.生成并导出各种文件。把查询记录或者报表导出Excel、PDF等文件，或者直接打印等操作。上述的各项操作，既可以用VBA语句完成，也可以用宏来完成。Access封装了大量的宏，也就是VBA的模块版，办公人员一些常用操作，Office的设计者早就想好了，封装在宏里。宏也可以进行一些简单的流程判断，近似于编程。VBA的第2个作用，是进行各种计算。这部分就已经是半专业的编程技术了，涉及到VB编程的知识。为了讲解VBA的计算作用，我们举一个例子。现在我们开了一家教育培训机构，有四名老师：赵四、刘能、谢广坤、王老七。这四个老师教的学科如下：赵四：GRE语文，1节课200元刘能：托福，1节课180元谢广坤：雅思，1节课300元王老七：GRE数学，1节课200元这四位老师的课时费结算方法如下：1.按周结算，每周上课的总课时不等。2.如果没上满20节，或者刚好上够20节，他们这周的课时费就是上课数量乘以课时费。3.如果超过20节，超出的部分单价乘以1.5倍。这个统计需求，相信老铁们第一反应是用Excel来做，用函数来IF判断。没毛病，用Excel绝对可以完成这个工作。我也同意，如果这所培训学校只有4位老师，用Excel足够。但是，如果这所学校有100位老师呢？如果这些老师的课酬、倍数都不一样呢？或者不同的科目倍数不同呢？这个看似简单的计算问题，就会变得异常的复杂。用Access做的老师课时计算软件相信我，在大数据量和复杂逻辑条件下，用Excel做这个课时费统计工作，相当的困难，甚至于不可能。我举的这个例子，实际上是我的一个学员的实际需求。（我一般不接外包，但这个案例碍于情面还是做了）我出于兴趣，给他做了一下这个老师课时费统计软件，用VBA封装好计算模块给他。但问题也来了，这个学员的基础不太好，不仅不知道怎么上手使用（Access软件使用也需要经验和培训），而且根本看不懂代码……很尴尬。VBA编程就是这样，如果没有基础，连照猫画虎都很难。我只好答应他，做一个详细的技术手册，把技术一点点的教给他。用VBA做计算的门槛还是有的这个案例我们可以得出一些结论：1.VBA的计算能力很强，但有一定的技术门槛。2.VBA高级编程，其实不适合新手，新手只能掌握一些控制窗体的技术，掌握高级编程还需要一定的时间、付出努力。因此，学习AccessVBA的方法也很重要，尤其是学习的先后顺序很重要。三、VBA怎么学习？由于上文所讲，VBA技术分为两个层面，难易程度是不同的：1.窗体自动化技术。较容易2.计算技术。较难了解了VBA技术两个层面，就知道学习的先后顺序了：1.前期学习VBA的重点前期学习VBA的时候，由于学员水平不高，因此应当主要学习相对比较简单的窗体自动化技术。在这一阶段学习VBA的中心，要围绕着服务于Access框架来展开，核心在于让Access数据库能自动化的跑起来，能把Access先用起来，形成技术闭环，尽快解放Access的生产力。Access的报表需要VBA的技术这一阶段的VBA学习，只要把握“即用现学、现学现卖”这个原则就足够了。别钻牛角尖，如果问题过于复杂，不建议贸然的用自己不熟悉的轮子，那样会让问题越来越复杂。一般来说，Access数据库入门掌握只需要10-30天，不需要太长时间就可以熟练运用Access框架。VBA的入门专项学习主要是熟悉前面说的各项窗体操纵，这部分的技术，由于比较直观，只需要几天足够了。学习窗体自动化的VBA技术，其实不用专门学习，跟着框架学习就可以了。这部分学习VBA真的不难。2.中后期学习VBA的重点中后期学习Access数据库VBA技术，差不多就是开始入门编程学习了。对，入门学习VBA之后，再往下学我们学的就是计算机编程知识了。是不是觉得自己很牛？VBA的编程和Java、Python基本是类似的，计算机都是二进制的，编程基础原理都大差不差，翻开教材，前半本书各个语言都基本类似。学习任何编程语言都是相通的，没有那么多门道。这部分的学习，尤其是自学，是有难度的。我本人也不敢说自己编程入门了，也是在不停的摸索学习。这一块的学习注定是痛苦和漫长的，我也很难说学到什么程度算是可以了。我对自己的要求就是，能够独立完成小程序并且能够卖钱。（这个要求可能很高）这部分的学习相当的复杂，就要单独讲解了，属于编程的范畴了。不那么容易，有机会再讲吧。这节课就先讲到这里，谢谢大家！

2014-08-22
分类：下载 / 模版下载
阅读()
一个让无数Excel VBA学习者膜拜的VBA入门教程帖子，出自Excel Home总版主山菊花之手，会员alzeng有心将之汇编成电子书，现再现于门户，以期让更多的Excel VBA爱好者能飨之。以下为alzeng的原文：
Excel之于我，在进入ExcelHome之前，不过是能做一个方便运算的表格而已。进来之后，觉得大开眼界：这是一个我所知之甚微的精深空间。
这里有很多顶尖级的好老师，而我自己却不是一个好的学生。愚钝在所难免，失之持恒是最关键，所以这半年来并没有得到多少长进。
超版山菊花老师的许多精辟课程使数以万计的论坛成员获益菲浅，一来是身为教育工作者，诲人不倦的风范值得称道；二来是循循善诱的教学风格让人觉得与师长拉近了距离，更加学得容易，领会得真切。这使得诸如我这样寄生于斯、依赖园丁灌输之辈也能够得之甚多，心里生出很多惭愧……
本来打算春节后才来接触VBA的，不经意发现了山版的这个系列教程贴，很是欣喜，呵呵！抽了点时间，把这四篇教程汇总来做成一本电子书，方便初学者在网下细细琢磨。
吸取前次制作中的版主的要求，加了论坛LOGO，贴子出处在右上角用“阅读原贴”的链接方式给出。因为山版的贴子向来是热度炙手，跟贴求教者数以百计，原谅我未保持帖子的原有内容，只保留了山版的教程。
');
(window.slotbydup=window.slotbydup
[]).push({
id: '7554229',
container: s,
size: '20,3',
display: 'inlay-fix'
});
})();

[广告]
★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
虽然过去了9年，但是还是要附上我的花名册分类作业，最近刚看Sub fenlei()Dim hm As Worksheet, wc As Worksheet, zj As Worksheet, lc As Worksheet, wz As Worksheet, ql As Worksheet, hf As Worksheet, sw As WorksheetSet hm = Worksheets("外在本就读花名册")Set wc = Worksheets("卫城")Set zj = Worksheets("站街")Set lc = Worksheets("流长")Set wz = Worksheets("王庄")Set ql = Worksheets("青龙")Set hf = Worksheets("红枫")Set sw = Worksheets("清镇市外")lastRow = hm.[A65535].End(xlUp).RowlastColumn = hm.[A2].End(xlToRight).Column' xian = hm.Range(hm.Cells(2, 1), hm.Cells(2, lastColumn)).Find("县").Columnxian = hm.Rows(2).Find("县").Column' xiang = hm.Range(hm.Cells(2, 1), hm.Cells(2, lastColumn)).Find("乡").Columnxiang = hm.Rows(2).Find("乡").Columnwc.Range(wc.Cells(3, 1), wc.Cells(65536, lastColumn)).Clearzj.Range(zj.Cells(3, 1), zj.Cells(65536, lastColumn)).Clearlc.Range(lc.Cells(3, 1), lc.Cells(65536, lastColumn)).Clearwz.Range(wz.Cells(3, 1), wz.Cells(65536, lastColumn)).Clearql.Range(ql.Cells(3, 1), ql.Cells(65536, lastColumn)).Clearhf.Range(hf.Cells(3, 1), hf.Cells(65536, lastColumn)).Clearsw.Range(sw.Cells(3, 1), sw.Cells(65536, lastColumn)).ClearFor i = 3 To lastRowrangeIxian = hm.Cells(i, xian).ValueIf rangeIxian <> "清镇" Then' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy sw.Cells(sw.[A65535].End(xlUp).Row + 1, 1)j = sw.[A65535].End(xlUp).Row + 1hm.Rows(i).Copy sw.Rows(j)sw.Cells(j, 1).Value = j - 2ElserangeIxiang = hm.Cells(i, xiang)Select Case rangeIxiangCase "卫城"j = wc.[A65535].End(xlUp).Row + 1' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy wc.Cells(j, 1)hm.Rows(i).Copy wc.Rows(j)wc.Cells(j, 1).Value = j - 2Case "站街"j = zj.[A65535].End(xlUp).Row + 1' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy zj.Cells(j, 1)hm.Rows(i).Copy zj.Rows(j)zj.Cells(j, 1).Value = j - 2Case "流长"j = lc.[A65535].End(xlUp).Row + 1' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy lc.Cells(j, 1)hm.Rows(i).Copy lc.Rows(j)lc.Cells(j, 1).Value = j - 2Case "王庄"j = wz.[A65535].End(xlUp).Row + 1' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy wz.Cells(j, 1)hm.Rows(i).Copy wz.Rows(j)wz.Cells(j, 1).Value = j - 2Case "青龙"j = ql.[A65535].End(xlUp).Row + 1' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy ql.Cells(j, 1)hm.Rows(i).Copy ql.Rows(j)ql.Cells(j, 1).Value = j - 2Case "红枫"j = hf.[A65535].End(xlUp).Row + 1' hm.Range(hm.Cells(i, 1), hm.Cells(i, lastColumn)).Copy hf.Cells(j, 1)hm.Rows(i).Copy hf.Rows(j)hf.Cells(j, 1).Value = j - 2End SelectEnd IfNextEnd Sub 复制代码

我要回帖

更多关于 自学钢琴入门怎么学 的文章

 

随机推荐