| 阅文时长 | | 5.21分钟 | 字数统计 | | 1823字符 |
| 『Office·Word高级·VBA基础概念语法』 | |||
| 编写人 | | SCscHero | 编写时间 | | Monday, June 29, 2020 |
| 文章类型 | | 系列 | 完成度 | | 待完善 |
| 座右铭 | 每一个伟大的事业，都有一个微不足道的开始。Hello World！ | ||
常量与变量 完成度：80%
基础概念
宏方法和自定义函数
- 宏方法定义指令：
Sub [宏方法名称]()
[内容]
End Sub
- 自定义函数定义指令：
Function [自定义函数名称](参数A，...) As [返回值数据类型]
[自定义函数内容]
End Function
变量
- 使用Dim关键字声明变量，可以直接指定数据类型，也可在后面赋值中根据值类型自动赋予数据类型。
- 变量是命名的存储位置，包含在程序执行阶段修改的数据。
- 变量有变量名，在其范围内唯一。变量名必须以字符或下划线开头，不能超过255个字符，而且中间不能包含句点或类型声明字符。
- 变量若是对象，不可与方法名重复。
- 对变量赋值，可以直接赋值，若是对象，需要使用Set关键字进行赋值，并指定类型。
常量
- 使用关键字Const声明，也可以直接赋值，省略Const。
注释
- VBA中使用'符号标明注释，之后该行的代码将被编译器忽略
输出方法
- 使用模态窗口，MsgBox [变量]指令，F5运行执行方法，即可弹出
- 使用立即窗口，Debug.Print [变量]指令输出
语法
'声明常量关键字Const
Const pi = 3.1415926
'弹出模态窗口调试
MsgBox pi * 4 '消息框
'声明变量x和y，也可以使用Dim x,y批量声明
Dim x
Dim y
x = 10
y = 20
'声明一个Range数据类型的变量ran
Dim ran As Range
'弹出x+y的值
MsgBox x + y
常见数据类型
- 变量的特性，用来决定可保存何种数据。数据类型包括：
- Byte字节
- Boolean布尔型
- Integer(%)整数型
- Long(&)长整型
- Currency(@)货币型
- Single(!)单精度浮点型
- Double(#)双精度浮点型
- Object对象
常见Q&A
将变量声明为指定数据类型，好处是什么？【答】对象可有成员提示，并可以节省内存空间
条件判断语句 完成度：80%
IF
IF语句是许多编程语言中最常用的条件判断语句，语法如下：
- 单重判定的单行和多行写法
Sub 单重判定的单行和多行写法()
If 99 >= 88 Then MsgBox "恭喜": MsgBox "不恭喜"
If 99 >= 88 Then
MsgBox "恭喜"
MsgBox "不恭喜"
End If
End
End Sub
- 多重判定（块写法）
Sub 多重条件判断·块写法()
If 99 >= 88 Then
MsgBox "合格"
Else
MsgBox "不合格"
End If
End
End Sub
- 多条件写法
Sub IF多条件写法()
Dim o As Byte
o = InputBox("请输入你的年龄")
If o >= 60 Then
MsgBox "老年"
ElseIf o > 30 Then
MsgBox "中年"
ElseIf o >= 6 Then
MsgBox "少年"
End If
End
End Sub
Select Case
Select Case语句类似于其他编程语言中的Switch，语法如下：
Sub SelectCase()
Select Case 81
'Is代替81这个值
Case Is >= 80
MsgBox "合格"
Case Else
MsgBox "不合格"
End Select
End Sub
循环语句 完成度：80%
For
For语法如下：
Sub For()
Dim icount As Integer '设置一个循环变量
'To后面的10表示icount到达10后停止循环；Step后面的2表示步长，即icount变量每次+2进行判断，步长可省略，默认为1
For icount = 1 To 10 Step 2
Next icount
End Sub```
## For Each
For Each常用于遍历集合对象，语法如下：
```basic
Sub ForEach()
'声明一个Range对象（Range对象不清楚的可以去微软官方资料查下，不懂也没关系）
Dim c As Range
For Each c In Selection.Characters
MsgBox c.Text
Next c
End Sub
Do Loop
Do Loop循环，类似于其他编程语言中的Do While，即先执行一次后在判断是否满足退出循环条件，也可以无限循环。Do Loop中有两个关键字来终止循环，Union和While，Union即当满足表达式条件，终止循环；While即当满足表达式条件，继续循环。
Sub doLoop语法()
n = 5
Do
n = n + 1
MsgBox n
Loop Until n = 10
'使用Union指令，当满足表达式条件，退出Do Loop循环
'或使用While指令，当条件成立时，循环
End Sub
如果有帮助到你，请点个赞哦。如果有什么问题，请评论，一起探讨一下。共同进步！如有什么需要与作者联系的，直接私信SCscHero即可。