用macros在Excel中添加链接

我有一个脚本，这个脚本是为我做的，但是我可以在单个单元格中使用它。

Sub Macro1() ' ' Macro1 Macro ' Dim CName As String CName = ActiveCell ' ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "SWFdataEN\DOKUMENTE\C00\04%20TB031\" & CName, TextToDisplay _ :=CName End Sub 

它正在添加链接到这个单元格（CName）中写入的文件名并设置TextToDisplay同名（CName）。

我怎样才能应用这个macros在列中的下一个单元格（如我打回车，再次运行macros）自动？ 我尝试了For-Next循环，但没有好的结果。 脚本始终放置相同的第一个文件名的链接，但TextToDisply是正确的。 请帮助

Answer 1

我已经制定了这个：

在公共模块中，插入你的macros：

 Sub sofMacro1() ' Dim CName As String CName = ActiveCell ' If (CName <> "") Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "SWFdataEN\DOKUMENTE\C00\04%20TB031\" & CName, TextToDisplay _ :=CName End If ' End Sub 

然后在当前的工作表中，添加一个事件处理程序：

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) sofMacro1 End Sub 

它将超链接添加到任何包含文本的单元格（非空），当您将光标移到ActiveSheet中的任何位置时。