Loncat ke daftar isi utama

Bagaimana cara membuka beberapa hyperlink sekaligus di Excel?

Misalkan saya memiliki banyak hyperlink di lembar kerja, biasanya saya dapat membukanya dengan mengklik satu per satu, tetapi mengklik beberapa kali akan mengganggu, jadi, saya ingin jika ada cara cepat untuk membuka semua hyperlink yang dipilih di waktu yang sama. Dari artikel di bawah ini, saya bisa menyelesaikan tugas ini dengan cara yang mudah.

Buka beberapa hyperlink sekaligus dengan kode VBA

panah gelembung kanan biru Buka beberapa hyperlink sekaligus dengan kode VBA

Untuk membuka hyperlink rentang yang Anda pilih sekaligus, kode VBA berikut dapat membantu Anda, lakukan seperti ini:

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Buka beberapa hyperlink sekaligus

Sub OpenHyperLinks()
'Update 20141124
	Dim xHyperlink As Hyperlink
	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 xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda untuk memilih rentang termasuk hyperlink yang ingin Anda buka sekaligus, lihat tangkapan layar:

doc-buka-beberapa-hyperlink-1

4. Dan kemudian klik OK, semua hyperlink dibuka secara bersamaan tanpa mengkliknya.

Artikel terkait:

Bagaimana cara menghapus semua atau beberapa hyperlink di Excel?

Bagaimana cara menghapus hyperlink tanpa menghapus format?

Bagaimana cara mengubah beberapa jalur hyperlink sekaligus di Excel?

Alat Produktivitas Kantor Terbaik

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 Teratas:  12 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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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 (19)
No ratings yet. Be the first to rate!
Matt
Matt
This comment was minimized by the moderator on the site
Got a compile error on Microsoft Visual Basic for Applications 7.1 on Mac High Sierra
Reply
0
0
Joe
Joe
This comment was minimized by the moderator on the site
This works fine, except for a problem, how can I make it that it only opens filtered cells?

Thank you
Reply
0
0
Avalon
Avalon
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
Reply
0
0
Al
Al
This comment was minimized by the moderator on the site
Hi, it worked perfectly, thanks! Is there a way to copy the text from the pages of these links in the cell next to each of them?
That would save me hundreds of hours of work!
Reply
0
0
Guest
Guest
This comment was minimized by the moderator on the site
Its works awesome.
Reply
0
0
James
James
This comment was minimized by the moderator on the site
When I use this on a column of hyperlinks generated by the =HYPERLINK() formula, it doesn't seem to work. When I copy/paste the values into a new column and run it there, it doesn't work. When I go to each individual cell, go to the end of text, and hit enter (causing it to become a hyperlink) it DOES work.


This didn't work for my needs, unfortunately. I have thousands of rows and clicking enter at the end of each line of text is pretty much what I'm having to do anyway.
Reply
0
0
Johan Nersnæs
Johan Nersnæs     James
This comment was minimized by the moderator on the site
Found a solution?
Reply
0
0
SimpleDude
SimpleDude     Johan Nersnæs
This comment was minimized by the moderator on the site
@James @Johan - Select the text you wish to convert into hyperlink, then use this code to convert the text into hyperlink directly. Then run the code above, works like a charm.


Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub
Reply
0
0
HowDoIComputer
HowDoIComputer     SimpleDude
This comment was minimized by the moderator on the site
Hello! What I did was to copy/paste the values from the =HYPERLINK code into a different column, and then I used @SimpleDude's code to convert the pasted text into the hyperlinks that worked with the original hyperlink-opening code. Thank you for the help!
Reply
0
0
maov
maov
This comment was minimized by the moderator on the site
Thanks!
Works exactly as expected. Must be sure that the links are already valid URLs.
I opened 15 at one time.
Reply
0
0
John
John
This comment was minimized by the moderator on the site
Freezes excel - links never open
Reply
0
0
vaibhavjain1902@gmail.com
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
Reply
Report
0
0
Ben
Ben
This comment was minimized by the moderator on the site
Does not work for me: after selecting a range, nothing happens. Values are valid URLs.
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations