Bỏ qua nội dung chính

Làm cách nào để mở nhiều siêu liên kết cùng một lúc trong Excel?

Nếu bạn có nhiều siêu liên kết trong một bảng tính, thông thường bạn sẽ phải mở từng siêu liên kết, điều này có thể rất tẻ nhạt. May mắn thay, có một số cách đơn giản để mở tất cả các siêu liên kết đã chọn cùng một lúc. Bằng cách làm theo các phương pháp được mô tả bên dưới, bạn có thể dễ dàng hoàn thành nhiệm vụ này.


Mở nhiều siêu liên kết cùng một lúc bằng mã VBA

Để mở các siêu liên kết đã chọn của bạn cùng một lúc, mã VBA sau có thể giúp bạn, vui lòng làm như sau:

1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Mở nhiều siêu liên kết cùng một lúc

Sub OpenHyperLinks()
'Updateby Extendoffice
	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. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn một phạm vi bao gồm các siêu liên kết mà bạn muốn mở cùng một lúc, hãy xem ảnh chụp màn hình:

doc-open-nhiều-siêu liên kết-1

4. Và sau đó nhấp vào OK, tất cả các siêu liên kết được mở cùng một lúc mà không cần nhấp vào chúng.


Mở nhiều siêu liên kết cùng một lúc với Kutools AI Aide

Mở khóa sức mạnh của hiệu quả với Trợ lý AI của Kutools! Nói lời tạm biệt với những rắc rối khi mở từng siêu liên kết hoặc mã phức tạp. Với Trợ lý AI của Kutools, bạn có thể dễ dàng mở nhiều siêu liên kết cùng lúc chỉ bằng một cú nhấp chuột. Hợp lý hóa quy trình làm việc của bạn và tiết kiệm thời gian quý báu bằng cách sử dụng công cụ sáng tạo này. Trải nghiệm duyệt web liền mạch và nâng cao năng suất của bạn với Trợ lý AI của Kutools ngày hôm nay!

Chú thích: Để sử dụng cái này Trợ lý AI của Kutools of Kutools cho Excel, Xin vui lòng tải xuống và cài đặt Kutools cho Excel đầu tiên.

Sau khi cài đặt Kutools cho Excel, vui lòng nhấp vào Kutools AI > Trợ lý AI để mở Trợ lý AI của Kutools ngăn:

  1. Chọn danh sách dữ liệu, sau đó nhập yêu cầu của bạn vào hộp trò chuyện và nhấp vào Gửi nút hoặc bấm đăng ký hạng mục thi chìa khóa để gửi câu hỏi;
    "Mở tất cả các siêu liên kết cùng một lúc trong vùng chọn:"
  2. Sau khi phân tích nhấn Thực hiện nút để chạy. Kutools AI Aide sẽ xử lý yêu cầu của bạn bằng AI và mở tất cả các siêu liên kết của lựa chọn trực tiếp trong Excel.

doc-open-nhiều-siêu liên kết-1


Các bài liên quan:

  • Thay đổi nhiều đường dẫn siêu liên kết cùng một lúc trong Excel
  • Vì một số mục đích, bạn có thể tạo nhiều siêu liên kết cho dữ liệu của mình trong trang tính và tất cả các siêu liên kết được liên kết với cùng một đường dẫn hoặc địa chỉ tệp, nhưng bây giờ, bạn cần phải thay thế đường dẫn siêu kết nối này bằng một địa chỉ khác tại một thời điểm. Để thay đổi đường dẫn của các siêu liên kết riêng lẻ có thể lãng phí rất nhiều thời gian, có cách nào nhanh chóng để giải quyết vấn đề này không?
  • Chuyển đổi nhiều địa chỉ email thành siêu liên kết trong Excel
  • Nếu bạn có một danh sách các địa chỉ email văn bản thuần túy trong một trang tính và bây giờ, bạn muốn chuyển đổi các địa chỉ email này thành các siêu liên kết mà bạn có thể gửi email trong khi nhấp vào địa chỉ. Tất nhiên, bạn có thể chuyển đổi chúng thành địa chỉ email siêu liên kết, nhưng, phương pháp này sẽ gây nhàm chán nếu có nhiều địa chỉ cần chuyển đổi. Trong bài viết này, tôi sẽ nói về một số thủ thuật hay để đối phó với nhiệm vụ này.
  • Theo siêu liên kết đến trang tính ẩn trong Excel
  • Ví dụ: tôi có một sổ làm việc chứa nhiều trang tính, trang chính đầu tiên có siêu liên kết đến các trang khác và bây giờ, tôi ẩn tất cả các trang ngoại trừ trang đầu tiên. Trong trường hợp này, các siêu liên kết liên kết đến các trang ẩn sẽ không có sẵn. Tuy nhiên, làm thế nào bạn có thể làm cho các siêu liên kết này hoạt động thành công? Khi bạn bấm vào một siêu liên kết, trang ẩn được liên kết sẽ được mở ngay lập tức.

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (20)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code.
Could make it work for a "https link instead a hyperlink?
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
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
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
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!
This comment was minimized by the moderator on the site
Its works awesome.
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.
This comment was minimized by the moderator on the site
Found a solution?
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
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!
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.
This comment was minimized by the moderator on the site
Freezes excel - links never open
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
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