How to write a VB Macro to convert text to hyperlink in Excel - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

How to write a VB Macro to convert text to hyperlink in Excel

How to write a VB Macro to convert text to hyperlink in Excel# Programming - 葵花宝典

c*i2007-11-16 08:11

1 楼

在Excel spread sheet里有许多cell的text如同：//myServer/myFolder/myFile.
需要用hyperlink一点它就打开这个file.手工加入hyperlink没问题。这样的cell太多
了，能不能编程解决？

c*r2007-11-16 08:11

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*e2007-11-16 08:11

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*i2007-11-16 08:11

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*e2007-11-16 08:11

5 楼

加个循环呗。如果 cell 是 text 并且长于 2，看前两个字符是否为 //。

text

【在 c*i 的大作中提到】

:
: 为什么只选第一个cell? 其他cell怎么办？
: 我用了你的第二行做Macro,每次点到要转换的cell时，按Alt+F8运行Macro,成功将text
: 转换hyperlink. Thanks!
: 有没有更方便的方法，Macro查一遍所有的cell,凡是以//开头的cell自动转换成
: hyperlink?