如何学习VBA_3.3.9:利用“搭积木”思想，快速有效地完成你的代码
我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。
如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。
VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是如何学习VBA_3.3.9:利用“搭积木”思想，快速有效地完成你的VBA代码
【分享成果，随喜正能量】262 什么是成年人最顶级的自律呢？就是不拆穿，但是会远离，不动声色的淘汰身边的烂人烂事。黄连救人无功，人参杀人无过，世上的大部人，宁愿在甜言蜜语中死去，也不愿在忠言逆耳中重生。这就是人性，所以要克制自己去纠正别人的欲望，不要随意介入你的因果，你介入谁的因，你就要承担谁的果。
3.3.9 利用“搭积木”思想，快速有效地完成你的VBA代码
完成你的VBA代码只要三步：找到“积木”；修正“积木”；放好“积木”
在上一篇讲如何写代码程序的时候，我讲了换一种思路来解决问题，今日我将继续此思路的延伸——如何写VBA的程序。
我一直在推广搭积木的思想，对于一块积木，在不同的程序中只是参数的不同，起的作用是相同的，那么怎么样利用好这些积木呢？就是要修正必要的语句。这个程序中是这种写法，在另外的程序中就是其他的表述形式，当你理解了我给出的积木的作用，你就可以灵活地利用了。
今日仍讲解一个查找程序，这个查找程序在我之前的文章中有过讲解，是利用《VBA代码解决方案》的内容完成的一个多种查找方式的汇总，在推出了《VBA数据库解决方案》后，今日我们将利用数据库的知识来完成这段程序，让大家体会一下两者的不同。教程可以作为你的积木库，里面有大量的积木等你选择。当然，程序无所谓好与坏，都是一样的应用，我也反复的声明，我推出的系列教程是面向职场人员，以实用为目的，以解决工作中的实际问题为主要方向，一些细枝末节的推敲在这里很少提到。
我们的查找数据，和被查找数据如下图：
“FIND”页是数据源，我们要在源数据中按照条件1查找“MY”工作表中各行的数值，然后将对应的数据放到后面的各列中，如何实现呢？
1 分析：要想用数据库解决上述问题，我们首先想到用数据库去连接上述两个工作表，然后提取出“FIND”工作表中与“NY”工作表中A列相同的BCD列的值，建立什么连接呢? 很显然，用左外连接和右外连接都能解决此问题，这里我们选择的是左外连接。
2 找积木：打开左外连接的积木块：要选择工作表相关的内容，因为我们要连接的是EXCEL工作表。到VBA数据库解决方案第58讲拷贝出代码，注意《VBA数据库解决方案》一书我是提供EXCEL程序文件的，要从程序文件中拷贝，由于有很多汉字字符，要打开汉字的录入后拷贝：
3 修改积木：
代码：
Sub mychazhaoONE()
Dim cnADO, rsADO As Object
Dim strPath, strSQL As String
Worksheets("MY").Select
[B:D].ClearContents
Set cnADO = CreateObject("ADODB.Connection")
Set rsADO = CreateObject("ADODB.Recordset")
strPath = ThisWorkbook.FullName
TT1 = Sheets("find").Range("a1")
SS1 = Sheets("find").Range("b1")
SS2 = Sheets("find").Range("C1")
SS3 = Sheets("find").Range("D1")
cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & strPath
strSQL = "Select b." & SS1 & ",b." & SS2 & ",b." & SS3 & " From [MY$] as a LEFT JOIN [FIND$] as b ON (a." & TT1 & "=" & "b." & TT1 & ") "
rsADO.Open strSQL, cnADO, 1, 3
For i = 1 To rsADO.Fields.Count
Cells(1, i + 1) = rsADO.Fields(i - 1).Name
Next
Range("b2").CopyFromRecordset rsADO
rsADO.Close
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
End Sub
代码截图：
在上面的代码中，我修正了几处：
1 工作表名称的修正
2 条件的修正
3 提取字段的修正
其余的没有做任何改变。下面我们看代码的运行：
完全符合我们的预期。
我们看到，这种修正积木再搭建的办法可以大大节省你宝贵的时间，当然，要能顺利地修正这些积木，对这些积木要理解，比如在我今天的例子中，你要深刻理解的知识点包括：
1 什么是左外连接？
2 左外连接的返回值是怎么样的？
3 如何建立起左外连接的SQL语句？
4 SQL 语句的有效写法。
这些当你在学习第58讲的时候要解决。
4 问题的引申
上述的过程实现了对于单条件的查找，那么双条件呢如何实现呢？这里我只给出代码的截图：
- MyFind.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
