[已解决]怎样判断超链接是否已点击

Select

工作簿4.rar (5.89 KB, 下载次数: 11)

2012-6-30 17:38 上传

点击文件名下载附件




默认下，点后字体色由蓝变为紫。比如在上图的情况，返回结果是：a2,a4

可不用此附件，只要能说明怎样用VBA的方法判断即可。谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2012-6-30 18:07

代码放在工作表里.


Public x As String
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    x = x & "," & Target.Parent.Address
    MsgBox x
End Sub

跳转到最佳答案楼层

Zipall

代码放在工作表里.


Public x As String
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    x = x & "," & Target.Parent.Address
    MsgBox x
End Sub

Select

谢谢猫哥，学习了！

你是用工作表事件，记载曾发生的点击超链情况。我觉得这象间接方法。
我很想知道，能否用比较超链接单元格的什么，来区分某单元格里的链接是否点过？
如果有，那是怎样的？
如果没，系统是出于啥原因，没设计这样的属性啊？

Zipall

hyperlink对象没有你要的属性或方法.
至于为什么没有,我猜就和我上次问的为什么不能直接读取非活动工作表中被选中的区域的地址一样.

http://www.excelpx.com/thread-226037-1-1.html



Excel 2010 开发人员参考 > Excel 对象模型参考 > Hyperlink 对象

Hyperlink 对象成员

代表一个超链接。
方法

	名称	说明
[img][/img]	AddToFavorites	将工作簿或超链接的快捷方式添加到“收藏夹”文件夹。
[img][/img]	CreateNewDocument	新建一篇链接到指定超链接的文档。
[img][/img]	Delete	删除对象。
[img][/img]	Follow	如果已经下载指定文档，则显示缓冲区中的该文档。否则，本方法对指定超链接进行处理以下载目标文档，然后将该文档在适当的应用程序中显示出来。

属性

	名称	说明
[img][/img]	Address	返回或设置一个 String 型，它代表目标文档的地址。
[img][/img]	Application	如果不使用对象识别符，则该属性返回一个代表 Microsoft Excel 应用程序的 Application 对象。如果使用对象识别符，则该属性返回一个代表指定对象的创建程序的 Application 对象（可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序）。只读。
[img][/img]	Creator	返回一个 32 位整数，该整数指示创建对象的应用程序。只读 Long 类型。
[img][/img]	EmailSubject	返回或设置指定超链接的电子邮件主题行的文本字符串。主题行是添加到超链接地址上的。String 类型，可读写。
[img][/img]	Name	返回一个代表对象名称的 String 值。
[img][/img]	Parent	返回指定对象的父对象。只读。
[img][/img]	Range	返回一个 Range 对象，该对象代表指定的超链接附加到的区域。
[img][/img]	ScreenTip	返回或设置指定超链接的屏幕提示文字。String 类型，可读写。
[img][/img]	Shape	返回一个 Shape 对象，该对象代表附加到指定的超链接的形状。
[img][/img]	SubAddress	返回或设置文档中与指定超链接相关联的位置。String 类型，可读写。
[img][/img]	TextToDisplay	返回或设置要为指定超链接显示的文本。默认值为超链接的地址。String 类型，可读写。
[img][/img]	Type	返回一个包含 MsoHyperlinkType 常量的 Long 值，它代表 HTML 框架的位置。