自动打开当前选定行中的超链接

时间:2018-08-31 04:11:07

标签: excel database hyperlink tags

我正在尝试对我在《战地风云4》中广泛的娱乐时间中超过6 TB的视频剪辑和游戏记录的集合进行分类,标记和数据库化,为了尽可能提高效率,我插入了将硬盘驱动器上的文件的超链接连接到电子表格中,这样我可以单击一下,视频将开始在VLC中播放。

但是,由于我要标记和处理超过10,000个文件(我知道,这有点荒谬),我想通过使电子表格自动“点击”超链接,从而稍微改进一下流程,因为我前进至下一行。

我为可能要使用的常见类别提供了许多列,并且实质上,我想输入给定视频文件的标签系列,然后按Enter,然后列表中的下一个视频文件将开始在VLC中播放,甚至不需要切换窗口,单击或任何其他操作。

我对Excel还是很陌生,但是这个项目实质上是我学习和发展知识的一种方式。

奖金问题:是否有比“ https://www.youtube.com/watch?v=tCahRfEGj1g”等各种教程更好的方式进行按需输入过滤器?

不幸的是,此方法对于大型列表而言效率不高,因此我希望有一种更好的方法。谢谢!

1 个答案:

答案 0 :(得分:0)

仅仅因为《战地风云4》很棒,所以我就去试试:

考虑玩Worksheet_SelectionChange事件。

在您的情况下,看起来像这样:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(1, 2).Value = Target.Row
    If Cells(1, 2) <> Cells(1, 3) Then
        Cells(Target.Row, 1).Hyperlinks(1).Follow
        Cells(1, 3).Value = Target.Row
    End If
End Sub

.Follow可能无法正常工作:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(1, 2).Value = Target.Row
    If Cells(1, 2) <> Cells(1, 3) Then
        Activeworkbook.FollowHyperlink address:=Cells(Target.Row, 1).Text
        Cells(1, 3).Value = Target.Row
    End If
End Sub

它将检查行中是否有更改。在细胞偏僻的地方闲逛。

祝你项目顺利。