Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程序视觉化的Basic Script。 1994年发行的Excel 5.0版本中，即具备了VBA的宏功能。

VBA是Excel，Word，PowerPoint等办公应用程序理解的语言。

VBA是一种功能强大的内置编程语言，允许您在Excel电子表格中编写自己的函数或命令。

VBA是经典Visual Basic的最后一个前哨，它非常适合快速轻松地完成工作。不擅长的是构建大而复杂的应用程序。

具有控制作用的函数

IIf(条件式,表达式1,表达式2)Switch(条件式1,表达式1,[条件式2,表达式2[,...,条件式n,表达式n]])Choose(索引式,选项1[,选项2,...[,选项n]]) '这是基于1的索引

VBA和VB的区别对比

本文讲的不是开发语言VB，而是excel的编程语言。区别包括如下几个方面:

1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化

2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.

3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的”父”应用程序,例如EXCEL.

VBA的优点

如果不是专业搞开发的，学习VBA以后。绝大多数企业和你所在的部门都会用到excel，都需要处理数据。你绝对是你们公司或者部门的宝贝。VBA的优势如下：

开发环境搭建简单，只需要打开装机自带的Office，然后按下Alt+F11就自动进入编程和执行环境；上手简单，学习曲线很平缓，甚至可以更简单的通过录制宏来解决写程序的问题，只需要在简单的代码基础上修修补补就可以执行。与办公环境完美兼容，在Excel/Word/Powerpoint/Outlook/Access之间随便穿梭，比胶水语言还要简单易用分享性和移植性很强，几乎所有测试通过的程序放到别的机器上也可轻易执行。

本文参考

9ima

i-programmer

wikipedia

zhihu

每个EXCEL、WPS达人和管理者，虽然不一定会编程，却都有一个编程梦，总希望把工作和管理进行批量化、智能化、协同处理，以提高效率，然而EXCEL功能是有限的，无论对EXCEL玩的多精通，软件的功能也很难实现。今天就给普通的你，分享一个类EXCEL平台的工具，可以像用EXCEL那样去搭建你想要的软件和APP。你也可以变成IT达人！

你想不想用excel做一个，功能强大又好用的管理软件？

用EXCEL的方式，搭建真正的软件系统，可行吗？

我们说的真正的软件，必须得具备智能录入、数据校验、工作流程、多用户协同、数据共享、用户权限控制，三方软件对接、手机APP应用、拍照上传、统计查询、附件上传、组织架构管理……。等等，传统代码编程开发软件具有的功能，它都得有。

那用EXCEL的方式可以做到么？肯定可以！但绝不是EXCEL和WPS，而是一款类EXCEL平台，云表！

可以兼容EXCEL用法，比如自定义表单样式，拖拉拽的操作方式、导入导出EXCEL……等等，也就是说你只要会用EXCEL或WPS就能用云表。

看一下上图：能不能发现，云表设计器界面与EXCEL界面有哪些差别？而且云表设计界面和EXCEL长得还挺像的，不过他们可没有血缘，顶多和WPS有点亲戚关系，云表开发团队源自金山系创业者，就是WPS团队出来的。而且，云表完全独立，不用安装WPS或EXCEL就能使用。

会画表格就能快速搭建管理软件，请看有多方便！

只需要用EXCEL的操作方式，把软件需要用的表单或界面样式画出来（只要你愿意，就能画得很漂亮），比如采购单、销售单、库存表、报表等基本表格样式，然后用中文公式（纯中文，会认字就能看懂）把表间关联配置好，设置好组织架构和用户并分配不同权限，还有设置好相应的业务流程和审批流程，再加上导航（也可以不要），那这个软件就完成，如果需要和已有软件比如财务软件等对接，也是可以的。

一键自动生成APP，手机上随时随地使用！

上面把软件功能搭建完成后，只需要在手机端安装云表APP并简单配置一下，另外在云表设计界面勾选适用手机APP，那这个功就可以在手机上使用了。是不是超级简单，整个过程，完全不用编程。

云表做的手机APP

说的可能比较笼统，可以到官网安装个软件做一遍就明白了。

什么是VBA

Visual Basic for Applications（VBA）是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。简单来说VBA是建立在Office中的一种应用程序开发工具，其实知道这也就够了。

第一个VBA程序

首先要把开发工具调出来，Excel默认情况下是不显示开发工具的

打开vb编辑器，新建模块，并写入代码

Sub test()Range("A1") = "Hello World" '在A1单元格中填写Hello WorldRange("A2") = "我的第一个VBA程序"End Sub

