书上4.7.6的例子看不懂，求教

jxnucwf

原文
Option Explicit
Sub ShtAdd()
    MsgBox "下面将根据C列的班级名新建不同的工作表。"
    Dim i As Integer, sht As Worksheet
    i = 2                                  '第一条记录的行号为2
    Set sht = Worksheets("成绩表")
    Do While sht.Cells(i, "C") <> ""       '定义循环条件
        Worksheets.Add after:=Worksheets(Worksheets.Count)      '在所有工作表后插入新工作表
        ActiveSheet.Name = sht.Cells(i, "C").Value             '更改工作表的标签名称
        i = i + 1                         '行号增加1
    Loop
End Sub


问题：
Set sht = Worksheets("成绩表")     这一句有什么作用？
sht.Cells(i, "C") <> ""       这一句是什么意思啊？
求老师们指导

hehex

Set sht = Worksheets("成绩表")  
上面这句话的意思是将工作薄中名称是"成绩表" 的工作表对象赋值给对象变量sht
sht.Cells(i,"C") 是什么意思呢，从左向右分析：
sht 是名称是成绩表的工作表，Cells(i,"C") 是描述单元格对象。代表是成绩表第i 行第C 列

比如i 的初值是2, 那么进入循环第一个sht.Cells(i,"C") 就是代表成绩表的C2 单元格。
如果C2 单元格的内容不是空，就在工作薄中插入一个以C2 单元格内容为名字的工作表，然后变量增加
从i=2 变成i=3 继续判断，直到Ci 这个单元格的内容为空，就停止。

jxnucwf

hehex 发表于 2012-12-18 16:47
Set sht = Worksheets("成绩表")  
上面这句话的意思是将工作薄中名称是"成绩表" 的工作表对象赋值给对象变 ...

哇哦，明白了，谢谢指导，感谢