Lấy thông tin địa chỉ HyperLink trên cell (1 người xem)

[USB1394]

Mình đang gặp phải 1 trường hợp thế này : Tại ô B5 mình dùng VBA để tạo HyperLink , bây giờ mình muốn dùng VBA lấy thông tin địa chỉ HyperLink trong ô B5 đó nhưng làm mãi không đc , mong các Bạn giúp đỡ , xin cám ơn

 

[dhn46]

Bạn dùng như sau

Sub GetHprl()
MsgBox Range("B5").Hyperlinks(1).Address
End Sub

 

[USB1394]

Bạn giải thích ý nghĩa của số 1 trong code để mình hiểu thêm :

Sub GetHprl() 
     MsgBox Range("B5").Hyperlinks[COLOR=#ff0000](1)[/COLOR].Address 
End Sub

Kết quả trả về sao thiếu 1 phần vậy bạn . Phần nội dung thiếu : "C:\User\Bui Hong Thai\" . Có cách nào lấy địa chỉ đầy đủ không . Nếu thiếu mà khi ta dùng lệnh Kill có thể sẽ không thực hiện được . Xin cám ơn bạn

 

[dhn46]

Tôi trả lời câu hỏi số 1 của bạn:

- Số 1 trong code trên có ý nghĩa đó là vị trí thứ 1 trong vùng được chọn. (Đây là cấu trúc)
Ví như: nếu bạn viết

MsgBox Range("A1:B2").Hyperlinks([COLOR=#ff0000][B]1[/B][/COLOR]).Address

thì chỗ màu đỏ kia sẽ tương ứng 1-A1, 2-A2, 3-B1, 4-B2

Câu hỏi số 2: Hiện tôi đang sử dụng Ex2010 và Win Xp không thấy lỗi trên nên gặp => chưa biết cách xử lý. Bạn chờ cao thủ khác gặp hiện tượng trên nhé

 

[USB1394]

Vậy cái này chắc Hệ điều hành rùi . Mình dùng Win 7 và MSO 2010 . Không biết có Bạn nào dùng cấu hình giống mình ko , đểm tìm cách cách phục . Hôm rồi cũng có 1 code dùng SendKey chạy tốt trên Win XP / MSO 2003 , vậy mà đem qua Win 7 / MSO 2010 lại không chạy được . Trên diễn đàn cũng bó tay . Không biết có khi nào , đề này này đến đây xem như bế tắt không !!!!! Xin mọi người giúp đỡ , xin cám ơn

 

[ndu96081631]

Kết quả trả về sao thiếu 1 phần vậy bạn . Phần nội dung thiếu : "C:\User\Bui Hong Thai\" . Có cách nào lấy địa chỉ đầy đủ không . Nếu thiếu mà khi ta dùng lệnh Kill có thể sẽ không thực hiện được . Xin cám ơn bạn

Thử vầy xem:

Function HLink(ByVal Cel As Range) As String
  If Cel(1).Hyperlinks.Count Then
    HLink = Cel.Hyperlinks(1).Address
    If InStr(1, HLink, ":") = 0 Then HLink = ThisWorkbook.Path & "\" & HLink
  End If
End Function

Tôi cũng không chắc lắm

 

[USB1394]

Code của thầy ndu96081631 lấy gần giống nhưng dấu "/" và "\" lia lịa . Xin thầy xem lại nên chỉnh code ở đâu . Xin cám ơn thầy

 

[ndu96081631]

Code của thầy ndu96081631 lấy gần giống nhưng dấu "/" và "\" lia lịa . Xin thầy xem lại nên chỉnh code ở đâu . Xin cám ơn thầy

Bạn tự dùng hàm Replace thay dấu "/" thành "\" không được sao?

 

[USB1394]

Bạn tự dùng hàm Replace thay dấu "/" thành "\" không được sao?

Theo kinh nghiệm của thầy thì trong trường hợp này mình dùng SUBSTITUTE hay REPLACE hợp lý nhất ?

 

[ndu96081631]

Theo kinh nghiệm của thầy thì trong trường hợp này mình dùng SUBSTITUTE hay REPLACE hợp lý nhất ?

Trong VBA làm gì có hàm SUBSTITUTE chứ? Tôi nói hàm Replace đương nhiên là nói đến hàm trong VBA rồi