Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7202|回复: 8

[已解决]求助:批量添加超链接

[复制链接]
发表于 2013-8-12 15:47 | 显示全部楼层 |阅读模式
求助:
批量添加超链接
给附件中sheet1的a列文件名批量添加超链接,地址在另一个工作表中
最好能用vba代码实现,因为有1000多个文件名
谢谢
最佳答案
2013-8-12 20:54
咿呀啊哈 发表于 2013-8-12 18:56
不好意思!
怪我没讲清楚,“链接地址"工作表中的路径是完全打乱顺序的,没有同sheet1中名称一一对应。
...

添加超链接.rar (18.65 KB, 下载次数: 194)

超链接.zip

7.92 KB, 下载次数: 43

超链接文件

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-8-12 16:07 | 显示全部楼层
添加超链接.rar (16.23 KB, 下载次数: 76)
回复

使用道具 举报

发表于 2013-8-12 16:16 | 显示全部楼层
Sub 链接()
    Dim RG As Range
    Dim X As Integer
    For X = 2 To Range("A65536").End(xlUp).Row
        Set RG = Sheets(1).Cells(X, 2)
        RG.Hyperlinks.Add ANCHOR:=RG, Address:=Sheets(2).Cells(X, 1)
        Set RG = RG.Offset(1)
    Next
End Sub
回复

使用道具 举报

发表于 2013-8-12 16:19 | 显示全部楼层
本帖最后由 我心飞翔410 于 2013-8-12 16:43 编辑

Sub 宏1()
Dim  x As Long, z, arr1
arr = Sheets("链接地址").Range("a2:a" & Sheets("链接地址").Range("a65536").End(xlUp).Row)
x = 1
  For x = 1 To UBound(arr)
    z = z + 1
Sheets("sheet1").Hyperlinks.Add anchor:=Cells(z, 1), Address:=arr(x,1)     
   Next x
End Sub
修正哈
回复

使用道具 举报

 楼主| 发表于 2013-8-12 18:55 | 显示全部楼层
冠军欧洲2010 发表于 2013-8-12 16:16
Sub 链接()
    Dim RG As Range
    Dim X As Integer

不好意思!
怪我没讲清楚,“链接地址"工作表中的路径是完全打乱顺序的,没有同sheet1中名称一一对应。
我有很多个表中的名称需要添加链接的是,所有的地址都在一个表中。
回复

使用道具 举报

 楼主| 发表于 2013-8-12 18:56 | 显示全部楼层
lisachen 发表于 2013-8-12 16:07

不好意思!
怪我没讲清楚,“链接地址"工作表中的路径是完全打乱顺序的,没有同sheet1中名称一一对应。
我有很多个表中的名称需要添加链接的是,所有的地址都在一个表中。
回复

使用道具 举报

 楼主| 发表于 2013-8-12 18:56 | 显示全部楼层
我心飞翔410 发表于 2013-8-12 16:19
Sub 宏1()
Dim  x As Long, z, arr1
arr = Sheets("链接地址").Range("a2:a" & Sheets("链接地址").Range ...

不好意思!
怪我没讲清楚,“链接地址"工作表中的路径是完全打乱顺序的,没有同sheet1中名称一一对应。
我有很多个表中的名称需要添加链接的是,所有的地址都在一个表中。
回复

使用道具 举报

发表于 2013-8-12 20:54 | 显示全部楼层    本楼为最佳答案   
咿呀啊哈 发表于 2013-8-12 18:56
不好意思!
怪我没讲清楚,“链接地址"工作表中的路径是完全打乱顺序的,没有同sheet1中名称一一对应。
...

添加超链接.rar (18.65 KB, 下载次数: 194)
回复

使用道具 举报

发表于 2014-12-26 10:17 | 显示全部楼层
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each sh In Sheets
        If sh.Name = ActiveCell.Value Then
            sh.Select
        End If
    Next
End Sub
这样更简单
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:41 , Processed in 0.676563 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表