Bagaimana cara mengonversi beberapa alamat email menjadi hyperlink di Excel?
Jika Anda memiliki daftar alamat email teks biasa di lembar kerja, dan sekarang, Anda ingin mengonversi alamat email ini menjadi hyperlink yang dapat Anda kirimkan email sambil mengklik alamat. Tentu saja, Anda dapat mengonversinya menjadi alamat email yang memiliki hyperlink, tetapi cara ini akan membosankan jika ada beberapa alamat yang perlu diubah. Pada artikel ini, saya akan berbicara tentang beberapa trik bagus untuk menangani tugas ini.
Ubah beberapa alamat email menjadi hyperlink dengan Formula
Ubah beberapa alamat email menjadi hyperlink dengan kode VBA
Ubah beberapa alamat email menjadi hyperlink dengan Formula
Dengan Hyperlink fungsi, Anda dapat dengan cepat mengubah alamat email kolom menjadi alamat hyperlink sekaligus.
1. Masukkan rumus ini = hyperlink ("mailto:" & A2) ke dalam sel kosong tempat Anda ingin meletakkan hasilnya, lihat tangkapan layar:
2. Kemudian seret gagang isian ke sel yang ingin Anda isi rumus ini, dan semua alamat email telah menjadi hyperlink yang dapat diklik seperti gambar berikut yang ditampilkan:
Ubah beberapa alamat email menjadi hyperlink dengan kode VBA
Seperti yang Anda lihat, dengan menggunakan rumus di atas, string "mailto:" akan ditambahkan di depan setiap alamat email, jika Anda tidak ingin mailto: di dalam alamat, kode VBA berikut mungkin membantu Anda.
1. Tahan Alt + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.
Kode VBA: Ubah beberapa alamat email menjadi hyperlink
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. Setelah menempelkan kode, silakan tekan F5 kunci untuk kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda gunakan, lihat tangkapan layar:
4. Dan kemudian klik OK, semua alamat email yang dipilih telah diubah ke alamat hyperlink, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!