Hướng dẫn cách lấy đường link trong file Excel Được đăng vào cách lấy đường link trong file Excel nhé!
Nếu bạn đang có một số ô có chứa các Hyperlink và bạn cần trích xuất địa chỉ thực của chúng như hình bên dưới nhưng chưa biết cách làm. Trong bài viết này, chúng tôi sẽ hướng dẫn cho bạn chi tiết
TRÍCH XUẤT ĐỊA CHỈ THỰC CỦA CÁC LIÊN KẾT VỚI TÍNH NĂNG EDIT HYPERLINK
Tính năng Edit Hyperlink có công dụng giúp bạn trích xuất các URL ẩn cho mỗi hyperlink và đặt các địa chỉ thực đó vào một ô khác. Bạn thực hiện các bước như sau:
Bước 1: Chọn ô có hyperlink, nhấp phải và chọn Edit Hyperlink.

Bước 2: Từ hộp thoại Edit Hyperlink, bạn tiến hành chọn và sao chép (Ctrl+C) phần đường dẫn từ ô Address
Bước 3: Đóng hộp thoại và dán địa chỉ liên kết vào bất kì ô nào mà bạn muốn.
Lưu ý: Đối với phương pháp này, bạn chỉ có thể lấy được 1 địa chỉ liên kết cho mỗi lần, nếu như bạn có nhiều hyperlink, bạn sẽ phải lặp lại các bước cho mỗi lần trích xuất.
TRÍCH XUẤT ĐỊA CHỈ THỰC TỪ HYPERLINK VỚI HÀM DO NGƯỜI DÙNG TỰ TẠO
Bước 1: Nhấn giữ ALT+F11 để tiến hành mở hộp thoại Microsoft Visual Basic for Applications.
Bước 2: Nhấn Insert > Module, và dán đoạn mã sau:
Function
GetURL(pWorkRng
As
Range)
As
String
'Updateby20140520
GetURL = pWorkRng.Hyperlinks(1).Address
End
Function

TRÍCH XUẤT ĐỊA CHỈ THỰC TỪ HYPERLINK VỚI MÃ VBA
Với nhiều hyperlink, nếu áp dụng phương pháp trên sẽ tốn nhiều thời gian, cho nên đoạn mã VBA sau sẽ giúp bạn cùng lúc trích xuất nhiều địa chỉ liên kết một cách nhanh chóng.
Bước 1: Tiến hành nhấn giữ ALT+F11 để thực hiện mở hộp thoại Microsoft Visual Basic for Applications.
Bước 2: Nhấn Insert > Module, và dán đoạn mã sau:
Sub Extracthyperlinks()‘UpdatebyBlogtailieuDim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = “Blog Tai Lieu”Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox(“Range”, xTitleId, WorkRng.Address, Type:=8)For Each Rng In WorkRngIf Rng.Hyperlinks.Count > 0 ThenRng.Value = Rng.Hyperlinks.Item(1).AddressEnd IfNextEnd Sub


TRÍCH XUẤT ĐỊA CHỈ THỰC TỪ HYPERLINK VỚI HÀM DO NGƯỜI DÙNG TỰ TẠO
Bước 1: Nhấn giữ ALT+F11 để tiến hành mở hộp thoại Microsoft Visual Basic for Applications.
Bước 2: Nhấn Insert > Module, và dán đoạn mã sau:
Function
GetURL(pWorkRng
As
Range)
As
String
'Updateby20210920
GetURL = pWorkRng.Hyperlinks(1).Address
End
Function
