今天将继续给大家分享VBA中的一些常用语句，今天主要讲解些工作薄语句相关的一些常见的语句，对于工作薄，相信大家不很陌生，工作簿是在Excel中，用于保存数据信息的文件。在一个工作簿中，可以有多个不同类型的工作表，默认情况下包含3个工作表，最多可达到255个工作表。可以说，Excel文档就是工作簿，它为用户提供了一个计算操作环境。工作簿不仅提供了完整的计算功能，还结合了许多应用数据处理的功能，如数据筛选、图表制作、统计分析等，在各行各业都有广泛应用。

今日的讲解主要集中在工作薄相关操作，希望朋友要仔细的理解掌握，对于自己的工作会帮助很大，这些语句是我从大量的VBA代码中筛选出来，可以做为一些特定的通用语句来掌握，当然，以后还会陆续的给大家讲。

1 Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate

语句说明：激活单元格区域A列中最大值的单元格

备注：这是一个以查找语句为基础的语句，Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”)))是一个查找的语句，Range(“A:A”)是查找的范围，Application.WorksheetFunction.Max(Range(“A:A”)是查找的条件，利用Application.WorksheetFunction可以调用excel的内置函数，所以可以用MAX函数来计算Range(“A:A”)中的最大值

2 Workbooks.Add()

语句说明：创建一个新的工作簿

备注：这是应用于 Workbooks 集合（对象）的 Add 方法。

3 Workbooks(“book1.xls”).Activate

语句说明：激活名为book1的工作簿

备注：Activate 是指激活，是将一个原本就是打开的工作簿显示到前台，需要注意的是“book1.xls”的后缀.xls，要和文件名显示的一致。

4 ThisWorkbook.Save

语句说明：保存工作簿

备注：SAVE是保存，相当于ctrl+s

5 ThisWorkbook.close

语句说明：关闭当前工作簿

备注：上述的写法有两种，Workbooks("book1").Close (False)和Workbooks("book1").Close (ture)

后者会提示是否保存工作表，前者不会。如下面的截图：运行的是SAVE4的代码，将会弹出

“是否保存对“BOOK1.XLS的更改？”这个对话框，供用户选择。

6 ActiveWorkbook.Sheets.Count

语句说明：获取活动工作薄中工作表数

备注：Count是数量的属性

7 ActiveWorkbook.name

语句说明：返回活动工作薄的名称

备注：name是工作表的属性。

8 ThisWorkbook.Name

语句说明：返回当前工作簿名称

ThisWorkbook.FullName

语句说明：返回当前工作簿路径和名称

备注：前者返回的仅是工作薄的名称，后者返回的是工作簿路径和名称。

9 Sheets(Sheet1).Name= “AA”

语句说明：将Sheet1命名为AA

备注：这是讲工作表重命名。

10 hisWorkbook.Sheets.Add Before:=Worksheets(1)

语句说明：添加一个新工作表在第一工作表前

备注：这是按照要求的位置添加一个工作表。

关于工作薄的代码还很多，上面是基本的语句，希望大家能理解，并在工作中加以利用，能用才会不断的进步，才会不断的提高自己。

今日内容回向：

1 什么是工作薄？

2 如何获得工作薄的路径及名称？

3 如何给工作表重命名？

如果您已经掌握了Excel VBA的基本概念和简单语法，需要快速提高技术水平，以便可以早日完成各种简化工作的小程序，甚至能够编制功能强大的报表系统。

于是，但凡有教程自称为“秘籍”或“宝典”的，都会引发大家的无限遐想。因为在各种武侠小说中，某人物因为一本（甚至只是几页）武学秘籍而改变命运、屌丝逆袭的经典桥段实在太多了，让人无限向往。但是，如果冷静分析一下前后情节，您就可以了解到这样的三个事实。

对应这三条，我们来看看Excel VBA这门武功如何。

如果要对Sheet1的A1:A100单元格区域进行汇总，按组合键就可以了，手快只需要0.1秒。如果每天要对1000个工作簿的Sheet1的A1:A100单元格区域进行汇总，那么只会自动求和的绝顶高手就想跳楼了。可是对于学习过VBA的人来说，几行代码就可以解决问题。

在信息时代，技能学习信息只有过剩没有限制。即对于多数学科、技能，只要你想学习，教材是永远不缺的，老师也非常容易找。以前都是“收徒弟”，现在基本上是“收师傅”了。

想学有所成，时间和精力是必需的，从古至今皆如此。当然，我很期待有一天能像《骇客帝国》里那样学习技能——直接下载到大脑里就行了。

这么一分析，我刚才说的“快速提高”岂非奢望而已？那也未见得。首先，教材虽多，却有良莠之分，有适合之分，选择适合自己的优秀教材，那么就能快人一步。其次，注重学习方法，循序渐进，将有限的学习时间投入到最有价值的学习环节中，学习过程中少走弯路，那么又能快人一步。有了这两个基础，再辅以必要的学习时间，那么必能事半功倍，获得“快速提高”了。

谈到循序渐进，在Excel VBA学习之路上具体应该怎么做呢？下图内容是值得参考的阶段性指标和学习重点。

“拿来主义”很流行，也很有效，而且绝不丢人。所以，看懂别人的代码，然后修改之，变为自己的代码，这是一种能力。先啃小段的代码，再研究完整的程序，逐步提高。顶尖的编程高手通常都有自己的代码库，几乎所有的新程序都是从代码库中调取所需的模块修改后搭建而成的，而绝不是从头一行一行写出来的。高手们平时很重要的工作就是维护好自己的代码库。

本书一个很重要的使命就是成为学习者的代码库，所有的代码都可以拿来即用。对于学习者来说，花时间去多读、读懂代码，是实现快速提高水平的保障。

当然，我们鼓励“拿来主义”，可不是在教您如何“抄袭软件”。我们只能学习他人分享的代码，或者是教材上的代码。您不可以打着学习的幌子，破解别人的软件，而且还把作者写成您自己。

最后，祝大家学习愉快。

大家好，前面示例中涉及过输出msgbox函数，使用最简单的形式，本节就将这个函数的内容扩充一下，学习其完整的结构，内容重在理解。

一、msgbox 基础语法

msgbox有语句和函数两种格式如下，其中[ ]中的内容可以省略。

语句格式：MsgBox(prompt[, buttons] [, title] [, helpfile, context])

函数格式：变量=MsgBox(prompt[, buttons] [, title] [, helpfile, context])

其中的参数除buttons外均与inputbox函数相同。

prompt是对话框消息出现的字符串表达式，title为对话框标题栏中字符串，buttons参数后面会具体说明。helpfile，context是与帮助文件相关基本省略。

首先说明一下语句和函数两种形式的区别，msgbox语句形式，仅显示内容，点击确定不会产生其他结果。

那么增加变量i，将上面的示例改成函数格式看下结果。

同样一个msgbox语句，点击确定按钮后，函数格式返回了一个数值1。这个变量返回值1就提供了可以和程序交互的可能。

如果可以有几个不同的按钮可以选择，然后返回不同的值就更实用了？不同值可以用来作判断条件。如下图所示：

通过更改了一个buttons的参数值35，改变了对话框的样式（下面会具体说明。）可以看到点击三个按钮后，变量i得到的返回值不同，根据不同返回值来作条件编写适用的判断结构代码，就可以实现简单的交互。

那么现在摆在我们面前的就是两个问题：一如何调整buttons参数来显示不同的对话框？二、点击不同的按钮的具体返回值汇总。以下内容重在理解，理解后就很简单。

一、buttons 参数

buttons参数是用来指定显示按钮的数量及形式，提示图标样式、默认按钮、消息框的强制相应等四方面内容的。

所以它实际可以由四组数值（或常数）组成的。当然四组数值并不是都必须的，根据需求选择即可。先分别来看四组值和对应的内容，再看如何使用。

第一组（0~5）决定对话库中按钮的类型和数量。

第二组（16，32，48，64）决定对话框中显示的图标。

第三组（0，256，512，768）绝对对话框中默认的活动按钮。活动按钮中的文字会有显示虚线。

第四组（0，4096）决定消息框的强制响应性，不太常用。

buttons参数对两种表示方法，第一种容易理解的是使用常量，可以看到常量名字就提示了显示内容。在写第二参数时，系统也会自动提示常量内容。从四组常量中选择需要的常量用+号连接，如下图示例：

常量通常从前三组中选择，只选择第一组也是没有问题，根据需求选择即可。用常量的好处时，显示内容一目了然，写常量时，VBA程序也会提示。

第二种简洁的显示方式。就是选择的常量对应值的加和。比如示例中的vbyesnocancel和vbquestion对应的值分别是3和32。那么累加的和35就是buttons参数。（程序对值的设计保证不会有重复。）

这种方式很简洁，但缺点时需要知道不同显示样式对应的值，同时改代码时也涉及计算也不便修改，所以可以根据自己喜好来选择把。

二、msgbox 函数返回值

点击msgbox函数对话框的按钮，msgbox函数会有不同的返回值，通过变量可以获得返回值，作为不同的判定条件，供我们设计人机交互，下面汇总一下。

内容不需要特别记忆，可以查看帮助，或者直接在程序中写小段代码用debug.print来显示变量返回参数即可。

本节主要介绍了msgbox函数的使用方法，重点是buttons参数两种表示方法和msgbox函数的返回值，重在理解，需要时按规则套用即可，祝大家学习快乐。

转载自百家号作者：Excel自学成才

一个工作簿中会有很多个相同格式，标题行内容和顺序都一样的工作表，我们想把这个工作表中的数据全部放至一个总表数据中。

图片上示例是3个工作表，实际工作中可能是几十个，如果一个一个复制粘贴至总表里面，耗费的时间很长，并且容易出错，今天教大家用一段通用的VBA代码来实现一键快速合并，效果如下所示：

只需要点击一下多表合并的按纽，后面所有工作表，会按顺序全部放至汇总表格中。

现在是每个工作表中的标题是4个项目，如果是更多项目，同样的可以进行合并，例如我们在英雄1表格中添加一列

用这个代码，同样的可以进行快速合并，只需要在汇总的表格中添加一个标题第五列，然后点击多表合并按纽即可

同样的，如果是再添加1个工作表，在英雄1后面插入了一个sheet2表格，里面输入一条同样的数据，如下所示：

同样的，只需要点击多表合并按纽便可完成，如下所示：

那么这个VBA代码是什么，如下所示：

Sub 多表合并()

Dim arr()

a = Range("a1").End(xlToRight).Column

For Each sh In Sheets

If sh.Name <> "汇总" Then

arr1 = sh.Range("a2").Resize(sh.UsedRange.Rows.Count - 1, a)

act = act + UBound(arr1)

ReDim Preserve arr(1 To a, 1 To act) '

For j = 1 To UBound(arr1)

n = n + 1

For i = 1 To a

arr(i, n) = arr1(j, i)

Next i

Next j

End If

Next

Sheets("汇总").[a2].Resize(n, a) = Application.Transpose(arr)

End Sub

这段代码直接保存即可，有了这段代码，我们在VBA中插入一个模块，将代码写入进去，插入一个按纽，绑定代码，即可实现，绑定代码的操作过程如下所示：

好，你学会了吗？

给自己持续学习的态度点个赞吧！

欢迎留言讨论，期待您的转发分享！

-------------------------------

谢谢关注，更多精彩内容持续更新中....

Sub 对象属性与方法()

'什么是对象

'“对象”是通过VBA控制的东西，可以理解为名词

'例如：工作簿，工作表，工作表里的单元格区域，图表等

'对象集合

'一组相似的对象被称为对象集合

'例如工作表集合sheets,代表了所有的工作表和图表sheet

'属性

'对象的特征被称为“属性”，可以理解为形容词

''例如工作簿的名称，thisworkbook.name，区域对象（range)的行(.row)列(.column)