在Excel VBA中，Range对象可能是最常用的对象，Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。代码中 Range("A1") 就代表A1单元格。而“=”是一个赋值运算符，将右边的值传给左边的变量。

大家学会了吗，其实VBA还是比较简单的。小编准备写一个VBA入门的教程，现在有两种思路，一种是先讲解VB的基本知识，然后在从例子中不断加深理解，这样前期可能相对比较枯燥；另一种是每篇介绍一个例子，讲解一下如何用VBA来解决，从实战中学习，相对来说比较快一点。大家觉得那种更好一点呢，或者有更好的方法，欢迎在下方评论，小编一定会及时回复。。

office办公应用三大件：Word、Excel、PowerPoint，几乎每台电脑都会装这三个办公软件，而Excel在办公场景中更是必不可少。

办公族都要用Excel来处理数据，例如记录各种数据，客户订单、产品资料、人事档案等。

实际上很多单位要求熟悉Excel的程度，也就仅止于会用Excel录数据、做表单罢了。

最熟悉的快捷键就是Ctrl+c/Ctrl+v，最常用的Excel操作就是合并单元格、求和，更多的工作就是用公司原有的表单模板干活。

比如一个跟单文员，每天的工作就是录入订单数据到总表，用文件夹里的制造工单模板、送货单模板、送货标签模板填入总表的数据，复制粘贴，再修改一下边框等，就是一天。

数据多的时候，那就别想准时下班了。

同样都是会用Excel的人，却有人用Excel技巧做出了办公自动化的管理软件，轻松完成每天的工作。

为什么能想到做这么一个软件呢？因为都是重复性的工作啊，制造工单、送货单、送货标签的数据都是取自于总表，让软件自动传送呗。

为什么用Excel技巧就搭建办公自动化软件？不需要学编程？是的，无需编程、用Excel技巧也能做办公软件。

别人正是利用了这样一款类似于Excel的表格软件，完成了办公管理软件的搭建。

它就是云表，类似于Excel的操作界面，通过中文的业务逻辑就能实现自动化办公。

像用Excel一样设定表单的填写规范，还可以设置自动生成一定格式的编号，如按日期自动编号。

用最基础的Excel技巧，加以办公管理经验，用中文描述业务逻辑，无需编程就可以用云表做出一套好用的办公管理软件了。

还在等什么呢？还想继续加班吗，别人都用Excel技巧搭建办公管理软件，而你还在用它做表格！

云表能做的功能还有更多，像自动更新操作记录、库存最低预警、工资考勤自动计算等，甚至可以做出完整的ERP管理软件、仓库管理软件、财务出纳软件.....

虽然云表功能如此强大，但它仍然提供了免费版，还有详细教程和技术客服助你快速入门！！！

转载自百家号作者：优品资源

1、 根据条件删除行

Sub deleteRows(strTable, condition1, condition2)

Dim i, j, iMax, jMax As Long

Dim iicondition1, iicondition2 As Integer

With Worksheets(strTable)

iMax = .UsedRange.Rows.Count

jMax = .UsedRange.Columns.Count

i = 2

Do While i < iMax + 1

iicondition1= .Cells(i, 1)

iicondition2 = .Cells(i, 2)

If (iicondition1= condition1And iicondition2 = condition2) Then

.Rows(i & ":" & i).Delete shift:=xlUp

iMax = iMax - 1

Else

i = i + 1

End If

Loop

End With

End Sub

2、 删除所以的使用range

Worksheets("sheetName").UsedRange.Delete shift:=xlUp

3、打开某指定路径的文件夹对话框

Function GetFileName(ByVal DialogType As MsoFileDialogType, ByVal defaultPath As String) As String

With Application.FileDialog(DialogType)

.Title = "XXXX:"

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "Excel Files", "*.xlsm"

.Filters.Add "All Files", "*.*"

.InitialFileName = defaultPath

If .Show = True Then

GetFolderName = .SelectedItems(1)

End If

End With

End Function

4、截取字符段

从右边开始，查找某字符，然后截取其后面的字符串。

