使用宏在Excel中添加链接

Question

i have script which is doing wright thing for me, but I can use it just in single cell.

    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

It is adding link to filename which is written in this cell (CName) and sets TextToDisplay in same name (CName).

How can I apply this macro in next cell in column (like i hit enter and run macro again) automatically? I tried with For-Next loop, but no good results. Script always puts link of same first filename, but TextToDisply is correct. Help please

Answer 1

I've worked out this:

In a public module, you insert your macro:

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

Then in the current Worksheet, you add an event handler:

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

It adds a Hyperlink to any cell that contains text (not empty), when you move your cursor anywhere in the ActiveSheet.