Excel VBA如何在第一张工作表中生成当前工作薄的全部工作表链接
用hyperlink函数,工作表名称设置成带编号的即可。例如工作簿中有10个工作表,名称为:表1、表2、表3、表4、表5、表6、表7、表8、表9、表10若在表1中的D1单元格显示所有工作表的链接,则在D1单元格中输入公式:=hyperlink("#表"&row(a1)&"!A1","第"&row(a1)&"工作表")然后,下拉至D10,完成!当然,你也可以使用插入超链接来完成。 按Ctrl k——本文档中的位置——选择“表1”——键入单元格引用“A1”——要显示的文字“第1个工作表”——确定。重复以上操作9次,把其他工作表的链接进行插入。上述公式显示文字:“第1个工作表”……至于用VBA...全部
用hyperlink函数,工作表名称设置成带编号的即可。例如工作簿中有10个工作表,名称为:表1、表2、表3、表4、表5、表6、表7、表8、表9、表10若在表1中的D1单元格显示所有工作表的链接,则在D1单元格中输入公式:=hyperlink("#表"&row(a1)&"!A1","第"&row(a1)&"工作表")然后,下拉至D10,完成!当然,你也可以使用插入超链接来完成。
按Ctrl k——本文档中的位置——选择“表1”——键入单元格引用“A1”——要显示的文字“第1个工作表”——确定。重复以上操作9次,把其他工作表的链接进行插入。上述公式显示文字:“第1个工作表”……至于用VBA就更简单了。
用不着工作表名称有规律了。Private Sub 超链接()Sheets(1)。ActivateFor i = 1 To Sheets。CountCells(i, 4)。Formula = "=hyperlink(" & """" & "#" & Sheets(i)。
Name & "!A1" & """" & "," & """" & Sheets(i)。Name & """" & ")"NextEnd Sub说明:链接显示文字是工作表名。"=hyperlink(" & """" & "#" & Sheets(i)。
Name & "!A1" & """" & "," & """" & Sheets(i)。Name & """" & ")"便于理解单引号写法,实际可以简化为:"=hyperlink(""#" & Sheets(i)。
Name & "!A1" & """,""" & Sheets(i)。Name & """)"就是输入单引号时写上2个单引号。 如单元格格式是=HYPERLINK("#Sheet1!A1","Sheet1")在VBA中为Cells(i, 4)。
Formula = "=HYPERLINK(""#Sheet1!A1"",""Sheet1"")"代码的核心就是向单元格写入公式。公式的形式:=HYPERLINK("#Sheet1!A1","Sheet1")【如单元格格式是】改为——【如单元格公式是】Private Sub 超链接()Sheets(1)。
ActivateFor i = 1 To Sheets。Count'单元格中公式样式:=hyperlink("#Sheet1!A1","Sheet1")x = "=hyperlink(""#" & Sheets(i)。
Name & "!A1"",""" & Sheets(i)。Name & """)"Cells(i, 4)。Formula = xNextEnd Sub。收起