xlsPath2 = Right(xlsPath, InStr(StrReverse(xlsPath), "\") - 1)

5、Sharepoint数据的刷新

Worksheets("Sharepoint对应的sheet").Range("A1").ListObject.QueryTable.Refresh BackgroundQuery:=False

6、当前使用的range的取得

.UsedRange ‘对应的range

.UsedRange.Rows.Count ‘对应的行号

.UsedRange.Columns.Count 对应的列号

7、在Excel内部打开另外一个Excel （不显示，隐藏）并读取其数据

Set xlsApp = New Excel.Application

xlsApp.Visible = False

xlsPath = ThisWorkbook.Path

Set xlsWB = xlsApp.Workbooks.Open(xlsPath, Null, ReadOnly)

‘读取/写入对应的sheet

X = xlsWB.worksheets(“xxxx”).cells(i,j)

xlsWB.worksheets(“xxxx”)..Cells(i, j).Formula = "=E” & i

8、计算处理

'如果你的表中有大量的计算单元格，那就需要关闭自动计算，否则慢的要死

‘在VBA开始，设置为手动

'Application.Calculation = xlCalculationManual

'Application.ScreenUpdating = False

‘在VBA开始，设置为自动

'Application.Calculation = xlCalculationAutomatic

'Application.ScreenUpdating = False

注意，还有一种方法是再打开本excel的时候，就设置为手动，对于需要计算的sheet，单独在其数据填充完毕后，执行计算操作。

例如： Worksheets("XXXXX”).Calculate ‘这是效率最高一种方法。当然，你也可以对某些range，单独进行range计算。

9、Range到range的只读拷贝、黏贴

Worksheets("srcSheet").Range(.Cells(1, 1), .Cells(x,y)).Copy

Worksheets("dstSheet").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

10、Cell内容的替换操作

Worksheets("CostTable").Cells.Replace What:="Original Content", Replacement:="replease Content", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

11、自动填充

Worksheets("xxxx")..Range("D8:F8").AutoFill Destination:=.Range(.Cells(8, 4), .Cells(rMax, 8)), Type:=xlFillDefault

12、获取pivot的使用区域、

Set pvt = Worksheets("xxxx").PivotTables("PivotTable_xxxx")

Set rngTable = pvt.TableRange1

13、刷新pivot

Worksheets("xxxx").PivotTables("PivotTable_xxxx").PivotCache.Refresh

Excel就像一把天山寒铁淬炼而成的杀猪刀，本身已经很厉害，但具体有多厉害取决于用它的人。

Excel最牛逼的地方在于它不是小李飞刀也不是轩辕剑——需要练个10年8年才能用，它只是一把菜刀，老百姓可以用来切菜，高手可以用来刮胡子，绝世高手拿着直接从南天门一直砍刀蓬莱东路。

表格是什么？表格就是数据容器，对于非IT人士来说，这辈子可能都不会用数据库，但是！Excel让每个人都可以管理数据库了！其提供的基本功能足以完成大部分数据管理统计工作。

打个比方，同事拿到全国资料开始挨个数每个省有多少个客户数了半个小时，而你只是点了两下鼠标就完成了工作。没错，在同事眼里你就是那个百年难得一见的练武奇才（以后就可以承担更多工作了，可喜可贺）！

要你命2000：数据处理（函数）

别人向你扔屎，你可以躲。客户扔给你屎，你只能接住！比如这种屎：

这种乱七八糟表格是没有任何数据意义的，如果只有三坨，动手处理一下就好了，如果有100坨，怎么办？不要紧张，我们只需要处理一行，其余99行交给excel即可。。。

首先，数据-分列：

然后，直接查找替换，将没用的天字去掉：

最后这个毛比较难以处理，动用函数：先找出具体数字，如果里面有“毛”字，直接将结果乘以0.1，一个规范的表格就诞生了：

（如无特殊需要，最后带汉字的D列可以用E列覆盖掉）

Excel也可以为自己所用，再来举一个例子：

时间管理。与一般时间管理App不同，因为我们可以自己设计研发，做出最适合自己的版本！Go！

首先写两行：

拖动一下右下角的小圆点：

同理增加横轴：

填写数据，编写公式。这样计算当天任务量：

=COUNTA(B2:P2)

这样计算完成量

这样计算完成度

=Q3/Q2

最后完成度那里设置单元格格式-数字-百分比。最后填写数据。最终效果图（点击看大图）：

只要三个函数，每天的工作生活一览无遗！

P.s还可以拓展一些功能，比如当天完成度到达xx就有奖励/惩罚之类

总结：掌握了函数，只要是和数据相关的工作，就可以考虑用Excel来处理。

要你命3000：控制一切

著名篮球员赤木刚宪曾经说过，掌握代码就等于掌握了整个Excel，此言非虚。Excel自带编程功能，只有想不到，没有做不到！接下来就用解决吃饭问题做一个简单例子展示一下：

对于有选择困难症的人，让上天来决定吃啥是最好了，我们先填一点数据，如图：

然后选择开发工具-VisualBasic（为了做例子专门下了一个office365，我也是拼了= =），然后什么都不管，直接粘贴代码：

Dim a As Integer '定义公共变量Sub随机Dim x As IntegerDim y As Integera = 0Randomize '初始化reselect:x = Rnd * (3 - 1) + 1 '生成2至7的随机数，代表列数y = Rnd * (4 - 1) + 1 '生成2至6的随机数，代表行数Range("a1:d3").Interior.ColorIndex = xlNone '去掉填充色Cells(x, y).Interior.ColorIndex = 3 '填充为红色a = a + 1If a = 300 Then Exit SubGoTo reselectEnd Sub

然后保存回到excel，选择开发工具-插入-表单-按钮，画一个按钮在excel上，命名为“吃啥好”

在按钮上点右键，指定宏，选择我们刚才做的函数，然后点确定：

Excel制作的半即时战斗模拟（原文地址Excel潜能系列——Excel游戏（2v2战斗~5v5战斗模拟器）【更新V1.5】 Einsphoton_Einsphoton_新浪博客）

超牛的EXCEL版《超级玛丽》总结：掌握了代码，理论上可以用它来做任何小型项目！

用来做动画：

[Excel]Bad Apple!!

推荐书籍：

你早该这么玩Excel（数据管理、工作用）

Excel2013高级VBA编程宝典（装逼、开发用）

另外光有技巧是不够的，表格美化也很重要。（做人也一样，牛逼不够，还得帅。。。）

可能很多朋友不知道Excel中VBA的用途。那什么是VBA呢？

一句话概括：在Excel中想实现什么功能，就可以用VBA语言编写一段程序去完成。

今天通过例子带大家了解Excel中的VBA！

软件说明：Excel 2010版本

场景再现：表格中点击按钮，向单元格E1中输入数字 “233”，并且能够实现清除！

第一步、打开编写VBA代码的窗口

在Excel表格中编写VBA的窗口叫VBE编辑器，有两种打开的方法。

在工作表标签上右键 - 查看代码按Alt+F11

第二步、创建写VBA代码的地方

有朋友肯定会问：“我没学会编程怎么办？”、“我都没见过代码能行吗？”；别急！我的回复是肯定的！

在哪编写代码呢？有好几种方式，今天先学最常用的：“插入” - “模块”。新建一个模块用来存放编写的代码；记住：修改模板的名称：我的VBA模板【如下图虚线标注】

第三步、开始写代码

新建模板后，在右侧的空白位置就是编写代码的地方。可以执行的VBA代码，结构是这样的：

Sub 程序名(参数)可以执行任务的代码End Sub

因为例子中我要进行输入与清除的操作，输入Sub 程序名()然后回车，End Sub就会自动输入；如下图：

在开始和结束语句之间输入代码，执行在单元格A1中输入数字"233"

Range("E1") = 123

备注：在VBA中，Range("单元格地址")来表示单元格。在单元格中输入值，直接用=值 即可(字符串两边要加双引用)，如果清空则 =""。

再编写一段清空代码：

第四步、测试运行代码

在编写代码时经常要测试是否正确。测试方式是把光标放在代码行的任意位置【下图中“测试按钮”的位置】，点击运行小按钮进行测试；同样清空代码也一样。

第五步、点击按钮执行VBA代码

在Excel中插入的图形、图片、按钮控件都可以执行VBA代码。让它们执行很简单，点击“插入” - “矩形” - “指定宏”

只需要右键菜单中点击指定宏 - 选取编写的宏名称，选择“输入”，添加输入按钮。

同样添加清除按钮：

当然自己可以调整字体的颜色、字体，让其变得更加美观！

此时，通过VBA设置的输入“233”，并可以点击清除！

第六步、保存VBA代码

此时的VBA代码应该是既有输入代码又有清空代码；最后需要保存为“启用宏的工作簿"类型【注意下图中虚线框标注】，VBA代码才能保存下来。

好了！今天的分享就到这里，是不是感觉VBA也没有想象的那么难？

赶快转发、关注吧，更多技巧尽在头条号中！

1、新建EXCEL2007空白表格。xlsx格式的,将VBA工具栏调出。如图1.1

2、点击“开发工具”然后单击插入，在下拉的菜单的表单控件里面选择“按钮”，如图2.1

3、画个方框，会弹出一个对话框“指定宏”，单击"新建"按钮，这样就会进入后台的程序书写界面，进入以后，程序的头和尾已经帮你写好了，如图3.1,你只需要在中间写入一句程序“ MsgBox("hello world") ”。

4、为了保证宏正常运行，要在EXCEL的设置中进行启用宏操作。在“开发工具-宏安全性-宏设置：启用所有宏和勾选信任对VBA工程对象模型的访问”。如图4.1

5、最后点击另存为“启用宏的工作簿”的xlsm文件，然后退出程序界面。

对于很多职场人士而言，Excel或者WPS表格就是他们每天最常用的办公软件了。

比如，HR用Excel来制作员工入职填写表单，设计好填写范例，需要填写姓名、性别、岗位、银行卡号、身份证号码等等，就如下图。

对于有经验、熟悉Excel操作的人事专员来说，制作这样的一张表单当然不是什么难题。可往往难题又出现在这样一张用Excel制作的表单中。

比如说员工填少或填多了身份证号码、银行卡号等，就会给后续工作带来麻烦，也就只能再一次找员工去核对了。

又或者员工在填写的时候不小心误操作，变动了格式，在汇总的时候麻烦多多。

可是如果这个表单可以自动核查甚至锁定格式、设置修改权限的话，自动提醒填多或填少、限制改格式，那就能大大减少这种情况带来的麻烦了。

机灵的人事专员可能马上行动，去查如何实现这种Excel自动核查、锁定填写格式、设定权限等功能了。

可一查，教程说的方法不是需要填很多的函数公式，就是要VBA编程。函数公式还好解决，但是VBA编程那一行行的代码就实际无法看懂了。

那怎么办？当然不是凉拌啦，我们可以使用无需编程的开发平台去制作一个人事管理软件，给这个软件设置权限、限定填写格式、自动核查，员工填写完成后不用再通过邮件发送给人事专员，而是在软件里自动接收到填写好的表单。

云表是一个无需编程就能开发管理软件的免费平台，以下就用云表简单说明怎样开发一个人事管理软件的。

云表的开发界面类似于Excel，操作起来像Excel一样简单，可以随意合并表格涂色等，能把表单设计得很漂亮。

可以设计一个员工入职填写表单，通过设置修改权限后，便只有人事专员能改动表单的格式。同时给每个填写框，比如填写银行卡号的框，设置成数字填写并固定多少个数字，就可以自动检查错误了。

除了这些小功能以外，还可以运用业务公式，也就是用工作上的业务逻辑去描述。比如汇总新入职的员工资料，只需要员工的姓名、岗位、联系方式。我们不再需要复制粘贴了，用云表的业务公式设定员工个人的资料表中这几项内容，点一个按钮就能自动填写到汇总表中去。这在常年招工的工厂人事管理中特别有用哦！

其实云表可以实现的功能还有很多，可以做出完整的ERP管理软件、仓库管理软件、电商进销存软件等。

以前流行的说法是：21世纪必备的三大技能，英语，电脑，驾驶。在本世纪开始的前20年内，已经是非常明显的体现了，慢慢会成为职场的标配。未来的社会，肯定是会越来越智能化的。以后写简单的代码，可能会成为工作和生活的标配。买一个机器人回来，陪自己好好聊聊天，但这个家伙脾气好像有点大哟，能不能自己写点简单的代码，把这个家伙的脾气改小一点呢？必须能啊。

学编程难吗？等同于写作难吗?如果你的目标不是成为职业作家，写作就是很轻松的事，想想我们从小学就开始写作了。同样地，学英语难吗？健身难吗？练字难吗？一旦开始，每天花点时间，什么都不难。如果你是上班族，学点程序对你的工作效率是会有大大提升的，加薪水啊，指日可待。给漂亮妹妹展示一把，哇，你好厉害哟，一个崇拜的眼神。

好啦，

今天就以一个非常简单的小程序开始，体验一下吧。我的目标是，人人都可以会。试试这个简单的程序，2分钟，轻松搞定。

第1步：打开excel

第2步：在键盘上按下：ALT+F11,进入到以下界面。

第3步：双击“ThisWorkBook”,显示空白的页面，如下所示。

把以下代码复制，粘贴到空白页。

Sub test()

For i=1 to 100

a=a+1

Next

MsgBox a

End Sub

第4步：点击运行程序

第5步：看到运行的结果。

5050就是运行结果，这个小程序的作用是从1~100相加，结果就是5050.

点击“确认”，又会回到程序窗口。你可以把100更改为其它数，结果就是从1加到多少。试试吧

你想不想知道，从2到100的偶数相加，怎么计算呢？

【完】