VBA编程对于很多人来说感觉很陌生，但是在很多时候，它的优势还是很明显的，我们有时候还是要学会使用的，而且也没有必要去下很大功夫去学，做起来真的不难。
前段时间有个以前的同事求助到我，说她有个文件是很久之前同事编的VBA文件，但是现在这个文件有点问题，她想调整一些东西，但是不知道怎么打开VBA界面，后来我说你按ALT+F11，如果是笔记本再加一个Fn键，但是按下之后发现那个文件设置了工程密码，感觉这个事情进行不下去了，我说能找下那个写VBA的人么，她说那个同事是很久之前的，联系不到了，她就显得比较沮丧了，后来我说虽然我以我现在的水平也不会编这个程序，但我可以试试。
我就直接上百度了，搜索了“破解EXCEL工程密码”几个字，找出了很多文章
然后找一篇有VBA代码的文章，比如下面的这篇文章：
之后我打开了按下了ALT+F11打开了VBA编程界面：
然后点击插入-模块后，即可打开我们程序编辑的存放的界面，即右边大方框的区域。
我们将复制的程序粘贴放入这个区域，保存即可，我复制的代码运行时会报错，少个变量的定义，后来我增加了一个定义就可以使用了
当然我们有时候复制的程序是不能直接使用的，但是有时候改起来真没你想的那么复杂，比如下面这个我之前写的代码：
Sub 按照sheet表名字修改()
Dim i As Integer
For i = 3 To 21
Worksheets(i).Range("a2").Value = "经营损益表-" & Worksheets(i).Name
Next i
End Sub
这个代码理解起来是真不难，而且我这段代码的意图我还做了标记，就是“按照sheet表名字修改”，Worksheets(i).Range("a2").Value 是第i个工作表的A2单元格，Worksheets(i).Name是工作表的标签名称，Worksheets(i).Range("a2").Value = "经营损益表-" & Worksheets(i).Name的意思就是第i个工作表的A2单元格=“经营损益表-”+工作表的标签名称，然后通过For.....next循环语句，将第3个表到第21个表的A2单元格的名字进行修改，这个地方其实只要以前在大学学过简单的计算机语言的，做这个简直就是So easy。
比如你要是想用这个代码，只需改下Worksheets(i).Range("a2")里的i的范围或A2单元格的位置就可以了，是不是很简单。
如果喜欢我的文章，欢迎关注微信公众号：跟我学EXCEL图表
热门跟贴