'对象属性一次只能设置为一个特定的值，例如某工作簿只能有一个名称

'某些属性同时也是对象，例如区域对象（range）的字体（属性），字体也可以同时被看看成是对象，有自己的属性，例如字号，字体，加粗等

'方法

'对象可以使用不同的方法，是一种命令和操作，可以理解为动词

'在VBE代码窗口中，按 Ctrl+J 或在对象名后面输入小圆点时，会弹出“属性/方法列表”，列表中带绿色图标的项就是“方法”。

'例如sheets("Sheet1").delete,删除工作表Sheet1

'例如range("A1:A4").ClearContents ，清除A1:A4的内容

'例如常用的copy复制、select选中，save保存，close关闭等方法

'常用的对象

'aplication对象：最外层的vba对象就是Application，代表整个Excel应用程序,包含一个Workbooks集合，来表示Excel的每个文件

'workbook对象：表示一个excel工作薄,包含一个Worksheets集合，来表示它包含的所有工作表

'Worksheet对象: 表格一个工作表,包含Range或者Cells对象，来标识它包含的单元格

'Range对象：表示某一单元格、某一行、某一列、某一选定区域等等。

'Window对象：表示窗口

'Shaperange对象：表示形状区域，是文档中的一组形状

'pivotTable对象: 表示工作表中的数据透视表

