查看: 1189|回复: 3
查找超链接地址，并在新单元格生成超链接
阅读权限20
在线时间 小时
本帖最后由 keleccy 于
10:30 编辑
想通过B列与sheet1的B列查找，获得sheet1的A列超链接地址，赋予本表A列。做了下面两个都不行，请高手帮忙！
Sub 超链接1()
& &For Each a In Selection&&'先选中B列相应单元格
& & rr = Application.WorksheetFunction.Lookup(a.Offset(, -1), Worksheets(&sheet1&).Range(&B:B&), Worksheets(&sheet1&).Range(&A:A&))
& & '通过lookup函数，怎么取到单元格的引用地址，而不是值？
& & a.Hyperlinks.Add Anchor:=Selection, Address:=Range(rr).Hyperlinks(1).Address
Sub 超链接2()
&&For Each a In Selection&&'先选中B列相应单元格& &
& & rr = Application.WorksheetFunction.Match(a.Offset(, -1), Worksheets(&sheet1&).Range(&B:B&), 0)
& & '通过match函数，怎么也不对？& &
& & a.Hyperlinks.Add Anchor:=Selection, Address:=Range(&sheet1!A& & rr).Hyperlinks(1).Address& &
(51.41 KB, 下载次数: 35)
10:30 上传
点击文件名下载附件
生成超链接
阅读权限20
在线时间 小时
本帖最后由 keleccy 于
17:31 编辑
哪位老师帮看一下
阅读权限20
在线时间 小时
怎么没人回答，自己顶
阅读权限20
在线时间 小时
& & & & & & & &
改了下match方法，可以初步实现：
Sub 超链接2()
& &For Each a In Selection&&'先选中B列相应单元格
& &&&rr = Application.WorksheetFunction.Match(a, Worksheets(&sheet1&).Range(&B:B&), 0)
& &&&On Error GoTo 100
& &&&a.Hyperlinks.Add Anchor:=a.Offset(, -1), Address:=Range(&sheet1!A& & rr).Hyperlinks(1).Address& &
但有两个问题：
1.当不能精确找到时，不要生成超链接，自动往下一个。
2.如何也让lookup方法实现。谢谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Access VBA教程：FollowHyperlink方法
Access VBA教程：FollowHyperlink方法
- FollowHyperlink方法
Access VBA教程：FollowHyperlink方法
FollowHyperlink方法可打开由超链接地址指定的文档或 Web 页。
expression.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
expression&&必需。返回“Applies To”列表中的一个对象的表达式。Address&&必需，String 型。确定有效超链接地址的字符串表达式。
SubAddress&&可选，String 型。字符串表达式，用于确定由 address参数指定的文档中的命名位置。默认值为空字符串 (" ")。
NewWindow&&可选，Boolean 型。Boolean 值，该值为 True (–1) 时，将在新窗口中打开文档；该值为 False (0) 时，则在当前窗口中打开文档。默认值为 False。
AddHistory&&可选，Boolean 型。Boolean 值，该值为 True 时，将添加指向“历史记录”文件夹的超链接，该值为 False 时，则不添加指向“历史记录”文件夹的超链接。默认值为 True。
ExtraInfo&&可选，Variant 型。字符串或Byte 数据数组，用于指定定位到超链接的其他信息。例如，该参数可以用来为 .ASP 或 .IDC 文件指定搜索参数。在 Web 浏览器中，extrainfo参数可能出现在超链接地址后，并用问号 (?) 与地址分开。指定
extrainfo参数时，不包括问号。
Method&&可选，MsoExtraInfoMethod。Integer 值，用于指定附加 extrainfo参数的方式。method参数可以是下列固有常量之一。
MsoExtraInfoMethod 可以是这些 MsoExtraInfoMethod 常量之一。
msoMethodGet default。extrainfo
参数将附加到超链接地址且只能是字符串。在默认情况下将传递该值。
msoMethodPost。extrainfo参数作为字符串或 Byte 数据类型的数组传递。
HeaderInfo&&可选 String 型。
用于指定页眉信息的字符串。默认情况下，headerinfo参数是空字符串。
通过使用 FollowHyperlink方法，可以跟随一个不存在于控件中的超链接。该超链接可以由您或其他用户提供。例如，可以提示用户在对话框中输入超链接地址，然后使用 FollowHyperlink方法来跟随该超链接。
浏览到某个超链接时，可以使用 extrainfo 和 method参数来提供其他信息。例如，可以为搜索引擎提供参数。
可以使用方法来跟随与控件相关联的超链接。
下列函数提示用户输入一个超链接地址，然后跟随该超链接：
Function GetUserAddress() As Boolean
&&& Dim strInput As String
&&& On Error GoTo Error_GetUserAddress
&&& strInput = InputBox("Enter a valid address")
&&& Application.FollowHyperlink strInput, , True
&&& GetUserAddress = True
Exit_GetUserAddress:
&&& Exit Function
Error_GetUserAddress:
&&& MsgBox Err & ": " & Err.Description
&&& GetUserAddress = False
&&& Resume Exit_GetUserAddress
End Function
可以用以下的过程来调用该函数：
Sub CallGetUserAddress()
&&& If GetUserAddress = True Then
&&&&&&& MsgBox "Successfully followed hyperlink."
&&&&&&& MsgBox "Could not follow hyperlink."
&&& End If
上页： 下页：
Access VBA教程：FollowHyperlink方法
- FollowHyperlink方法
版权所有 & 　证书：粤ICP备号用VBA创建excel超链接的返回链接_中华文本库
第1页/共2页
用 VBA 创建 excel 超链接的返回链接
在 excel 里设置了超链接，链接到本文档其它工作表的 单 元 格 ， 通 过 运 行 SelectionHyperlinkBack() 宏 ， 调 用 CellHyperlinkBack()函数， 就可以在超链接的单元格创建一个 超链接，指向原来的单元格，实现返回功能。 用法：把以下代码放在程序模块中，运行就可以了，条 件是所选择的单元格存在超链接，同时该超链接指向本文档 的某一单元格，若不是在同一个 excel 文档里，未测试，可 能会出错。 用处：若是有一个有很多工作表的 excel 里，可以编工 作表目录，目录项指向一个工作表，然后运行 SelectionHyperlinkBack 后，就可以达到返回目录的效果。 有兴趣可以讨论 QQ： 。
Function CellHyperlinkBack(SelCell As Range) ' 使用方法：参数 SelCell 表示一个单元格 'SelCell 包含一个链接到本文档中的一个位置 ' 该函数的作用是把在 SelCell 所指向的超链接位置，链接回来 ' 相当于当前超链接的返回功能 ' 本函数不适用在 excel 文档内部链接跳转 Dim SubSheetName As String Dim SubCellAdd As String Dim SelSubAdd() As String SubSheetName = ActiveSheet.Name ' 记录单元格所在的工作表 SubCellAdd = SelCell. Address(0, 0) ' 记录单元格的地址，用 A1 的形式表示 On Error Resume Next SelSubAdd = Split(SelCell. Hyperlinks(1).SubAddress, "!") ' 把超链接地址分成工作表和单元格
SelSubAdd(0) = Replace(SelSubAdd(0), "'", "") If Err Then Err.Clear: Exit Function ' 若出错，说明没有超链接，退出函数 Sheets(SelSubAdd(0)).Hyperlinks.Add Anchor:=Sheets(SelSubAdd(0)).Range(SelSubAdd(1)), SubSheetName & "'!" & SubCellAdd End Function Sub SelectionHyperlinkBack() ' 遍历选定区域所有的单元格，创建超链接的返回链接 Dim sc As Range For Each sc In Selection CellHyperlinkBack sc Next End Sub Address:="", SubAddress:="'" &
第1页/共2页
寻找更多 ""求VBA代码，超链接地址如何定义_百度知道
求VBA代码，超链接地址如何定义
=Cells(i.Hyperlinks:=
&&quot:=S, TextToDisplay!【这里不会定义】&quot，我想根据列三显示的位置来定义列一的超链接位置但是没成功╮(╯_╰)╭ActiveS.Add Anchor, SubASheet0, Address:=&quot列1
名称1在另一张表中的出现位置名称2
名称2在另一张表中的出现位置名称3
名称3在另一张表中的出现位置---------------------------------------------------------------------------表的内容如上，不可能一个一个去定义到另一张表的位置或者有什么别的解决办法, 1)【这个不知道定义对没有】求解决办法------------------------因为列1里面有很多数据
提问者采纳
$A$2&&&&&nbsp:A&quot.Address&nbsp.Add&'&&&nbsp:=rng为目标单元格TextToD&&&A,格式为&A&&nbsp:=Activesheet.H&&nbsp,3);&&取本表中第一列的名称set&&&&&在另表中寻找名称的单元格给变量rngActiveS&nbsp.Cells(i.Range(&&nbsp.Find(nameStr)&&''_&设置显示的字符为另表中单元格的地址;'&&&nbsp,&nbspfor&的形式nextEnd&XXX请修改为本表的末行的行数nameStr=Arng=;&to&&&&_&&'&&#39:=本表需要出现连接的位置A&&XXX&&i=2&&nbsp,&nbsp.Cells(i;&&),1);&nbsp.value&&nbsp
提问者评价
其他类似问题
为您推荐：
超链接的相关知识
其他1条回答
楼上的回答应该可以解决你的问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}