2012年職稱(chēng)計(jì)算機(jī)考試：表格獲取工作表名稱(chēng)的方法

第一，excel提取工作表名稱(chēng)：宏表函數(shù)
    excel提取工作表名稱(chēng)的方法，使用宏表函數(shù)來(lái)提取工作表名稱(chēng)，并自動(dòng)添加超鏈接。
    第二，vba自定義函數(shù)獲取工作表名稱(chēng)
    下面再介紹一個(gè)vba獲取工作表名稱(chēng)的自定義函數(shù)。使用方法如下，打開(kāi)需要excel工作表，按下ALT+F11，打開(kāi)VBE編輯器，單擊插入——模塊，復(fù)制下面的代碼，然后關(guān)閉VBE?；氐絜xcel工作表，在空白單元格輸入公式：=gname(ROW(A1))，下拉復(fù)制，知道出現(xiàn)0錯(cuò)誤為止，即可以實(shí)現(xiàn)用vba獲取工作表名稱(chēng)。
    Function gname(x As Integer)
    If x = 0 Then
    gname = ActiveSheet.Name
    ElseIf x > 0 And x Sheets.Count Then
    MsgBox "超出范圍"
    End If
    Application.Volatile
    End Function
    第三，vba獲取工作表名稱(chēng)
    同樣，在excel中，按下ALT+F11，打開(kāi)VBE編輯器，插入——模塊，復(fù)制下面的代碼，然后按F5鍵或者單擊工具欄綠色的“運(yùn)行”按鈕即可實(shí)現(xiàn)用vba獲取工作表名稱(chēng)。獲取的工作表名稱(chēng)將存放在當(dāng)前工作表的A列。
    Sub vba獲取工作表名稱(chēng)()
    For x = 1 To Sheets.Count
    Cells(x, 1) = Sheets(x).Name
    Next x
    End Sub