或许你看过不同的VBA程序的运行，对于窗口的切换一定印象深刻。在程序运行时，根据不同的需求，窗口在不同的工作表间自由的切换，可以先从一个工作表取值，放到第二个工作表中，再从其他的工作表中取出参数并参与运算，运算得出结果，放到一个单独的工作表中，看的人眼花缭乱。

这种运算是VBA所特有的。虽然在运行时会产生很多的碎片，影响时间的利用，但对于单纯的运算来讲，还是节约了时间，最主要的是提高了数据的准确性和可信度。

在羡慕别人的同时，是否也希望自己能做出这样的程序呢？当然，对于每位学习VBA的朋友来说，这是很自然的事情，学以致用，利用自己的所学。从VBA入手点滴的积累，总会有所收获，正如你经常来我这个平台，福不唐捐，总会能碰到你急于掌握的知识一样。前些时有位朋友留言，说是帮了他大忙，但我确实不知道这位朋友的大忙是什么，也并非给这位朋友定制的，总是机缘吧。

闲话少叙，其实这个实现起来很简单的，今天就给大家讲解一下利用VBA如何控制窗口的切换。

我们先看下面的代码：

11 Dim AppPATH

12 AppPATH = ActiveWorkbook.Path

13 ChDir AppPATH

14 Workbooks.Open FileName:=AppPATH & "\XX.XLS" '打开文件

15 Sheets("SHEET1").Select

16

17 Do While .Cells(I, 1).Value <>""

18-90 '提取数据’

91 I = I + 1

92 Loop

93

94 ActiveWindow.Close (False) '关闭文件

95

96 Windows("LUMAN").Activate

97

98 Sheets("SHEET1").Select

99-199 '执行操作

200

201 Sheets("SHEET2").Select

201-230 '执行操作

231

232 MsgBox ("ok!")

233

程序讲解，上面的代码是一个名为LUMAN.xls的EXCEL的VBA部分代码，当执行到第11行时，程序会识别一下路径，进而打开一个在同文件夹下名字为XX的文件。

15-93行程序会在此文件中进行操作，此时窗口的文件就是这个XX的文件，当执行到第94行时，文件XX会自动的关闭

执行到第95行时，活动窗口又回到了LUMAN的文件，先在SHEET1中进行操作，然后到SHEET2中进行操作。

所有操作执行完成后弹出对话框”OK”。

上面的代码在运行的过程中用到了两个文件，并在期间切换运行，窗口的可视性非常的好，这点比其他程序要友好，如VB6的控件，GO对EXCEL的操作。这也是强大的EXCEL的功能造就的。

当然，对于初识VBA的朋友，上面的讲解不是很解渴，不过没关系的，上面的文章中引入了很多的知识点，如：如何获得当前的地址,如何打开一个文件，如何关闭一个文件，如何把窗口切换到另外的文件等等，只要你掌握了其中之一，就有收获，而且是不小的收获。

今日内容回向：

1 VBA如何获得当前的地址,

2 VBA如何打开一个文件，

3 VBA如何关闭一个文件，

4 VBA如何把窗口切换到另外的文件

5 如何提高程序的可视性

6 如果不关闭上一个窗口，是否会影响到下面的操作？

分享成果，随喜正能量

出现每次打开excel都要配置进度的原因是office配置注册文件有错误,通过命令修正这个文件即可，如下的解决方法：

1、打开计算机，依次打开文件夹到c:\Program Files\Common Files\Microsoft Shared\OFFICE12\Office Setup Controller，有的人在这个文件夹中找不到office setup controller，那么你的应该是在c盘的Program Files\Common Files（x86）\Microsoft Shared\OFFICE12\Office Setup Controller中（64位系统的原因）；

2、打开这个文件夹以后，会看到有一个setup的可执行文件，将其重命名，如命名为setup001。这样问题就解决了。如果还没有解决，那可能是下面的问题，继续进行下面的操作；

3、在开始菜单中，打开运行窗口；

4、在打开的运行窗口中输入%windir%\Installer，按下回车，打开installer文件夹，在这里看到有很多文件，不用管多少，把所有的文件都删除就好了，同样问题可以得到解决。

（本文内容由百度知道网友lvrqing贡献）

前言

首先需要感谢看官您抽空观赏本文，若有任何问题，欢迎您的指正。

另外大家若有什么好的想法或者效果需求，可以在评论区留言或者私信我，我会尽力尝试做一做。

