Note: The other languages of the website are Google-translated. Back to English

Kako pretvoriti več e-poštnih naslovov v hiperpovezave v Excelu? 

Če imate na delovnem listu seznam e-poštnih naslovov v navadnem besedilu in želite te e-poštne naslove pretvoriti v hiperpovezave, ki jih lahko pošiljate med klikom na naslove. Seveda jih lahko pretvorite v hiperpovezane e-poštne naslove, toda ta metoda bo dolgočasna, če je treba pretvoriti več naslovov. V tem članku bom spregovoril o nekaj dobrih trikih za reševanje te naloge.

S formulo pretvorite več e-poštnih naslovov v hiperpovezave

Pretvorite več e-poštnih naslovov v hiperpovezave s kodo VBA


puščica modri desni mehurček S formulo pretvorite več e-poštnih naslovov v hiperpovezave

Z Hiperpovezava funkcijo, lahko hitro pretvorite e-poštne naslove stolpcev v hiperpovezane naslove hkrati.

1. Vnesite to formulo = hiperpovezava ("mailto:" & A2) v prazno celico, kamor želite postaviti rezultat, si oglejte posnetek zaslona:

doc pretvori naslove v hiperpovezave 1

2. Nato povlecite ročico za polnjenje navzdol do celic, v katere želite vsebovati to formulo, in vsi e-poštni naslovi so postali hiperpovezave, ki jih je mogoče klikniti, kot je prikazano na sliki spodaj:

doc pretvori naslove v hiperpovezave 2


puščica modri desni mehurček Pretvorite več e-poštnih naslovov v hiperpovezave s kodo VBA

Kot lahko vidite, bo z uporabo zgornje formule pred vsakim e-poštnim naslovom dodan niz »mailto:«, če ne želite mailto: znotraj naslovov vam bo morda v korist naslednja koda VBA.

1. Držite tipko Alt + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: Pretvorite več e-poštnih naslovov v hiperpovezave

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Po lepljenju kode pritisnite F5 ključ do te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete obseg podatkov, ki ga želite uporabiti, glejte posnetek zaslona:

doc pretvori naslove v hiperpovezave 3

4. In nato kliknite OK, vsi izbrani e-poštni naslovi so pretvorjeni v hiperpovezane naslove, glejte posnetek zaslona:

doc pretvori naslove v hiperpovezave 4


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ne najdem najdi, ki pretvarja celice v hiperpovezave.
Ta komentar je moderator na spletnem mestu minimiziral
ti si zvezda, odlično je delovalo. milijonkrat hvala
Ta komentar je moderator na spletnem mestu minimiziral
Sem v okolju MAC, zato nimam tipke ALT. Še kakšne druge ideje?
Ta komentar je moderator na spletnem mestu minimiziral
Enakovrednost tipke ALT je ukazna tipka (nahaja se levo od tipke možnosti).

Obe tipki se nahajata na levi strani preslednice.
Ta komentar je moderator na spletnem mestu minimiziral
Deluje odlično v Excelu 2003! Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

Beispiel: test@test.de > http://www.test.de

Mi lahko kdo pomaga?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, kk.operator

Če želite rešiti svojo težavo, uporabite naslednjo kodo:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Prosimo, poskusite, upam, da vam bo pomagalo!
Tu še ni objavljenih komentarjev

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL