|
|
楼主 |
发表于 2007-11-16 23:43
|
显示全部楼层
8、请打开VBA编辑器\插入\添加模块,将下列代码拷入& @' c1 i+ D* M, j3 b2 t6 ]- c
Function Getname(HyCell)/ n/ n4 W f( d* A
Application.Volatile True$ @9 _+ ^- _8 ^' K, `
Getname = HyCell.Hyperlinks(1).Name
) A6 D1 W1 x1 }- J5 C9 lEnd Function
* M$ [/ ]! Z1 V8 t; V% K返回EXCEL,在任一表元输入 =Getname(A1),即可看到结果,括号内为包含超级链接的表元地址,将此函数复制即可(即使用上同于其他函数)% x! w4 s9 g4 S0 p
1 r* F- _* b+ Y; r6 B: U" w
我是在excel的D1输入=Getname(A1),就将A1中的超级链接单独提取出来了! C3 e! |' P. k# |
拖动句柄，提取所有链接3 l4 `7 u& c& \3 x
* N) [( f% J7 ]4 w3 |说明一下：提取链接的功能是我从网上找的，参考帖如下) V; c" N- ?" M; f3 k: Q6 I
# r( Y+ C- a* L, Y4 x Whttp://club.excelhome.net/dispbbs.asp?boardid=1&id=141484
& m. [$ \4 G) B& y( h4 Yhttp://club.excelhome.net/dispbb ... replyID=&skin=0
. }, v8 j# p2 @1 G% ?$ @' e$ ^! R0 v3 ~% S- M$ |& X) C
另外，这个程序excel认为是非法的”宏“，所以一关闭excel再打开就不让用这个程序了，每次整理我都要重新开新工作簿，然后重新编写这个VBA小程序。3 o( J; I; k2 e' [- I, a
# T6 t& t J# g+ M8 X0 g* ?+ \
, S" b5 @ U% p+ r2 z# W[ 本帖最后由 truezx 于 2007-11-17 00:32 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
x
|
发表于 2007-11-16 23:25
发表于 2007-11-17 00:06
