24周年

财税实务 高薪就业 学历教育
APP下载
APP下载新用户扫码下载
立享专属优惠
安卓版本:8.6.90 苹果版本:8.6.90
开发者:北京东大正保科技有限公司
应用涉及权限:查看权限>
APP隐私政策:查看政策>

如何建立工作簿中表的链接?

来源: 编辑: 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

责任编辑:zoe

实务学习指南

回到顶部
折叠
网站地图

Copyright © 2000 - www.chinaacc.com All Rights Reserved. 北京东大正保科技有限公司 版权所有

京ICP证030467号 京ICP证030467号-1 出版物经营许可证 京公网安备 11010802023314号

正保会计网校