Note: The other languages of the website are Google-translated. Back to English

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

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2019 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (19)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai Kode ini sangat membantu tetapi meminta untuk memilih rentang, dapatkah Anda memberi tahu saya cara memidifikasi kode ini untuk situasi di bawah ini ... hyperlink sudah ditempatkan di sel A1:C1 hingga A300:C300 , di D1 harus ada tautan , saat mengklik D1, hyperlink dari A1:C1 akan terbuka sekaligus demikian pula dengan mengklik D2 , hyperlink dari A2:C2 akan terbuka sekaligus dan seterusnya. Bisakah Anda membantu?
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih banyak!! Ini sangat berguna untuk proses saya, tetapi tidak berfungsi pada hyperlink berikut =HYPERLINK("mailto:" & A3 & "?subject="& B3, "adrian") Ini kembali ke halaman modul. Dapatkah seseorang membantu saya dalam hal ini silahkan!! BR, Adrian
Komentar ini diminimalkan oleh moderator di situs
Apa jawaban yang Anda temukan dua tahun sejak itu?
Komentar ini diminimalkan oleh moderator di situs
hai kode ini sangat membantu. dapatkah Anda menjelaskan, cara mencetak banyak hyperlink. tolong berikan kode
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja. Tautan tidak terbuka.
Komentar ini diminimalkan oleh moderator di situs
[kutipan]Tidak berfungsi. Tautan tidak terbuka.Oleh wojtek_bookworm[/quote] Pastikan nilainya berupa hyperlink
Komentar ini diminimalkan oleh moderator di situs
Tidak berfungsi untuk saya: setelah memilih rentang, tidak ada yang terjadi. Nilai adalah URL yang valid.
Komentar ini diminimalkan oleh moderator di situs
Tolong beri tahu saya hpw apakah ini berfungsi di Mac
Komentar ini diminimalkan oleh moderator di situs
Membekukan excel - tautan tidak pernah terbuka
Komentar ini diminimalkan oleh moderator di situs
Terima kasih!
Bekerja persis seperti yang diharapkan. Harus yakin bahwa tautan tersebut sudah merupakan URL yang valid.
Saya membuka 15 sekaligus.
Komentar ini diminimalkan oleh moderator di situs
Ketika saya menggunakan ini pada kolom hyperlink yang dihasilkan oleh rumus =HYPERLINK() , sepertinya tidak berfungsi. Ketika saya menyalin/menempelkan nilai ke kolom baru dan menjalankannya di sana, itu tidak berfungsi. Ketika saya pergi ke setiap sel individu, pergi ke akhir teks, dan tekan enter (menyebabkannya menjadi hyperlink) itu TIDAK berfungsi.


Ini tidak bekerja untuk kebutuhan saya, sayangnya. Saya memiliki ribuan baris dan mengklik enter di akhir setiap baris teks adalah apa yang harus saya lakukan.
Komentar ini diminimalkan oleh moderator di situs
Menemukan solusi?
Komentar ini diminimalkan oleh moderator di situs
@James @Johan - Pilih teks yang ingin Anda ubah menjadi hyperlink, lalu gunakan kode ini untuk mengubah teks menjadi hyperlink secara langsung. Kemudian jalankan kode di atas, berfungsi seperti pesona.


Sub HyperAdd()

'Mengubah setiap hyperlink teks yang dipilih menjadi hyperlink yang berfungsi

Untuk Setiap xCell Dalam Pilihan
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Alamat:=xCell.Formula
xCell berikutnya

End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo! Apa yang saya lakukan adalah menyalin/menempelkan nilai dari kode =HYPERLINK ke kolom yang berbeda, dan kemudian saya menggunakan kode @SimpleDude untuk mengubah teks yang ditempelkan menjadi hyperlink yang berfungsi dengan kode pembuka hyperlink asli. Terima kasih atas bantuannya!
Komentar ini diminimalkan oleh moderator di situs
Karyanya mengagumkan.
Komentar ini diminimalkan oleh moderator di situs
Hai, itu bekerja dengan sempurna, terima kasih! Apakah ada cara untuk menyalin teks dari halaman tautan ini di sel di sebelahnya masing-masing?
Itu akan menghemat ratusan jam kerja!
Komentar ini diminimalkan oleh moderator di situs
Bisakah saya memilih browser mana yang perlu dibuka tautannya?
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik, kecuali untuk masalah, bagaimana saya bisa membuatnya hanya membuka sel yang difilter?

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Mendapat kesalahan kompilasi pada Microsoft Visual Basic untuk Aplikasi 7.1 di Mac High Sierra
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan