Hyperlink ?

Potrebujete si spraviť hyperlinky v MS Excel z nejakých textových adries ?
ako na to ...
a/Formula
teda dajme tomu že adresy (bez http ...) sú v stĺpci A a popisy v stĺpci B
potom formula pre bunku B3 je:
=HYPERLINK(CONCATENATE("http://",A1),B2)
b/ makro vo VBA

Sub SpravHyperLink()

'

' SpravHyperLink Macro

'ide nad aktualne oznacenou oblastou

On Error GoTo CATCH

Dim oblast As Range

oblast = Selection

' staci oznacit bunky prveho stlpca

If oblast.Columns.Count = 2 Or oblast.Columns.Count = 1 Then

    Dim prvystlpec As Range

    Set prvystlpec = oblast.Columns(1) ' koli prehladnosti ...

    Dim bunka As Range

    Application.ScreenUpdating = False

    Dim i As Integer

    For i = 1 To prvystlpec.Rows.Count

        Set bunka = prvystlpec.Cells(i, 1)

   

        If (Not IsNull(bunka.Text)) And (Not IsNull(bunka.Offset(0, 1))) Then

            Call bunka.Offset(0, 1).Hyperlinks.Add(bunka.Offset(0, 1), "http://" + bunka.Text, , , bunka.Offset(0, 1).Text)

        End If

    Next

End If

' ak nema dva stlpce tak nie je co robit

FINALLY:

Application.ScreenUpdating = True

Exit Sub

CATCH:

MsgBox "error " & Err.Description

Resume FINALLY

End Sub