将工作薄中的全部N张工作表都在sheet1中建上链接
来源:互联网 发布:软件停服通知 编辑:程序博客网 时间:2024/04/30 18:32
'**********************************************************************************
'* 函数名称:AddLnk
'* 功 能:将工作薄中的全部N张工作表都在sheet1中建上链接
'*
'* 入口参数:wsWork As Worksheet(sheet1)
'* 出口参数:无
'*
'* 返 回 值 :无
'************************************************************************************
Sub AddLnk(wsWork As Worksheet)
Dim Pt As Range
Dim i As Long
' Dim wsWork As Worksheet
' Set wsWork = ThisWorkbook.Sheets("功能主页")
With wsWork
Set Pt = .Range("A14")
For i = 2 To ThisWorkbook.Worksheets.Count
Pt.FormulaR1C1 = Worksheets(i).Name
.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=(Worksheets(i).Name & "!A1")
Set Pt = Pt.Offset(1, 0)
Next i
End With
End Sub
'* 函数名称:AddLnk
'* 功 能:将工作薄中的全部N张工作表都在sheet1中建上链接
'*
'* 入口参数:wsWork As Worksheet(sheet1)
'* 出口参数:无
'*
'* 返 回 值 :无
'************************************************************************************
Sub AddLnk(wsWork As Worksheet)
Dim Pt As Range
Dim i As Long
' Dim wsWork As Worksheet
' Set wsWork = ThisWorkbook.Sheets("功能主页")
With wsWork
Set Pt = .Range("A14")
For i = 2 To ThisWorkbook.Worksheets.Count
Pt.FormulaR1C1 = Worksheets(i).Name
.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=(Worksheets(i).Name & "!A1")
Set Pt = Pt.Offset(1, 0)
Next i
End With
End Sub
- 将工作薄中的全部N张工作表都在sheet1中建上链接
- 将工作表Sheet1的内容读取到DataSet
- EXCEL中如何将一个工作薄中的工作表移到另一个工作薄
- 将EXCEL中工作薄另存到另一张EXCEL表中
- C#读取EXCEL中工作表不是Sheet1等默认名称
- php 下载excel文件,单独设置工作表(sheet1,sheet2,sheet3....)
- 对Excel工作表Sheet1快速隐藏行和列无需手动一个个选择
- VBA学习4_工作表名:sheet1与sheets(1)有什么不同?
- 如何在将工作表中的一个薄(如:Sheet2)拷贝成另一个文件并到保存A盘。
- 为什么程序员都喜欢在夜里工作?
- 工作日记-张吉林
- 将同一张表的某列字段值全部添加到另一列字段中的sql语句
- excel 在同一张工作表中复制表格,格式会改变的解决
- 工作都一年多了
- 工作不是生活的全部!
- 工作中的
- 把工作都放在文档里,解放思想。
- 在main()之前,IAR都做了些什么工作
- android 异常 汇总
- 《天龙八部》观后感
- 【IE BUG】 CSS/HTML解决在IE6浏览器下显示文字重复
- android emulator snapshot
- 差分信号
- 将工作薄中的全部N张工作表都在sheet1中建上链接
- CSS浮动属性Float介绍(转自:http://www.nowamagic.net/csszone/css_AllAboutCss.php)
- (数据结构与算法分析 四)------数组循环队列的实现( Java语言描述)
- 清除各sheet数据
- 为workbook设置焦点,专为做完所有处理后,对各个工作表光标进行设置
- Using custom client attributes
- java得到月尾字符串值
- tsung的工作原理
- Objective-C 编程语言(4)协议---非继承关系上的相似性,正式的协议,非正式的协议