查看完整版本: 我总结的在EXCEl 中批量加入或删除超级链接的方法

我总结的在EXCEl 中批量加入或删除超级链接的方法

使用平台： windows
使用软件：excel2003 或 2007
使用命令：宏

1、利用宏命令 删除 超级链接，适用与从网站上拷贝下来的表格存在超级链接的问题。
    如果用户从某处复制的数据是带有超级链接的，除了在复制前选择“选择性粘贴”来过滤掉之外，如何取消已经有的复制到Excel中的超级链接呢? 执行“工具”菜单上“宏”子菜单上的“录制新宏”命令，以“取消超级链接”为新宏命令，并确定该宏的快捷键，如“Ctrl+q”，。单击“确定”按钮后，开始录制宏，在任意一个单元格中取消一个取消超级链接后，停止录制宏。执行“工具”上“宏”子菜单上的“宏”命令，在弹出的对话匡中选中“取消超级链接”，然后单击“编辑”按钮，在弹出的编辑窗口中，出现如下代码：
Sub 取消超级链接()
' 取消超级链接 Macro
' 快捷键: Ctrl+q
Range("A13").Select  ’A13 是A13单元格的超级链接，若删除A1－A12的 内容变为（”A1:A12")即可。
    Selection.Hyperlinks.Delete
End Sub
此段代码还可写成以下这样删除当前工作页的所有超级链接
Sub 取消超级链接()
' 取消超级链接 Macro
' 快捷键: Ctrl+q
ActiveWorkbook.Hyperlinks.Delete
End Sub

添加超级链接： ’ 例如在 A1：A15 以此添加 名字为1.jpg －－－15.jpg 的文件超级链接，代码如下：
Sub create()
'
Dim i As Integer
Dim rg As String
For i = 1 To 15
rg = "a" & i
    Range(rg).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=i & ".jpg"
    Next i
   
End Sub
以下验证：
[img]http://pic.yupoo.com/ftyt/490296bc3ffd/x58bgz9v.jpg[/img]

看看这样行了吗？我快崩溃了~
[img]http://pic.yupoo.com/ftyt/053026bd7790/r9205op7.jpg[/img]

飞天丫头 原创，希望版主能给加个金币！谢谢～

如果大家支持的话，点下红心吧，给整天和EXCEl打交道的同仁以帮助！

[[i] 本帖最后由 ftyt 于 2008-12-30 19:12 编辑 [/i]]

版主我冤枉啊，删除超级链接的网上有类似的例子，但是我也进行了优化编程试验了的，但是加链接的 没有，是我自己编程的结果啊，你－10分，我不服气！！

程序验证图片

[img]http://pic.yupoo.com/ftyt/033666bb05e2/stwv3awq.jpg[/img]

[url]http://72.20.22.177:443/forum/thread-634501-1-1.html[/url]

看四楼的帖子

[[i] 本帖最后由 交通 于 2008-12-28 23:26 编辑 [/i]]

那我重新编辑一下，重新发过，看看是否符合版规？

[color=Red][size=4]版规说了 加水印也不可以的 你完全建立一个 [color=DarkGreen]ftyt@sis.jpg[/color]超级链接这样不就可以了吗[/size][/color]

[[i] 本帖最后由 交通 于 2008-12-29 22:35 编辑 [/i]]

谢谢斑竹支持，下次发帖我将一次性按版规完成，见识了SIS的版规执法力度！