24周年

財(cái)稅實(shí)務(wù) 高薪就業(yè) 學(xué)歷教育
APP下載
APP下載新用戶掃碼下載
立享專屬優(yōu)惠

安卓版本:8.7.30 蘋果版本:8.7.30

開發(fā)者：北京正保會(huì)計(jì)科技有限公司

應(yīng)用涉及權(quán)限：查看權(quán)限>

APP隱私政策：查看政策>

HD版本上線：點(diǎn)擊下載>

如何建立工作簿中表的鏈接？

來源: 編輯： 2009/06/03 16:14:40　　字體：大 小

　　【問題】

　　如何將工作薄中的全部工作表都在sheet1中建上鏈接？

　　【解答】

　　代碼：

　　Dim Pt As Range

　　Dim i As Integer

　　With Sheet1

　　Set Pt = .Range("a1")

　　For i = 2 To ThisWorkbook.Worksheets.Count

　　.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"

　　Set Pt = Pt.Offset(1, 0)

　　Next i

　　End With

　　End Sub

責(zé)任編輯：zoe
回到頂部
折疊
網(wǎng)站地圖

Copyright © 2000 - m.jnjuyue.cn All Rights Reserved.　北京正保會(huì)計(jì)科技有限公司 版權(quán)所有

京B2-20200959　京ICP備20012371號(hào)-7　出版物經(jīng)營許可證　京公網(wǎng)安備 11010802044457號(hào)