Formler - insætte hyperlink "Hvordan, Nemmest"

Print side | Luk vindue

insætte hyperlink "Hvordan, Nemmest"

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Formler
Forum beskrivelse: Hjælp til formler i regneark og/eller brugen af disse.
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1218
Udskrevet den: 21.Nov.2024 kl. 14:37

Emne: insætte hyperlink "Hvordan, Nemmest"

Besked fra: Othz
Emne: insætte hyperlink "Hvordan, Nemmest"
Posteringsdato: 25.Apr.2013 kl. 20:26

hej.

jeg har et excel dokument hvor jeg skal insætte hyperlink i celler hver md.
(ca. 1200 celler)

der er ikke tilfældigvis en der ved hvordan man gøre det nemmer end manuelt? (håber virkelig)

ser nogle lunde sådan ud..
I I = angiver en celle

eks.
I Text I Nr I 1 I 5 I 8 I 9 I 0 I 7 I 9 I 8 I 6 I 4 I 3 I
I Text I Nr I 3 I 4 I 3 I 2 I 3 I 4 I 4 I 3 I 2 I 7 I 8 I
I Text I Nr I 6 I 8 I 5 I 8 I 3 I 9 I 9 I 1 I 2 I 2 I 4 I
I Text I Nr I 8 I 5 I 3 I 4 I 0 I 3 I 3 I 7 I 4 I 3 I 3 I
I Text I Nr I 4 I 7 I 7 I 9 I 5 I 4 I 3 I 4 I 7 I 7 I 6 I
I Text I Nr I 3 I 2 I 3 I 4 I 7 I 6 I 6 I 0 I 0 I 3 I 5 I

hvert tal skal linke til en hjemmeside
alle nr 1 skal linke til en side
alle nr 2 skal linke til en anden
og så videre
det er de sammen tal hver md. de er bare placeret forskeligt fra md. til md.
De fleste tal inden holder 3 tal, eks. 001 - 002 - 123 - 743 og så videre
og der er ca 90-100 forskellige tal resten er genganger

Håber virkelig der er en der kan hjælpe og har en løsning
Mvh Othz.

Svar:

Besked fra: excelent
Posteringsdato: 26.Apr.2013 kl. 10:18

Koden skal bruge en liste med dine web adresser, enten i arket, eller i koden

Efter min mening kan du lige så godt indsætte dem direkte i koden som jeg har gjort her.

Sub xHyper()
For Each c In Selection
If c <> "" Then
If c.Value = "001" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://www.google.dk" rel="nofollow - http://www.google.dk "
If c.Value = "002" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://da.wikipedia.org" rel="nofollow - http://da.wikipedia.org "
If c.Value = "003" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="...indsæt web adr...."
'osv. osv.
End If
Next
End Sub

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: Othz
Posteringsdato: 26.Apr.2013 kl. 12:52

taktak, tror bare jeg gøre noget galt for det virker ikke??

opdaget også at talene er skrevet sådan eks. '256
hvis det har noget at sige,
jeg har vedhæftet en fil, hvis jeg kunne få dig til at kigge på den

uploads/684/excel_Hyperlink_test_d_26_04_2013.xlsm" rel="nofollow - uploads/684/excel_Hyperlink_test_d_26_04_2013.xlsm

Besked fra: excelent
Posteringsdato: 26.Apr.2013 kl. 13:06

Du skal markere dine tal i C4:N24 før du kører makro - så kører koden fint med din fil

Jeg har slettet (') i "001" "002" og "003"

Du mangler så blot at rette de 3 web adresser + tilføje de øvrige 90-100 linier med de resterende web adresser

Sub xHyper()
For Each c In Selection
If c <> "" Then
If c.Value = "001" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://www.google.dk" rel="nofollow - http://www.google.dk "
If c.Value = "002" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://da.wikipedia.org" rel="nofollow - http://da.wikipedia.org "
If c.Value = "003" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://www.google.dk" rel="nofollow - http://www.google.dk "
End If
Next
End Sub

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: Othz
Posteringsdato: 26.Apr.2013 kl. 18:12

rigtig mange tak for hjælpen!!!, du har lige sparet mig for rigtig meget arbejdt fremover.

Besked fra: excelent
Posteringsdato: 26.Apr.2013 kl. 20:47

velbekom

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: Othz
Posteringsdato: 29.Apr.2013 kl. 10:40

nu har i et lille tillægs spg.

sættet denne ind sammen med?

Sub xHyper()
For Each c In Selection
If c <> "" Then
If c.Value = "001" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://www.google.dk" rel="nofollow - http://www.google.dk "
If c.Value = "002" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=" http://da.wikipedia.org" rel="nofollow - http://da.wikipedia.org "
If c.Value = "003" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="...indsæt web adr...."
'osv. osv.
End If
Next
End Sub

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWindow.SmallScroll Down:=-78
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("C:C,I:I,J:J,P:P").Select
    Range("P1").Activate
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub

Print side | Luk vindue