《别怕，Excel VBA其实很简单》章节试读

《别怕，Excel VBA其实很简单》的笔记-第55页 - 3.3.3使用常量

Const p As Single=3.14

《别怕，Excel VBA其实很简单》的笔记-VBA中有哪些数据类型 - VBA中有哪些数据类型

《别怕，Excel VBA其实很简单》的笔记-第62页 - 声明动态数组

声明动态数组的方式
Sub dtsz()
Dim arr() As String
Dim n As Long
'统计A列到底有多少个非空单元格
n = Application.WorksheetFunction.CountA(Range("a:a"))
ReDim arr(1 To n) As String
End Sub

《别怕，Excel VBA其实很简单》的笔记-第66页 - 将数组写入单元格区域

Sub ArrToRng1()
Dim arr As Variant '定义变量
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) '利用Array函数创建数组
'将数组批量写入单元格
Range("A1:A9").Value = Application.WorksheetFunction.Transpose(arr)
End Sub
一维数组写人垂直单元格用函数Transpose转换
Sub ArrToRng2()
Dim arr(1 To 2, 1 To 3) As String '定义一个2行3列的二维数组
arr(1, 1) = 1 '给数组的各个元素赋值
arr(1, 2) = "张勇"
arr(1, 3) = "男"
arr(2, 1) = 2
arr(2, 2) = "林梅"
arr(2, 3) = "女"
Range("A1:C2").Value = arr '将数组批量写入单元格区域
End Sub

《别怕，Excel VBA其实很简单》的笔记-第62页 - 使用array 函数创建数组

sub arraytest ()
dim arr as variant
'将1到10十个自然数赋值给数组arr
arr = array(1,2,3,4,5,6,7,8,9,10)
msgbox "arr数组的第2个元素为：“ & arr(1)
end sub
自己尝试的内容灵感来自上一篇
sub sztest_2
dim arr (1 to 10) as integer, i as integer
for i = 1 to 10
arr(i) = i
next
end sub
这个里面省去了一个个赋值的麻烦。
然后编辑的代码是这样的
Sub arraytestofme()
Dim arr As Variant
'将1到10个自然数赋值给数组 arr
redim arr(1 To 10) As Integer, redim i As Integer
For i = 1 To 10
arr(i) = i
MsgBox "arr数组的第2个元素为:" & arr(i)
End Sub
各种报错啊。。。。
然后请教了别人后得出了这样的答案
Sub arraytestofme()
'将1到10个自然数赋值给数组 arr
Dim arr(1 To 10) As Integer, i As Integer
For i = 1 To 10
arr(i) = i
MsgBox "arr数组的第2个元素为:" & arr(i)
Next
End Sub

《别怕，Excel VBA其实很简单》的笔记-第65页 - 其他方式创建数组

array
split （不清楚split和array比的好处在哪。）
range（可以直接赋值定义的区域）
ubound（最大索引号）Lbound（最小索引号）
join 函数 可以把一维数组里的元素使用指定的分隔符练成一个新的字符串

《别怕，Excel VBA其实很简单》的笔记-第58页 - 变量的作用域

单个过程
在一个过程中使用Dim或Static语句声明的变量，作用域为本过程，即只有声明变量的语句所在的过程可以使用它。这样的变量成为本地变量
单个模块
在模块的第一个过程之前使用Dim或Private语句声明的变量，作用域为声明变量的语句所在模块里的所有过程，即该模块里所有的过程都可以使用它。这样的变量成为模块级变量
所有模块
在一个模块的第一个过程之前使用Public语句声明的变量，作用域为所有模块，即所有模块的过程都可以使用它。这样的变量称为公共变量

《别怕，Excel VBA其实很简单》的笔记-第52页 - 把数据储存到变量里

Dim str as string
str="一起来学VBA。"
给对象变量赋值
Dim rng as range
Set rng=Worksheets("sheet1").Range("A1")
rng.Value="欢迎来到excelhome论坛！”
日期赋值
d=#2011-7-1#

《别怕，Excel VBA其实很简单》的笔记-第123页

《别怕，Excel VBA其实很简单》的笔记-第66页 - Join函数

Sub JoinTest()
Dim arr As Variant, txt As String '定义两个变量
arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9) '利用Array函数创建一个数组arr
txt = Join(arr, "@") '将arr数组的元素连成字符串，用@作分隔符
MsgBox txt '用对话框显示字符串
End Sub

《别怕，Excel VBA其实很简单》的笔记-第43页

《别怕，Excel VBA其实很简单》的笔记-第48页

强制声明所有变量
Option Explicit

《别怕，Excel VBA其实很简单》的笔记-第43页 - 3.23 VBA中有哪些数据类型

Byte
Boolean
Integer
Long
Single
Double
Currency
Decimal
Date
String
Object
Variant
用户自定义

《别怕，Excel VBA其实很简单》的笔记-第57页 - 声明数组

Dim 七6班(1 to 50) As String
Dim 七6班(50) As String
七6班(1)="张青"
多维数组
Dim 酱油(2,19) As String
/使用array创建数组
Sub ArrayTest()
Dim arr As Variant '定义变量
'将1到10十个自然数赋给数组arr
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox "arr数组的第2个元素为：" & arr(1)
End Sub
/使用split创建数组
Sub SplitTest()
Dim arr As Variant '定义变量
'利用split生成数组
arr = Split("邓成,林梅,张青,孔丽,冯吉维,孔佳", ",")
MsgBox "arr数组的第2个元素为：" & arr(1)
End Sub
/使用range创建数组
Sub RngArr()
Dim arr As Variant '定义变量
arr = Range("A1:C3").Value '将A1：C3单元格的内容存储到数组arr里
Range("E1:G3").Value = arr '将数组arr的数据写入E1:G3单元格区域
End Sub
/使用UBound和LBound统计数组个数
Sub arrcount()
Dim arr(10 To 50) '定义数组
MsgBox "数组的最大索引号是：" & UBound(arr) & Chr(13) _
& "数组的最小索引号是：" & LBound(arr) & Chr(13) _
& "数组的元素个数是：" & UBound(arr) - LBound(arr) + 1
End Sub
Sub dwsz()
Dim arr(1 To 10, 1 To 100)
MsgBox "第一维的最大索引号是:" & UBound(arr, 1) & Chr(13) & _
"第二维的最大索引号是:" & UBound(arr, 2)
End Sub