excel的超链接-提取工作表名称-曾锋华讲师讲课内容

知识点：

①HYPERLINK

代码

②可以得到本工作簿的工作表名称

③建立超链接

操作步骤

①	hyperlink 参数2个。第一个是核心的操作

	注意点："!都要在英文的状态下
	第二参数就是用来提醒使用的字眼，表示跳转到相应的工作表
	#用来告诉软件接下来词组是一个工作表的名称

②	矛盾没有工作表名称，怎么办？自定义函数
		Function shname() As Variant'用于提取工作表名称
		Application.Volatile
		Dim sht As Worksheet,arr As Variant,item%

		ReDim arr(1 To ActiveWorkbook.sheets.Count)

		For Each sht In ActveWorkbook.Sheets
		item = item + 1
		arr(item) = sht.Name
		Next sht
		shname = WorksheetFunction.Transpose(arr)

		End Function

2.1	桌面新建一个工作簿---重命名为自定义函数---》打开这个工作簿---alt+f11---插入模块！
	复制粘贴代码
	接着关闭vba窗口	将代码保存好了

2.2	按下f12另存为-----放在桌面类型为加载宏的工作簿
	将这个加载宏进行添加。开发工具---加载项--浏览找到这个工作簿

③	回到素材工作簿输入shname函数按下ctrl+shift+enter

④	工作表名称	跳转效果
	10-22 建立目录表	10-22 建立目录表
	sheet2	sheet2
	sheet3	sheet3
	sheet4	sheet4
	sheet5	sheet5
	sheet6	sheet6
	sheet7	sheet7
	sheet8	sheet8
	sheet9	sheet9
	sheet10	sheet10
	sheet11	sheet11
	sheet12	sheet12
	sheet13	sheet13
	sheet14	sheet14
	sheet15	sheet15
	sheet16	sheet16

{=shame()}
'=HYPERLINK("#'"&H38&"'!E38",H38)

2015/10/22 星期四 20:30-21:30 vip会员课讲课内容

全部回复

offie学院-郝永丽

曾帅，你真帅！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

我们都在你的后面排队呢，你看到了吗？

快点来人啊，都拜曾帅（曾锋华）为师傅。

2015-10-23 12:56:17

...

offie学院-郝永丽

美不美，又第一个做上沙发了！

心里那个美~~~那个乐~~~

2015-10-23 13:03:03

...

尐太陽

2015-10-23 21:22:12

...

曦儿

2015-10-24 00:47:45

...

没有更多了