简介：这份《Visual Basic编程基础教程》面向零基础编程初学者与需要快速上手VBA的办公自动化人群，系统讲解从语言概念、集成开发环境使用到图形界面构建的入门知识，帮助读者建立完整的VBA编程认知框架。压缩包内共1个PDF文件，约2.17MB，内容为完整的教程正文，涵盖变量与数值类型、数值表达式与类型转换函数、MsgBox与InputBox的键盘输入和屏幕输出、If-Then条件执行、字符串处理函数、for与while循环结构、数组和矩阵应用以及文件读写操作等核心章节，并配有实例与课后练习。目前已有112人学习下载。教程按知识点由浅入深编排，目录结构清晰，读者可跟随章节顺序完成一个简单编程实验，在动手练习中巩固语法与逻辑，适合作为自学入门读物或课堂辅助教材使用。
1. 一份 2006 年的 VBA 讲义，为什么今天还值得翻
接手一份别人留下的 Excel 报表模板，打开一看，里面藏着几十行 VBA：按钮点下去能自动汇总、能弹窗问参数、能把结果另存成文本。想改，却不知道从哪下手——这是很多做数据、做报表、做办公自动化的人都会撞上的场景。手头这份《Visual Basic for Applications 编程入门（修订版 2）》，就是冲着这个场景来的：它不是讲 VB6 桌面开发，而是把 VBA 当成一门完整的入门语言来教，从集成开发环境、变量与数值类型，一路讲到条件执行、字符串、循环、数组矩阵、文件读写和函数子程序。全书按章节配练习，适合零基础跟着敲，也适合有别的语言底子的人快速对齐 VBA 的语法边界。它解决的不是“炫技”，而是让你能读懂、改得动、写得对那段藏在表格背后的代码。
2. 先把语言骨架立住：变量、类型与表达式求值
2.1 为什么先啃变量和数值类型
很多人学 VBA 的第一反应是直接录宏、改宏，结果卡在Type mismatch上半天。这份讲义把第 3 章整章压在“变量和数值类型”上，顺序是有讲究的：先讲数值变量的声明与作用域，再讲数值表达式的构成，然后专门用一节讲表达式求值（3.1.2），最后才落到类型转换函数和内置函数。这个编排背后是一条硬规则——VBA 在运行时会按变量的声明类型做隐式转换，转换失败就抛错，而错误往往不在你写的那一行，而在上游某个变量被赋了字符串。
讲义里对运算符优先级和结合性（3.1.5）单独成节，这点很关键。VBA 的算术运算符优先级是^>* />\>Mod>+ -，而\（整除）和Mod的优先级低于乘除、高于加减，很多人写a + b Mod c以为是(a+b) Mod c，实际是a + (b Mod c)。这类坑在报表取整、分页计算里特别常见。
2.2 声明与类型转换的可复现写法
下面这段是我按讲义第 3 章的思路整理的最小验证脚本，放在标准模块里就能跑。它把声明、隐式转换、显式转换三件事一次演示清楚：
Sub TypeBasics() ' 显式声明，避免 Variant 带来的隐式转换开销 Dim qty As Integer Dim price As Double Dim total As Double Dim label As String qty = 12 price = 3.75 total = qty * price ' 数值相乘，结果 45 ' 显式转换：CInt 会做四舍五入，Int 是向下取整 Debug.Print CInt(total / 7) ' 输出 6 Debug.Print Int(total / 7) ' 输出 6 Debug.Print total \ 7 ' 整除，输出 6 Debug.Print total Mod 7 ' 取余，输出 3 ' 字符串转数值：Val 遇到非数字就停，不报错 label = "45abc" Debug.Print Val(label) ' 输出 45 ' 而 CInt("45abc") 会直接抛类型不匹配 End Sub逻辑说明：Dim ... As是显式声明，讲义反复强调在模块顶部加Option Explicit，强制所有变量先声明，否则拼错变量名会静默生成一个新 Variant，这是后期排查最费时的一类问题。参数上，CInt对.5采用银行家舍入（四舍六入五成双），Int永远向负无穷取整，负数场景下两者结果不同，做金额分摊时要盯住这一点。Val是宽容解析，适合处理从文本框读进来的脏数据；CInt/CDbl是严格解析，适合你已经确认格式干净的场景。
2.3 表达式求值的两个边界
讲义 3.1.2 节讲求值顺序时提到短路问题，但 VBA 的And/Or并不短路——两边都会求值。这意味着If obj Is Nothing Or obj.Name = "" Then这种写法在 VBA 里会直接崩，因为右边照样执行。正确写法是嵌套If或先判空再进分支。另一个边界是整数溢出：Integer上限 32767，做行号累加或计数时很容易越界，讲义建议计数类变量统一用Long，这条在今天的 64 位 Office 里依然成立。
3. 控制流与字符串：把判断和文本处理写对
3.1 条件执行的分支选型
第 5 章把If-Then、关系表达式、逻辑表达式（Or/And/Xor/Not）和Select Case放在一起讲，是有意让你建立“分支选型”的意识。两三个互斥条件用If-ElseIf就够；一旦分支超过四个、且判断的是同一个表达式的不同取值，Select Case的可读性和维护性明显更好。讲义 5.4 节还专门列了运算符优先级，关系运算符（=、<>、<、>）的优先级高于逻辑运算符，所以a = 1 And b = 2会被解析成(a=1) And (b=2)，这是符合直觉的，但Not a = 1要小心，Not的优先级高于=，实际是(Not a) = 1，正确写法是Not (a = 1)。
Sub BranchDemo() Dim score As Long score = 78 ' 区间判断用 If-ElseIf，边界写清楚 If score >= 90 Then Debug.Print "A" ElseIf score >= 75 Then Debug.Print "B" ' 命中这里 Else Debug.Print "C" End If ' 等值多分支用 Select Case，注意 Case 从上到下匹配 Select Case score \ 10 Case 9: Debug.Print "优秀" Case 7, 8: Debug.Print "良好" ' 78\10=7，命中 Case Else: Debug.Print "待提升" End Select End Sub参数说明：score \ 10是整除，把百分制压到十位，Case 7, 8用逗号并列多个取值，比写Case 7 To 8更直观（后者对整数区间也成立）。Case Else必须放最后，放中间会编译报错。这里的分支顺序不能乱，Select Case是顺序匹配，第一个命中的Case就跳出。
3.2 字符串函数的组合用法
第 6 章把Len、Left、Right、Mid、Instr逐个拆开讲，这几个函数是 VBA 处理文本的全部家底。实际报表清洗里最常见的组合是“定位分隔符 + 截取”。比如一列"2024-06-15|华东|1280"的拼接串，要拆出日期、区域、金额：
Sub ParseRecord() Dim raw As String, p1 As Long, p2 As Long raw = "2024-06-15|华东|1280" p1 = InStr(1, raw, "|") ' 第一个分隔符位置 p2 = InStr(p1 + 1, raw, "|") ' 从 p1 之后找第二个 Debug.Print Left(raw, p1 - 1) ' 2024-06-15 Debug.Print Mid(raw, p1 + 1, p2 - p1 - 1) ' 华东 Debug.Print Mid(raw, p2 + 1) ' 1280 End Sub逻辑说明：InStr(start, string, substring)的start参数是 1 基，返回首次出现的位置，找不到返回 0。Mid(str, start, length)的length省略时取到末尾。这里的关键是p1 + 1作为第二次查找的起点，避免又匹配到同一个分隔符。参数上，Left/Right的第二个参数是字符数，不是索引；中文在 VBA 里按字节还是按字符取决于LenB与Len的区别，讲义 6.3 节明确Len返回字符数，处理中文列名时用Len不会错位。
3.3 循环结构的选择
第 8 章把For-Next和Do-Loop分开讲，选型逻辑很直接：次数已知用For-Next，条件驱动用Do-Loop。For-Next的循环变量在循环体里不要手动改，改了会让步进逻辑失控；Do-Loop有While/Until前置和后置四种组合，前置先判断再执行，后置至少执行一次。遍历工作表行时，我一般用For i = 2 To lastRow，lastRow用Cells(Rows.Count, 1).End(xlUp).Row取，而不是写死数字。
4. 数组、文件与过程：把数据搬进搬出
4.1 数组与矩阵的声明边界
第 9 章讲数组和矩阵，重点是Dim arr(1 To 10)这种指定上下界的写法，以及二维矩阵Dim m(1 To 3, 1 To 4)的行列顺序。VBA 默认Option Base 0，数组下标从 0 开始，但讲义里大量示例用1 To n，因为业务数据天然是 1 基的。混用是翻车高发区：ReDim重设大小时如果不加Preserve，原有数据全丢；加了Preserve只能改最后一维的大小，改第一维直接运行时报错。这条限制在讲义 9.1 节有明确交代，做动态汇总表时务必记住。
Sub ArrayDemo() Dim m() As Double Dim i As Long, j As Long ReDim m(1 To 2, 1 To 3) ' 2 行 3 列 For i = 1 To 2 For j = 1 To 3 m(i, j) = i * 10 + j Next j Next i ' 只扩最后一维，保留原数据 ReDim Preserve m(1 To 2, 1 To 5) Debug.Print m(2, 3) ' 仍是 23 End Sub参数说明：ReDim只能作用于动态数组（声明时括号留空），静态数组不能ReDim。Preserve保留已有元素，新增位置初始化为 0 或空串。二维数组在内存里按行优先存储，遍历时外层走行、内层走列，缓存友好，大数据量下差别能感觉到。
4.2 文件读写的固定套路
第 10 章的文件操作是这份讲义里最“工程化”的部分：打开、关闭、写、读四步，每步都有对应的语句。VBA 的文件号（FreeFile）是 1 到 511 的整数，必须用FreeFile动态取，写死文件号在多过程并发时会冲突。下面是一个按行写、再按行读回的完整闭环：
Sub FileRoundTrip() Dim fnum As Integer, line As String Dim path As String path = ThisWorkbook.Path & "\demo_out.txt" ' 写：Output 模式会清空原文件 fnum = FreeFile Open path For Output As #fnum Print #fnum, "row1,100" Print #fnum, "row2,200" Close #fnum ' 读：Input 模式逐行读到 EOF fnum = FreeFile Open path For Input As #fnum Do Until EOF(fnum) Line Input #fnum, line Debug.Print line Loop Close #fnum End Sub逻辑说明：Open ... For Output是覆盖写，要追加得用For Append；Print #写文本行，Write #写带引号和逗号分隔的格式，两者读回时的解析方式不同，别混用。Line Input #读整行到换行符为止，适合 CSV 类文本；Input #按分隔符拆字段，适合结构化数据。EOF(fnum)判断是否到文件尾，循环里必须先读再判，否则最后一行会漏。路径用ThisWorkbook.Path拼接，避免硬编码盘符，换机器不用改。
4.3 函数与子程序的分工
第 11 章把Function和Sub分开讲，还专门讨论了参数传递（11.3.1）：VBA 默认ByRef，传的是引用，函数内部改了形参，调用方的实参跟着变。要防止副作用，显式写ByVal。递归（11.7）那节用阶乘和斐波那契举例，提醒递归要有终止条件，且 VBA 的调用栈不深，层级一多就溢出。实际写工具函数时，我习惯把纯计算逻辑写成Function返回值，把有副作用的操作（改单元格、写文件）写成Sub，这样单元测试和复用都方便。
5. 避坑清单：五个真实会卡住你的问题
5.1 现象：宏跑一半报“类型不匹配”，定位不到行
原因：变量没声明，拼写错误静默生成 Variant，或者从单元格读出的值带空格/全角字符，CInt严格转换失败。解决：模块顶部加Option Explicit，所有变量显式声明；读单元格后先Trim再转换，转换前用IsNumeric判一下。
5.2 现象：ReDim Preserve报“下标越界”
原因：试图改第一维大小，或者对静态数组用了ReDim。解决：动态数组声明时括号留空；需要扩第一维时，先建一个更大的临时数组，用循环搬数据，再整体替换。
5.3 现象：文件写完是空的，或者读出来乱码
原因：Open后没Close就结束过程，缓冲区没刷盘；或者用Print #写、用Input #读，格式对不上。解决：每个Open配一个Close，放在过程末尾或错误处理里；读写模式成对使用，文本行用Line Input读回。
5.4 现象：If a = 1 Or b = 2在对象为空时崩溃
原因：VBA 的Or不短路，右边照样求值。解决：拆成嵌套If，先判Is Nothing再访问成员；或者用IIf时注意它同样两边都求值，不能拿来防空。
5.5 现象：循环遍历工作表越跑越慢
原因：循环体里频繁读写Cells，每次都是一次 COM 调用。解决：把区域一次性读进数组，内存里算完再一次性写回；ScreenUpdating = False包住整个过程，结束时恢复。
6. 把讲义变成自己的工具箱：验证与进阶
讲义每章末尾都有练习，但光做练习不够，得有一套自己的验证习惯。我的做法是给每个新学的语法点配一个最小可运行过程，放在单独的测试模块里，跑通再往正式代码里搬。比如学完第 6 章字符串函数，就写一个TestStringFuncs，把Len、Mid、Instr的边界值（空串、单字符、找不到分隔符）全跑一遍，输出到立即窗口。这套习惯的价值在于：VBA 没有单元测试框架的天然支持，靠的就是这种“小过程 + 立即窗口”的手工回归。
进阶方向上，讲义第 12 章的复合数据类型（Type自定义结构）和第 13 章的基本控件（Label、TextBox、OptionButton、CheckBox）是两条自然的延伸线。前者让你把一组相关字段打包成一个记录，处理表格行数据时比并行数组清晰得多；后者让你从“改宏”走到“做小工具”，把参数输入从改代码变成填表单。下面这个自定义类型加数组的组合，是我处理批量记录时最常用的骨架：
' 在模块顶部定义复合类型 Type Record dt As String region As String amount As Double End Type Sub UseRecord() Dim recs(1 To 100) As Record Dim n As Long, i As Long n = 3 recs(1).dt = "2024-06-15": recs(1).region = "华东": recs(1).amount = 1280 recs(2).dt = "2024-06-16": recs(2).region = "华南": recs(2).amount = 960 recs(3).dt = "2024-06-17": recs(3).region = "华北": recs(3).amount = 1540 Dim sum As Double For i = 1 To n sum = sum + recs(i).amount Next i Debug.Print sum ' 3780 End Sub参数说明：Type ... End Type必须放在标准模块的声明区，不能放在类模块或窗体代码里；数组元素是值类型，赋值是逐字段拷贝，不像对象那样共享引用。字段名用短名减少输入量，但别短到看不懂。这套结构配合第 10 章的文件读写，就能做出“读文本 → 解析成记录数组 → 汇总 → 写回文件”的完整小流水线。
最后说个血泪经验：VBA 的错误处理On Error很容易写成“吞异常”，On Error Resume Next一加，后面所有错误都静默跳过，排查时像在黑匣子里摸。我现在的习惯是每个可能失败的过程都写On Error GoTo Handler，在Handler里记录Err.Number和Err.Description再退出，宁可多几行，也不让错误无声消失。从那以后我每次改完一段 VBA，都强制走一遍“空数据、边界值、异常输入”三组用例再交付。希望这份讲义的拆解，能帮你在下一次打开那段陌生宏时，少一点懵，多一点底气。
本文还有配套的精品资源，点击获取
