最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Excel如何自動創(chuàng)建財會工作表超鏈接目錄

  發(fā)布時間:2012-06-28 17:24:33   作者:佚名   我要評論
在Excel工作簿中創(chuàng)建目錄,這個目錄包含超鏈接,點擊即可進入對應的工作表,如果工作簿中的工作表出現(xiàn)了什么變化,也可以快速更新。
小李是公司會計,每天需要處理的Excel工作表多達幾十個,數(shù)量非常大。為了方便工作,小李需要在Excel工作簿中創(chuàng)建目錄,這個目錄包含超鏈接,點擊即可進入對應的工作表,如果工作簿中的工作表出現(xiàn)了什么變化,也可以快速更新。

  其實,這個要求通過Excel的宏命令就可以完成,因為不同表格的作簿的具體情況不同,下面給出一段經(jīng)典宏代碼,小李可以根據(jù)實際的需求修改。

Excel宏代碼片段:

Private Sub Worksheet_Activate()
Dim sh As Worksheet
Dim a As Integer
Dim R As Integer
//在目錄工作表激活時,自動創(chuàng)建工作簿中除“目錄”工作表外所有工作表的目錄
R = Sheet1.[A65536].End(xlUp).Row
a = 2
If Sheet1.Cells(2, 1) <> "" Then//判斷是否存在工作表目錄
Sheet1.Range("A2:A" & R).ClearContents
End If
For Each sh In Worksheets
If sh.CodeName <> "Sheet1" Then
Sheet1.Cells(a, 1).Value = sh.Name
a = a + 1
End If
Next
End Sub

  提示:由于該功能是通過編輯宏代碼實現(xiàn)的,因此一定要把編輯的工作簿以“Excel啟用宏的工作簿(*.xlsm)”格式保存才行。下一次重新打開此工作簿時會警告宏已被禁用,單擊警告欄中的“啟用內(nèi)容”即可。

相關文章

最新評論

巫山县| 木兰县| 鹤壁市| 蓬溪县| 即墨市| 南充市| 陇川县| 昆明市| 河西区| 南通市| 金山区| 四子王旗| 新宁县| 金秀| 巴塘县| 芜湖县| 大厂| 盘锦市| 巧家县| 中超| 通辽市| 信丰县| 永年县| 安吉县| 北碚区| 灌南县| 淮安市| 南投县| 赞皇县| 长乐市| 神农架林区| 当雄县| 永善县| 电白县| 新晃| 淮南市| 巧家县| 嵊泗县| 上饶市| 丹东市| 方城县|