VBA智慧办公5——特殊字段及赋值方法

目录

1.数组

2.字典

3.set和let

---

1.数组

VBA 中的数组可以通过以下方式定义和使用：

• 定义数组：使用 VBA 中的 Dim 语句定义数组，例如：

Dim myArray(10) As Integer

这将创建一个名为 myArray 的数组，其大小为 10，并将其分配给变量 myArray。

• 使用数组：使用 For 循环或 For Each 循环可以遍历数组中的元素，例如：

For i = 0 To myArray.Length - 1 
MsgBox myArray(i) 
Next i

 

这将遍历数组 myArray 中的所有元素，并在每个元素上显示一个消息框。

• 访问数组元素：使用 Get 或 Set 语句可以访问数组中的元素，例如：

Dim myArray(10) As Integer 
myArray(0) = 10 
myArray(1) = 20 
myArray(2) = 30 
myArray(3) = 40

 

这将在数组 myArray 中的第一个元素上设置值为 10，第二个元素上设置值为 20，第三个元素上设置值为 30。

• 修改数组元素：使用 For 循环或 For Each 循环可以修改数组中的元素，例如：

For i = 0 To myArray.Length - 1 
myArray(i) = i + 1 
Next i

 

这将在数组 myArray 中的所有元素上设置值为 1。

• 删除数组元素：使用 For 循环或 For Each 循环可以删除数组中的元素，例如：

For i = 0 To myArray.Length - 1 
myArray(i) = myArray(i+1) 
Next i

 

这将在数组 myArray 中的所有元素上设置值为 1。

以上是 VBA 中数组的基本定义和使用方法。

2.字典

VBA 中的字典是一个对象，它由键（key）和值（item）组成。字典是 VBA 中的一个重要工具，可以用于去重复、汇总数据等场景。

字典的定义：

字典是一个具有唯一性关键字和值的对象。在 VBA 中，字典的键（key）和值（item）必须具有唯一性，即同一个值不能有多个键。例如，下面的代码定义了一个名为 myDict 的字典，其键为 “Name”，值为 “John”：

Dim myDict As Object 
Set myDict = CreateObject("Scripting.Dictionary") 
myDict("Name") = "John"

 

字典的用法：

• 引用法：在 VBA 中，字典是通过 Set 关键字声明和使用的。可以使用 Dim 语句定义一个变量来引用字典，例如：

Dim myDict As Object 
Set myDict = CreateObject("Scripting.Dictionary")

 

• 直接创建法：在 VBA 中，也可以使用 CreateObject 函数直接创建字典，无需声明变量。例如：

Dim myDict As Object 
Set myDict = CreateObject("Scripting.Dictionary")

 

使用字典的方法：

• 使用字典的键：可以使用字典的键来访问字典中的值，例如：

Dim myDict As Object 
Set myDict = CreateObject("Scripting.Dictionary") 
MsgBox myDict("Name")

 

• 使用字典的值：可以使用字典的值来访问字典中的键，例如：

	Dim myDict As Object 

	Set myDict = CreateObject("Scripting.Dictionary") 

	MsgBox myDict("Name")

 

• 使用字典的方法：可以使用字典的方法来访问字典中的值，例如：

Dim myDict As Object 
Set myDict = CreateObject("Scripting.Dictionary") 
myDict("Name") = "John"

 

需要注意的是，在使用字典时，需要注意键和值的唯一性，否则会导致运行时错误。此外，在调用字典的方法时，需要先引用字典，例如：

Set myDict = CreateObject("Scripting.Dictionary") 
myDict("Name") = "John"

除了字典的基本用法外，VBA 中的字典还有其他一些用法和技巧。例如，可以使用字典的 Count 属性来统计字典中键的数量，使用 In 运算符来查找一个值是否在字典中，使用 Keys 属性来获取字典中的所有键，使用 Merge 函数合并多个字典等。

此外，VBA 中的字典还可以与 VBA 的其他对象组合使用，例如可以将字典作为参数传递给 Function 函数，或者将字典作为 Object 类型的变量传递给其他 VBA 对象。

3.set和let

在 VBA 中，Set 和 Let 是两个不同的语句块，它们用于设置和获取变量的值。Set 用于设置变量的值，而 Let 用于声明变量但不设置其值。

下面是一个简单的示例，展示了 Set 和 Let 的区别：

Sub Example() 
Dim x As Integer 


' 使用 Set 设置变量 x 的值为 10 
x = 10 


' 使用 Set 和 Let 同时设置变量 x 和 y 的值 
Set y = x + 1 
Set x = y 


' 使用 Set 和 Let 分别获取变量 x 和 y 的值 
Dim y 
Set y = x 


MsgBox "x = " & x & " y = " & y 
End Sub

 

在上面的示例中，我们首先使用 Set 设置变量 x 的值为 10，然后使用 Set 和 Let 同时设置变量 y 的值为 11。接下来，我们使用 Set 和 Let 分别获取变量 x 的值和 y 的值，并将它们打印到消息框中。

可以看到，使用 Set 设置变量的值比使用 Let 更简洁明了。在实际开发中，应该根据具体的需求和场景选择合适的赋值方法。