Cum se convertesc mai multe adrese de e-mail în hyperlinkuri în Excel?
Dacă aveți o listă de adrese de e-mail cu text simplu într-o foaie de lucru și acum doriți să convertiți aceste adrese de e-mail în hyperlinkuri pe care le puteți trimite e-mailuri în timp ce dați clic pe adrese. Desigur, le puteți converti în adrese de e-mail hyperlink, dar această metodă va fi plictisitoare dacă sunt necesare mai multe adrese pentru a fi convertite. În acest articol, voi vorbi despre câteva trucuri bune pentru a face față acestei sarcini.
Convertiți mai multe adrese de e-mail în hyperlinkuri cu Formula
Convertiți mai multe adrese de e-mail în hyperlinkuri cu cod VBA
Convertiți mai multe adrese de e-mail în hyperlinkuri cu Formula
Cu Hyperlink funcție, puteți converti rapid adresele de e-mail ale coloanei la adrese hyperlinkate simultan.
1. Introduceți această formulă = hyperlink ("mailto:" & A2) într-o celulă goală unde doriți să puneți rezultatul, vedeți captura de ecran:
2. Apoi trageți mânerul de umplere în jos în celulele pe care doriți să conțineți această formulă și toate adresele de e-mail au devenit hyperlinkuri care pot fi făcute clic, după cum se arată în următoarea captură de ecran:
Convertiți mai multe adrese de e-mail în hyperlinkuri cu cod VBA
După cum puteți vedea, folosind formula de mai sus, un șir „mailto:” va fi adăugat în fața fiecărei adrese de e-mail, dacă nu doriți mailto: în cadrul adreselor, următorul cod VBA vă poate face o favoare.
1. Țineți apăsat butonul Alt + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.
Cod VBA: convertiți mai multe adrese de e-mail în hyperlinkuri
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. După lipirea codului, vă rugăm să apăsați F5 tasta acestui cod și va apărea o casetă de solicitare pentru a vă reaminti să selectați intervalul de date pe care doriți să îl utilizați, consultați captura de ecran:
4. Apoi faceți clic pe OK, toate adresele de e-mail selectate au fost convertite în adrese hyperlinkate, vezi captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!