| Excel VBA系列之为对象（object）变量赋值 | 您所在的位置：网站首页 › vba中worksheet工作表对象 › Excel VBA系列之为对象（object）变量赋值 |
Excel VBA系列之为对象（object）变量赋值
|
1. 在Excel VBA中，我们定义一个变量i为整数时，可以为其赋值，如图所示。  Sub test()
Dim i As Integer
i = 8
Range("A1") = i
End Sub2. 执行以上过程后，可以在工作表的A1单元格返回值8。  3. 当定义一个sht变量为工作表时，不能直接像上面的i那样赋值。注意在以下示例中的Sheets.Add动作，其返回的是一个工作表对象（Object）。  Sub test1()
Dim sht As Worksheet
Sheets.Add
sht = Sheets.Add
End Sub4. 如果执行图中所示的代码，程序就会报错，提示“对象变量或With块变量为设置”，因为Sheets.Add返回的是对象，而sht定义为工作表无法直接与其对等。  5. 要解决上面出现的错误，我们需要在代码中的sht前面加上一个Set，意为“设置”。  Sub test1()
Dim sht As Worksheet
Set sht = Sheets.Add
End Sub6. 在如下的示例中，我们要依据当前工作表中A2至A4单元格的班级名称，分别创建新的工作表，这里就可以通过Set为对象sht赋值，然后根据班级名称命名新增的工作表。  Sub test1()
Dim sht As Worksheet
For i = 2 To 4
Set sht = Sheets.Add
sht.Name = Sheet9.Range("A" & i)
Next
End Sub
|
【本文地址】
公司简介
联系我们