Loncat ke daftar isi utama

Bagaimana cara mengubah teks url menjadi hyperlink yang dapat diklik di Excel?

Misalkan Anda memiliki beberapa url di lembar kerja Anda, tetapi tidak ditautkan, dan sekarang Anda perlu mengonversi semua url yang tidak tertaut menjadi hyperlink yang dapat diklik, seperti yang ditunjukkan tangkapan layar berikut. Tentu saja, Anda dapat mengeklik dua kali satu per satu agar dapat diklik, tetapi ini akan memakan waktu jika ada banyak url. Bagaimana Anda bisa mengonversi beberapa url yang tidak tertaut menjadi hyperlink yang dapat diklik secara otomatis di Excel?


panah gelembung kanan biru Ubah teks url menjadi hyperlink yang dapat diklik dengan kode VBA

Sepertinya tidak ada cara efektif lain untuk menyelesaikan masalah ini di Excel kecuali menggunakan kode VBA berikut.

1. Pilih rentang teks url yang ingin Anda ubah menjadi hyperlink yang dapat diklik.

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode, dialog pop-up bagi Anda untuk memilih rentang, lalu klik OK, dan url tidak ditautkan yang dipilih telah diubah menjadi hyperlink yang dapat diklik. Lihat tangkapan layar:

2

panah gelembung kanan biru Ubah teks url menjadi hyperlink yang dapat diklik dengan Kutools for Excel

Mungkin, kode VBA agak sulit bagi Anda, di sini, saya dapat memperkenalkan Anda alat multifungsi-Kutools untuk Excel, Dengan yang Konversi Hyperlink fitur, Anda dapat dengan cepat menangani operasi berikut:

  • Ekstrak alamat sebenarnya dari hyperlink;
  • Ubah teks url menjadi hyperlink yang dapat diklik
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari

Jika sudah terpasang Kutools untuk Excel, lakukan hal berikut:

1. Pilih rentang teks url yang ingin Anda ubah menjadi hyperlink yang dapat diklik.

2. Klik Kutools > Link > Konversi Hyperlink, lihat tangkapan layar:

3. di Konversi Hyperlink kotak dialog, pilih Isi sel menggantikan alamat hyperlink, Dan klik tombol-doc1 tombol dari Rentang hasil untuk menentukan sel untuk meletakkan hasilnya.

4. Dan kemudian klik OK, semua tautan teks biasa yang dipilih telah diubah menjadi hyperlink yang dapat diklik. Lihat tangkapan layar:

Catatan:

1. Jika Anda ingin memasukkan alamat sebenarnya ke kisaran aslinya, harap periksa Ubah rentang sumber.

2. Jika hyperlink ditautkan ke dokumen saat ini, harap periksa Hyperlink adalah tempat di dokumen ini .

Klik Konversi Hyperlink untuk mengetahui lebih lanjut tentang fitur ini.

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


panah gelembung kanan biru   Demo: Ubah teks url menjadi hyperlink yang dapat diklik dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara mengekstrak alamat sebenarnya dari hyperlink di Excel?

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Дай бог здоровья, вам, вашим матерям и детям, первенца в честь автора назову
This comment was minimized by the moderator on the site
Muito bom, só uma dúvida, existe a possibilidade de deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), tipo clico pra excutar a macro e ele pega o intervalo que já está configurado na macro e ativa os links, pulando a etapa de ter que clicar em ok e tals. Se puderem me ajudar com esse dúvida serei grato.
This comment was minimized by the moderator on the site
Hello, Tosetti

To solve your problem, please apply the below code: (First, you should select the hyperlink texts)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Oh crap.... it broke my Excel. By mistake I selected entire column and it forze for... ages!!
This comment was minimized by the moderator on the site
hi
when i click on the hyperlink .. it wont take to me to email page ( as an Outlook or Gmail) Please support
This comment was minimized by the moderator on the site
Hello, Babu,
May be the below article can help you for solving your problem, please view it:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Hope it can help you!
This comment was minimized by the moderator on the site
I had to switch nearly 55,000 cells from plain text to hyperlinks. This helped me cut the time down from "the rest of my natural life" to five minutes. Thank you!
This comment was minimized by the moderator on the site
This is very helpful...Thanks
This comment was minimized by the moderator on the site
This is Great! Worked like a charm
This comment was minimized by the moderator on the site
Man! This is so awesome, I've spent so long trying to find an easy way and this took seconds! Works great!!!
This comment was minimized by the moderator on the site
Thanks a lot my friend! it worked! :lol:
This comment was minimized by the moderator on the site
The code almost works, but author has left a small copy-paste error. You need to remove "" from the first line, and "" from the last line, and then it will work. Cheers.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations