Mezga có một loạt các ô chứa các siêu liên kết. Các siêu liên kết này bao gồm các từ như “nhấp vào đây” hoặc “thêm thông tin”. Nói cách khác, mỗi siêu kết nối chứa văn bản hiển thị khác với URL cơ bản được kích hoạt khi liên kết được nhấp vào. Mezga muốn biết liệu có cách nào mà không cần sử dụng macro, trích xuất URL cơ bản cho mỗi siêu liên kết này và đặt URL đó vào một ô khác hay không.

Không cần sử dụng macro, bạn có thể thực hiện việc này:

  1. Bấm chuột phải vào siêu kết nối. Bạn sẽ thấy menu Ngữ cảnh xuất hiện.

  2. Từ trình đơn Ngữ cảnh, chọn Chỉnh sửa siêu kết nối. Excel sẽ hiển thị hộp thoại Chỉnh sửa siêu kết nối. (Xem Hình 1.)

  3. Chọn và sao chép (Ctrl + C) toàn bộ URL từ trường Địa chỉ của hộp thoại.

  4. Nhấn Esc để đóng hộp thoại Chỉnh sửa siêu kết nối.

  5. Dán URL vào bất kỳ ô nào bạn muốn.

Lưu ý rằng điều này dành cho một siêu liên kết duy nhất. Nếu bạn có nhiều siêu liên kết trong một trang tính và bạn muốn khôi phục các URL, bạn cần thực hiện việc này cho từng siêu liên kết. Rõ ràng là điều này có thể trở nên tẻ nhạt rất nhanh chóng.

Cách chữa trị cho sự tẻ nhạt — dù muốn hay không — là một điều vĩ mô. Với macro, việc truy cập URL cơ bản cho một siêu liên kết là trò trẻ con. Tất cả những gì macro cần làm là chú ý đến thuộc tính Địa chỉ của siêu kết nối.

Sau đây là ví dụ về macro sẽ tìm từng siêu kết nối trong một trang tính, trích xuất từng URL của một người và dán trực tiếp URL đó vào ô bên phải siêu kết nối.

Sub ExtractHL()

Thay vì macro “brute force”, bạn cũng có thể tạo một hàm do người dùng định nghĩa sẽ trích xuất và trả về URL cho bất kỳ siêu liên kết nào mà nó được trỏ đến:









Trong trường hợp này, bạn có thể đặt nó ở nơi bạn muốn. Ví dụ: nếu bạn muốn URL từ một siêu liên kết trong A1 được liệt kê trong ô C25, thì trong ô C25, bạn sẽ nhập công thức sau:








=GetURL(A1)








_Lưu ý: _






Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.






ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.






Mẹo này (9815) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: