c*i 发帖数: 749 | 1 在Excel spread sheet里有许多cell的text如同://myServer/myFolder/myFile.
需要用hyperlink一点它就打开这个file.手工加入hyperlink没问题。这样的cell太多
了,能不能编程解决? | c**r 发帖数: 10001 | 2 把第一个cell的text变成link:
Range("a1").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=Selection.Text
【在 c*i 的大作中提到】 : 在Excel spread sheet里有许多cell的text如同://myServer/myFolder/myFile. : 需要用hyperlink一点它就打开这个file.手工加入hyperlink没问题。这样的cell太多 : 了,能不能编程解决?
| A**********e 发帖数: 3102 | 3 or, a more general way, use macro recording function to record operations of
interest, then read the recorded codes to learn how to do it.
太多
【在 c**r 的大作中提到】 : 把第一个cell的text变成link: : Range("a1").Select : ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=Selection.Text
| c*i 发帖数: 749 | 4
为什么只选第一个cell? 其他cell怎么办?
我用了你的第二行做Macro,每次点到要转换的cell时,按Alt+F8运行Macro,成功将text
转换hyperlink. Thanks!
有没有更方便的方法,Macro查一遍所有的cell,凡是以//开头的cell自动转换成
hyperlink?
【在 c**r 的大作中提到】 : 把第一个cell的text变成link: : Range("a1").Select : ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=Selection.Text
| A**********e 发帖数: 3102 | 5 加个循环呗。如果 cell 是 text 并且长于 2,看前两个字符是否为 //。
text
【在 c*i 的大作中提到】 : : 为什么只选第一个cell? 其他cell怎么办? : 我用了你的第二行做Macro,每次点到要转换的cell时,按Alt+F8运行Macro,成功将text : 转换hyperlink. Thanks! : 有没有更方便的方法,Macro查一遍所有的cell,凡是以//开头的cell自动转换成 : hyperlink?
|
|