'Chart对象：表示工作薄中的图表

'Commandbar对象：表示命令栏

End Sub

一直以来总是讲函数，我也曾经说过，讲函数也是在讲VBA的编程思路，相信很多的朋友通过函数的学习收获很多，可以解决工作中的很多问题了。今天和大家一起详细地理解一下VBA。总在提VBA，那么，VBA到底是什么呢？可以解决什么问题呢？都面向哪些人群呢？下面就讲这些问题。

一 VBA是什么？

VBA是Visual Basic for Application的缩写，通俗说就是用VB对程序进行控制，使用户可以自行去定义属于自己需求的软件，并把这种需求变成可能。它主要能用来扩展Windows应用程序的功能，特别是Microsoft Office软件。也可说是VBA是一种可以使应用程序视觉化的Basic 脚本。该语言于1993年由微软公司开发，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的功能。

上面谈到VBA是寄生于VB的。那么两者有什么区别呢？

1 VB设计用于创建标准的应用程序，而VBA是使已用的应用程序。如EXCEL自动化。

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

3 要运行VBA开发的应用程序，必须依赖它的父应用程序。

尽管存在这些不同，VB和VBA在结构上仍然十分相似，事实上，如果你已经了解了VB，会发现学习VBA非常快，相应的，学完VBA会给学习VB打下坚实的基础。

