Excel表格宏命令教学二：VBA基础
2 VBA基础
VBA基础包括
- 变量的声明，定义，赋值，取值，数据类型
- Excel表格的基本操作
- VBA自带函数的使用方法
2.1 变量
2.1.1 变量类型
根据数值类型可以分为数值，字符，日期，布尔等类型；
数值类型的数据用来存储数字，比如 1.2 ,10, 1000，
字符类型用来存储字符串，比如 helloworld，你好
布尔类型，就是 true/false
2.1.2 变量声明
语法：Dim varname as varType // varname 是变量名 vartype是变量类型 比如
``
Dim myage as Integer // 声明一个整数变量
Dim myname as String // 声明一个字符串变量
2.1.3 变量的赋值
myage = 18 // 整数赋值
myname = "Eric" // 字符串赋值
2.1.4 变量的使用
m = 12
n = 36
x = m * n
2.1.5 变量的范围
全局变量：Public varname as type
局部变量：Dim varname as type
全局变量在整个文件内都可用，局部变量只在函数内部可以使用
Public Myage as Integer // 全局变量
Myage = 18
Sub MyFunc()
Dim myname As String // 局部变量
myname = "Eric"
Worksheets(1).Range("A1").Value = myname //使用局部变量
Worksheets(1).Range("A2").Value = Myage // 使用全局变量
End Sub
2.2 Excel表格基本操作
2.2.1 定位sheet
我们知道Excel表格默认有三个Sheet（sheet1,sheet2,sheet3）
那我们在VBA 程序里如何取得这三个Sheet呢？ 演示如下，为了方便演示，我在每个sheet的A1 单元格分别填写不同的内容 “A in sheet1”,“B in sheet2”
下面我写一段代码，使用下标的方式来定位sheet，分别从sheet1 和 sheet2 里取A1 单元格里的内容
Sub mytest()
Dim MyString As String
MyString = Worksheets(1).Range("A1").Value
MsgBox (MyString)
MyString = Worksheets(2).Range("A1").Value
MsgBox (MyString)
MyString = Worksheets(3).Range("A1").Value
MsgBox (MyString)
End Sub
在Excel 表格里找到宏，查看宏，点击执行，
分别取出A1 的值，并用弹窗的形式展示出来。
2.2.2 定位Sheet的其他方式
除了使用数字下标1，2，3 分别获取sheet1，sheet2，
MyString = Worksheets(1).Range("A1").Value 。
也可以直接指定名称来定位sheet，比如：
MyString = Worksheets("sheet1").Range("A1").Value
MyString = Worksheets("sheet2").Range("A1").Value
也可以达到同样的效果。
自己可以试验一下
2.3 VBA 自带函数的使用
如同在编辑栏里直接写SUM(A1,B1) 就可以直接使 A1 和B1 单元格的内容相加，VBA里也可以直接使用SUM函数。
Sub mytest()
Dim MySum As Integer
a1 = Range("A1") // 获取A1的值
b1 = Range("B1") // 获取B1的值
MySum = Application.WorksheetFunction.Sum(a1, b1)
Worksheets("sheet1").Range("C1").Value = MySum
End Sub
在Excel 表格运行
另外其他函数可以参考官方文档： https://docs.microsoft.com/zh-cn/office/vba/api/excel.worksheetfunction
https://docs.microsoft.com/zh-cn/office/vba/api/overview/excel