如果您喜欢本文的话，可以点赞、订阅、关注、收藏、留言评论哦！谢谢！O(∩_∩)O~~

情景还原 - 请您听我说

Excel - VBA 让表格处理变得更简单、更便利、更有趣。

平常我们从其他Excel表格Copy数据出来的时候，往往都会将源数据表格打开，然后提取我们所需要的部分数据；

将这个流程整理出来就是：①打开文件资源管理器，花若干秒找到文件；②花若干秒打开文件；③选中全文并Copy（若不熟练Excel快捷键等，可能Copy过程要多耽误几秒）；④回到需要数据的文档粘贴下来（若开的文件较多，可能切换时也要耽误几秒）。

那这上面的看似复杂的流程，可否有便利快捷的办法完成呢？

答案肯定是 —— 有。用VBA代码就能将上面的流程简化到只要【找文件】这一步。

功能介绍 - “吹”来“吹”去

流程简洁方便，只需要找到那份文档即可；

若源数据文档只有一个工作表，则直接汇入数据；

若待汇入源数据文档含有多个工作表，会提示选择需要汇入的表格；

若输入非关键值，则会报错并重新提示输入值。

效果演示 - 调皮的 GIF 环节

依旧是那句：万般文字也不如一个视频或者一张GIF演示来的痛快，请看官您静静观赏。

首先是一份正常使用情况下的完成流程：

调皮的 GIF 图有点点长 ~.~

当输入关键字时，输入非列表内的对应序号，则会报错提示，并重新回到输入关键字的界面：

确认选择的文件

输入 “WW” 不符合要求

报错提示信息

输错啦！请重新输入.GIF

VBA代码 - Tab / Space

效果演示看完了，那么就为您附上代码，供您慢慢检验：

VBA 代码

PS：若有看官觉得图片还不够清晰，无法尝试，您可以在评论区留言，我会私信回复您。若需要代码的看官比较多（比如100位），那么我会将文本代码直接以文章推送出来供大家查阅。

【关于私信，目前可能需要看官您先发送私信给我，作为作者这边无法直接向您发信息，若您曾给我发过私信且未将对话关闭，我这边就能从历史记录中向您发送信息。】

文末 - 谢谢您嘞，(づ￣3￣)づ╭

每一位读者的点赞、订阅、关注、收藏、留言评论都是对我的最大支持，谢谢各位帅哥美女！

同时也希望大家多多转发与评论留言，毕竟只有更多的人认可，我才更有动力为大家发布文章，提供代码。

再次谢谢大家！

友情链接 - 值得一看

1、Excel-VBA 让录入数据变得更智能——输入时提示匹配值

2、Excel-VBA 将乱序的数据剔除空值后有序排列成一列或一行

3、Excel-VBA 实时记录表格异动

4、Excel-VBA “十字星”聚焦效果

       1、点击开始→控制面板，选择大图标，找到默认程序。

　　2、进入默认程序后，选择“将文件类型或协议与程序关联”

　　3、点击一下当前默认值，即可按照当前的默认值排序找到 MicroSoft Office 并双击此项目。

　　4、在弹出的对话框中，选择 EXCEL软件打开之后点击确定即可;

（本文内容由百度知道网友我是来吓宝宝的贡献）

为方便我们以后编辑和访问，我们在处理好文件以后都会把文件保存在我们的电脑硬盘中， 如果需要再次访问该文件，可以通过以下几种方法来打开已经保存好的Excel文件：

直接打开

这种需要我们知道文件保存的具体位置，我们找到相应的路径以后，直接双击文件的图标就可以打开了。

打开对话框

如果我们已经打开了Excel程序，可以通过【文件】-【打开】-【浏览】命令（快捷键为Ctrl+O）来打开我们的文件，当点击浏览命令以后，会弹出一个打开文件的窗口，我们可以通过点击打开对话框左侧目录列表找到工作薄存放的路径，然后在右侧双击文件图标，就可以打开相应的文件，也可以选中需要打开的文件，然后在下面的【打开】命令按钮来打开。

另外呢，我们在打开的过程中需要注意的是右下角【打开】窗口的箭头，以【只读方式打开】，就是说我们打开这个文件只是看一看，不打算对文件进行修改和覆盖性保存。

以【副本方式打开】，这种是指我们需要对文件进行自己的修改，但是我们不想对源文件进行任何修改，我们就把修改以后的文件重新保存一份。

