Hvordan konverteres flere e-mail-adresser til hyperlinks i Excel?
Hvis du har en liste over almindelig tekst e-mail-adresser i et regneark, og nu vil du konvertere disse e-mail-adresser til hyperlinks, som du kan sende e-mails, mens du klikker på adresserne. Selvfølgelig kan du konvertere dem til hyperlinkede e-mail-adresser, men denne metode vil være kedelig, hvis der er flere adresser, der skal konverteres. I denne artikel vil jeg tale om nogle gode tricks til at håndtere denne opgave.
Konverter flere e-mail-adresser til hyperlinks med Formula
Konverter flere e-mail-adresser til hyperlinks med VBA-kode
Konverter flere e-mail-adresser til hyperlinks med Formula
Med Hyperlink funktion, kan du hurtigt konvertere kolonne-e-mail-adresserne til hyperlinkede adresser på én gang.
1. Indtast denne formel = hyperlink ("mailto:" & A2) ind i en tom celle, hvor du vil placere resultatet, se skærmbillede:
2. Træk derefter fyldhåndtaget ned til de celler, som du vil indeholde denne formel, og alle e-mail-adresserne er blevet klikbare hyperlinks som følgende skærmbillede vist:
Konverter flere e-mail-adresser til hyperlinks med VBA-kode
Som du kan se, tilføjes en streng "mailto:" ved hjælp af ovenstående formel foran hver e-mail-adresse, hvis du ikke vil have mailto: inden for adresserne kan følgende VBA-kode muligvis gøre dig en tjeneste.
1. Hold nede Alt + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.
VBA-kode: Konverter flere e-mail-adresser til hyperlinks
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. Når du har indsat koden, skal du trykke på F5 nøgle til denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, du vil bruge, se skærmbillede:
4. Og klik derefter på OK, alle de valgte e-mail-adresser er konverteret til de hyperlinkede adresser, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!