综上，VBA就是可以使现有的应用程序实现自动化的手段，并可以通过自定义的方法创建你需要的解决问题的方案。

第二 VBA都可以用来做什么呢？

也不用再讲更多的高大上的条条框框，对于职场中的你我，主要可以实现如下的作用：

1 自动化实现复杂的数据处理 我把这个阶段作为VBA的初级阶段。下面还是以一个批量查找的程序为例：下面的程序实现了批量的不同工作表的查找。

Sub KK()

Sheets("SHEET1").Select

i = 2

Do While Cells(i, 1) <> ""

Cells(i, 1).Select

TT = Cells(i, 1)

Cells(i, 2) = ""

Set FJX = Sheets("A").Range("A1:A" & Sheets("A").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

If Not FJX Is Nothing Then Cells(i, 2) = Sheets("A").Cells(FJX.Row, 2)

Set FJX = Sheets("B").Range("A1:A" & Sheets("B").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

If Not FJX Is Nothing Then Cells(i, 2) = Sheets("B").Cells(FJX.Row, 2)

Set FJX = Sheets("C").Range("A1:A" & Sheets("C").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

If Not FJX Is Nothing Then Cells(i, 2) = Sheets("C").Cells(FJX.Row, 2)

Set FJX = Sheets("D").Range("A1:A" & Sheets("D").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

If Not FJX Is Nothing Then Cells(i, 2) = Sheets("D").Cells(FJX.Row, 2)

i = i + 1

Set FJX = Nothing

Loop

End Sub

2 与数据库建立连接，实现数据的批量查、删、改、增等基础sql操作，以及事件调用、数据表创建等复杂操作。这是VBA的中级阶段。

关于数据库相连接的问题，我在之前的文章中已经讲过，不再多说了，那个代码可以作为是通用代码的。

3 制作窗体实现交互人机的对话。这个才是VBA的高级阶段。

这个阶段是建立在1,2基础上的，其实，VBA的窗体设计不是很完美，不如VB，我建议大家可以把EXCEL作为一个开发的平台来对应，这种思路更能体现VBA的价值，在EXCEL中有大量的表格可以利用的。

第三 哪些人群需要VBA呢？

这也就是我要讲VBA面向的对象，你不必是专业的程序员，其实专业的程序员不一定能写出与实际工作结合完美的程序。只要你多来我的这个平台，每天学点，每天学点，日积月累肯定会有回报，放正心态，宿值得本，收获也会多多。

1.统计工作。

这类工作的特点：劳动强度大，重复性高的工作，而且没有什么技术含量，比如月报，周报等。这类完全可以用VBA来解决。开发一个很小的程序，你的月报表，周报表可以在几秒钟内完成，只要基础数据正确，那么这类报表不存在错误的问题，可以给统计人员节省大量的时间。

2.细致的管理工作。

这类工作的特点是基础数据庞大，而且要多么精细就可以做到多么精细。如采购的安排，可以以周为单位，也可以以天为单位，还可以以0.5天为单位；生产环节的控制，可以控制到每个批次，每批产品，每个机床；销售进度的控制，可以控制每笔发货，每笔订单的进度等等。

好了，上面就是对VBA的简单介绍，及面向的人群。

今日内容回向：

1 简单的说，什么是VBA？

2 VBA可以做什么工作？

3 VBA 面向哪些人群？

分享成果，随喜正能量

Visual Basic for Application（简称VBA）是一种必须依赖母系程序方能使用的程序，属于VB程序语言的一个子集。我们常用的Excel电子表格除了常规的可视化命令之外，还可以通过VBA代码来操控Excel实现一些较复杂的逻辑运算及统计分析等。我们不仅可以使用代码实现数据的统计运算，还能实现图表的自动生成于刷新，以及图形的旋转与移动。在网上我们可以找到有很多大牛基于Excel的VBA，开发了一些具有特定功能的代码，以及酷炫的游戏界面等。如果您对这方面感兴趣的话，那你必须掌握的第一步操作就是打开VBA界面来认实它。

闲话少聊，下面就重点介绍一下从Excel窗口切换到VBA界面的操作技巧。

方法一是通过功能区的选项卡来实现。首先在菜单栏中找到开发工具项，然后在代码功能模块中找到Visual Basic命令按钮，单击它即可快速切换到VBA界面。若菜单栏中没有开发工具这一项，需要设置自定义功能区下的主选项卡来调出该命令。

2.方法二是通过工作表标签来实现。首先在Excel界面左下角找到工作表标签区域，右键单击任一一个工作表标签，本教程以Sheet1工作表为例，在弹出的右键菜单中选择查看代码命令，随后即可激活VBA界面。

3.方法三是通过快捷键法实现。在Excel操作界面下，按下组合键Alt+F11即可快速切换到VBA界面；在VBA界面下按此组合键即可快速关闭VBA窗口。

前两天有两位朋友留言想收集一些VBA的常用代码，今天开始会陆续分享一些！

记得收藏好哦，因为今后你应用到稍大型Excel VBA程序时，这其中某些代码肯定会用到。

来看看都是哪些常用代码：

下面先举一个简单的例子：

场景再现：在当前的工作表中插入一张e盘中名为1.jpg的图片（长350、高300，距离Excel左侧90、上边框230）

操作方法：

第一步，打开vba代码区，输入通用格式【输入 sub 统计()回车即可】，并将名称改为“统计”；

第二步，输入控制语句（ActiveSheet.Shapes.AddPicture "e:.jpg", True, True, 90, 230, 350, 300）；

第三步，看看结果。

后面会分享更多关于Excel VBA的知识，欢迎大家留言、讨论！

什么是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来解决，从实战中学习，相对来说比较快一点。大家觉得那种更好一点呢，或者有更好的方法，欢迎在下方评论，小编一定会及时回复。。

可能很多朋友不知道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也没有想象的那么难？

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