【在受保护的视图中打开】如果我们要打开从网站上下载的文件或者是怀疑其安全性的文件，我们认为其可能会包含病毒。为了帮助保护我的计算机，可以采用把这些文件在“受保护的视图”中打开，通过使用“受保护的视图”，仅可以读取文件并查看其内容，不能编辑。若要编辑的话，必须到【文件】-【信息】-【启用编辑】

【打开并修复】就是指文件可能因为某些原因导致程序崩溃，导致工作薄无法正常打开，我们就可以采用这种方式。

通过历史记录打开

我们最近打开或者是编辑过的工作薄，都会在Excel程序中留下历史记录，我们可以通过【文件】-【打开】-【最近】菜单，看到在右侧罗列了最近打开的文件列表，默认情况下是显示我们最近打开的25个文件，但是这个数字我们也可以进行设置，我们打开【文件】-【选项】-【高级】-【显示】就可以看到显示最近打开的文件的编辑框，数量是1~50，我们可以根据自己的需要进行微调，但是一般我们也是建议大家不要动，保持默认即可。

另外还有一个快速访问此数目的“最近使用的工作薄”，这个是显示在我们【文件】菜单打开的最左下端，默认是5，我们也可以在刚才的地方来设置。但是在重新设置这个数字的时候，是不能超过我们上面设置的最近使用的文件的数量。

因为文档中有宏，开启宏就可以了，操作方法如下：

1.打开office excel 2013,鼠标单击“文件”。

2.鼠标单击“选项”。

3.鼠标单击“信息中心”。

4.单击“信息中心设置”。

5.选择”宏设置“------启用所有宏”。

6.鼠标单击“确定”。宏启用完成。

（本文内容由百度知道网友茗童贡献）

分形图是个比较有意思的概念，它在我们身边随处可见，分形图有以下特点：

1.从整体上看，分形几何图形是处处不规则的。例如，海岸线和山川形状，从远距离观察，其形状是极不规则的。

2.在不同尺度上，图形的规则性又是相同的。上述的海岸线和山川形状，从近距离观察，其局部形状又和整体形态相似，它们从整体到局部，都是自相似的。

简单地用图来描述，分形图可能是长这样的：

放大之后具有自相似性

无限放大后形状不变

上帝的指纹

研究分形图非常具有实际意义，特别是在特效、设计、视觉领域。在星球大战里，黑武士和天行者拼极光剑的时候，那周围喷涌的岩浆，就是利用分形生成的。分形艺术中优美丰富的图形可以应用到各种布局中 如舞台设计,园林设计，建筑设计等（悉尼歌剧院），如2013春晚的有个剪花花的节目，里面就是应用了分形，效果非常棒。分形艺术不仅仅是好看而已，她含有非常深刻的哲学美感，如果一些现实应用采用了分形方案，将可能是非常有创意、深度、境界的设计。

下面将介绍如何在Excel里使用VB语言生成一个类型为曼德勃罗集合的分形图。曼德勃罗特集是人类有史以来做出的最奇异,最瑰丽的几何图形.曾被称为“上帝的指纹”。曼德勃罗特集是复数平面中的点集,当对一个函数迭代计算时,这些点将处于准稳定状态(quasi-stable),即将会增加或减少,但不会超过某一限度.通常该函数为:

Zn+1=(Zn)^2+C

式中Zn+1是复数z = a + bi的第n+1次迭代,c是确定该点在复平面中位置的复数值.z的初始值为0.迭代将一直进行下去,直到z的幅值大于2或者迭代次数已经达到某种任意的规定的限度.这里出于简便我们只需要对每个点迭代255次或者每个点迭代到Zn的最大绝对值小于2。

代码逻辑过程如下：

0：选定坐标系左下角的点（-2，-2）

1：设置zx=0 ，zy=0

2：重复计算

xt=zx*zy

zx=zx*zx-zy*zy+cx

zy=2*xt+cy

只要满足下列条件就一直计算：

a:还没有达到255次

b:结果值小于2

3：改变点的颜色，该颜色和第二步的迭代次数相关

4：选择下一个点

5：从第一步重新开始，直到到达右下角

实际代码如下：

拷贝上述代码

打开Excel，按下 Alt+F11 ，双击shit1并且选择"Worksheet"-"Activate"

粘贴代码，按F5执行，可以看到下列图像：

至此，大工告成。

以前流行的说法是：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的偶数相加，怎么计算呢？

【完】

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

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窗口。