【VBA经验谈】如何快速学习VBA？

在知乎上有很多朋友问VBA如何入门？看着代码密密麻麻看不进去。
我想说，我刚开始看也是看着代码也是挠头，但是没办法，要解决批量处理excel的相关问题VBA再好不过。一定要坚持。
我理解的入门，是看到问题，立马能想到用哪个VBA知识点来解决。如果在脑袋里还能隐隐约约有那么几句固定格式解决各种问题的代码，那就算是中等水平了。
其实我觉得很少人用学那么深，并且能解决大多数人遇到的问题的代码就那么几类。都可以通过修修改改来实现自己需要的功能。
代码太多了，根本不用记，用的时候找出来需要代码拼凑修改一下就可以了。这样的话我觉得对于一般的小白，从入手到中等水平，需要半年吧。毕竟工作一族不可能每天都有充裕时间去学习。

关于我自己的几点经验
●多看VBA教程
买本书或者看视频均可(最基础的，循环，数组，字典，正则，事件要没问题，不然修改代码都不知道如何下手)，视频找适合自己的，适合就是看得进去的视频。
如果实在看不下去书和视频，那还是参加专门的培训或者趁早放弃找人代工。
如果你遇到某个问题，就能想到用什么知识点来解决，那么恭喜你！就算不会代码，你这也算是入门了。不能算小白了。
这个时候你需要的是，赶紧翻书或者看教程是如何利用这个知识点来解决问题的。并且尝试自己敲出来代码，或者录制宏修改代码。印象会很深刻。

不感兴趣

开通SVIP免广告

●学会积累和修改代码
举个例子：循环打开多个工作簿
估计好多人听说VBA是从合并工作簿知道的，合并工作簿是有通用的代码框架的，记住框架，再也不怕对工作簿进行其他操作。
Sub 循环打开工作簿()
Application.ScreenUpdating = False
myfile = Dir(ThisWorkbook.Path & "\*.xls*")
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfile
我是需要填空的代码
Else
End If
myfile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "完成"
End Sub
如果你要提取特定内容的单元格，只需要结合find方法，查找内容是“你好”的单元格的行号，并赋值。在空白处填上如下代码即可。
ThisWorkbook.Worksheets(1).Cells(a, 1) = wb.worksheets(1).Cells.Find("你好", , xlValues, xlWhole, xlByColumns, xlNext, True, True).row
如果你要合并工作簿，那么只需要在填空的代码里，对单元格区域应用copy方法。在空白处填上如下代码即可。
wb.worksheets(1).range("a1").usedrange.copy ThisWorkbook.Worksheets(1).range("a1")
上面说的copy方法、find方法只要是入门了的选手，稍微翻翻教程便会。

诸如上面所举的例子，好多代码都是可以套用的，不用背代码。只要多搜集整理，用的时候能找到就行。
当然，我也会在以后的帖子里面多分享一些通用代码。希望大家持续关注

楼主好人，大好人，楼主一生平安

楼主微信多少？加你微信学习

谢谢分享经验

我有不懂的，可以在这里求助吗？

不感兴趣

开通SVIP免广告

您好，新人小白，求助。
要做一个日程变更的按键，按下之后，之前选择的信息会加上删除线，然后保留在后台，或者开辟新的页面保存。然后复制已经选择的信息，可以在上修改。
能帮帮忙嘛？有空的话。

楼主有比较好的入门VBA的书籍推荐吗？

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

16回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六