Bỏ qua nội dung chính

Làm cách nào để thay đổi nhiều đường dẫn siêu kết nối 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?

Thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong một trang tính với mã VBA

Thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong một trang tính / sổ làm việc / nhiều trang tính / lựa chọn với một tính năng tuyệt vời


Thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong một trang tính với mã VBA

Giả sử bạn có một danh sách dữ liệu với các siêu liên kết giống như ảnh chụp màn hình sau và với mã VBA, bạn có thể nhanh chóng thay thế đường dẫn hoặc địa chỉ tệp cũ trong trang tính bằng một địa chỉ mới.

1. Giữ phím tắt ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic cho ứng dụng.

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

Mã VBA: thay đổi nhiều đường dẫn siêu kết nối cùng một lúc

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn F5 để chạy mã này và hộp nhắc cho phép bạn nhập địa chỉ siêu kết nối cũ của mình vào Văn bản cũ cái hộp. Xem ảnh chụp màn hình:

4. Nhấp chuột OKvà một hộp nhắc khác hiện ra để nhắc bạn nhập địa chỉ siêu kết nối mới mà bạn muốn sử dụng.

5. Và sau đó nhấp vào OK, tất cả các địa chỉ siêu kết nối cũ giống nhau đã được thay thế bằng địa chỉ mới cùng một lúc. Xem ảnh chụp màn hình:


Thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong một trang tính / sổ làm việc / nhiều trang tính / lựa chọn với một tính năng tuyệt vời

Nếu bạn muốn thay thế các đường dẫn siêu liên kết từ một lựa chọn, nhiều trang tính, bảng tính hiện tại hoặc nhiều sổ làm việc, bạn có thể làm như thế nào? Với Tìm và Thay thế tính năng của Kutools cho Excel, bạn có thể nhanh chóng giải quyết công việc này.

Lưu ý:Để áp dụng điều này Tìm và Thay thế , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Nhấp chuột Kutools > THÔNG TIN, xem ảnh chụp màn hình:

2. Trong mở THÔNG TIN pane, click Tìm và thay thế tab, trong Tìm và Thay thế pane, click Thay thế rồi thực hiện các thao tác sau:

  • Nhập văn bản siêu kết nối cũ mà bạn muốn tìm vào Tìm hộp văn bản, rồi nhập văn bản siêu kết nối mới mà bạn muốn thay thế vào Thay thế bằng hộp văn bản;
  • Chỉ định phạm vi nơi bạn muốn tìm và thay thế đường dẫn siêu kết nối từ Trong thời hạn danh sách thả xuống;
  • Sau đó, chọn Hyperlinks từ menu thả xuống Look in;
  • Cuối cùng, hãy nhấp vào Tìm tất cả , tất cả các ô tương ứng có chứa văn bản siêu kết nối cụ thể đã được liệt kê vào hộp danh sách dưới cùng.

3. Sau đó nhấn vào Thay thế Tất cả , các đường dẫn siêu kết nối cũ đã được thay đổi thành đường dẫn mới ngay lập tức, xem ảnh chụp màn hình:

Nhấp để Tải xuống Kutools cho Excel để Dùng thử Miễn phí!


Các bài viết tương đối hơn:

  • Trích xuất địa chỉ thực tế từ siêu liên kết
  • Giả sử bạn có một dải ô chứa các siêu liên kết, và bây giờ bạn cần phải xem đích thực của các siêu liên kết và trích xuất chúng từ các siêu liên kết như hình minh họa sau. Có bất kỳ cách dễ dàng để giải quyết vấn đề này một cách nhanh chóng?
  • Chuyển đổi URL hình ảnh thành hình ảnh thực tế trong Excel
  • Nếu bạn có danh sách các địa chỉ URL hình ảnh trong cột A và bây giờ, bạn muốn tải xuống các hình ảnh tương ứng từ các URL và hiển thị chúng vào cột B liền kề như ảnh chụp màn hình bên trái. Trong Excel, làm cách nào bạn có thể trích xuất hình ảnh thực tế từ URL hình ảnh một cách nhanh chóng và dễ dàng?
  • Chuyển đổi văn bản url thành siêu liên kết có thể nhấp trong Excel
  • Giả sử bạn có nhiều url trong trang tính của mình, nhưng chúng không được liên kết và bây giờ bạn cần chuyển đổi tất cả các url chưa được liên kết thành các siêu liên kết có thể nhấp, như ảnh chụp màn hình sau được hiển thị. Tất nhiên, bạn có thể nhấp đúp vào từng cái một để làm cho chúng có thể nhấp được, nhưng điều này sẽ tốn thời gian nếu có nhiều url. Làm thế nào bạn có thể tự động chuyển đổi nhiều url không liên kết thành siêu liên kết có thể nhấp trong Excel?
  • Mở một trang cụ thể của tài liệu PDF từ siêu liên kết Excel
  • Thông thường, khi bạn liên kết một ô với một tệp PDF, bạn sẽ chuyển đến trang đầu tiên của tệp PDF khi bấm để mở siêu liên kết. Nếu bạn cần chuyển trực tiếp đến một trang cụ thể của tệp PDF bằng cách nhấp vào siêu liên kết, bài viết này có thể giúp bạn.

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 (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
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