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
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:
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:
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:
4. In nato kliknite OK, vsi izbrani e-poštni naslovi so pretvorjeni v hiperpovezane naslove, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!