cho em Hỏi về cách lọc chuỗi và hyperlink

[johnx]

Tình hình là công việc của em nó cần tách cái chuỗi ra .
Em xin trình bày cho các bro dễ hiểu :


A1 : lienketweb(tentrangweb)

Ô A1 gồm 1 chuỗi kí tự không dấu , có hyperlink cho cả chuỗi . Chuổi gồm 2 phần :
+ Phần ngoài dấu ngoặc đơn : lienketweb
+ phần trong dấu ngoặc đơn (tentrangweb)

=> Nguyên chuỗi được đặt hyperlink đến : http://abcd

em muốn lọc chuỗi ở ô A1 thành các phần ở các ô khác như sau :
- Ô A2 : trả về kết quả : lienketweb
- Ô A3 : trả về kết quả : (tentrangweb) hoặc tentrangweb <-- ngoặc hay không ngoặc ko quan trọng .
- Ô A4 : trả về kết quả : http://abcd <-- hyperlink của ô A1 .

Các bro nào có thể giải quyết vấn đề này thì giúp em nhé ,
Nếu biết cách làm 1 trong 3 Ô A2 , A3 , A4 ( không cần làm hết , nếu dc hết cả 3 ô thì tốt biết mấy )thì giúp em nha .

 

[boyxin]

Tình hình là công việc của em nó cần tách cái chuỗi ra .
Em xin trình bày cho các bro dễ hiểu :


A1 : lienketweb(tentrangweb)

Ô A1 gồm 1 chuỗi kí tự không dấu , có hyperlink cho cả chuỗi . Chuổi gồm 2 phần :
+ Phần ngoài dấu ngoặc đơn : lienketweb
+ phần trong dấu ngoặc đơn (tentrangweb)

=> Nguyên chuỗi được đặt hyperlink đến : http://abcd

em muốn lọc chuỗi ở ô A1 thành các phần ở các ô khác như sau :
- Ô A2 : trả về kết quả : lienketweb
- Ô A3 : trả về kết quả : (tentrangweb) hoặc tentrangweb <-- ngoặc hay không ngoặc ko quan trọng .
- Ô A4 : trả về kết quả : http://abcd <-- hyperlink của ô A1 .

Các bro nào có thể giải quyết vấn đề này thì giúp em nhé ,
Nếu biết cách làm 1 trong 3 Ô A2 , A3 , A4 ( không cần làm hết , nếu dc hết cả 3 ô thì tốt biết mấy )thì giúp em nha .

A2 =LEFT(A1,FIND("(",A1)-1)
A3 =MID(A1,FIND("(",A1)+1,LEN(A1)-LEN(A2)-2)
A4 ĐANG NGHĨ CHƯA RA

 

[SoiBien]

tạo một UDF như thế này :

Function GetAddress(HyperlinkCell As Range)
    GetAddress = Replace _
    (HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function

rồi, công thức tại ô A4 = getaddress(a1)
(tham khảo tại : http://www.ozgrid.com/VBA/HyperlinkAddress.htm)

 

[johnx]

Mình xài excel 2007 không hiểu sao mình làm giống như vậy rồi , nhưng khi sử dụng công thức =getaddress(a1) nó lại báo lỗi ko làm được .
Không biết thế nào nữa bạn chỉ xem mình có cần chỉnh gì thêm ko ?

------------
Oh thanks mình làm được rồi dùng :

Function HyperLinkText(pRange As Range) As String

Dim ST1 As String
Dim ST2 As String
If pRange.Hyperlinks.Count = 0 Then
Exit Function
End If
ST1 = pRange.Hyperlinks(1).Address
ST2 = pRange.Hyperlinks(1).SubAddress
If ST2 <> "" Then
ST1 = "[" & ST1 & "]" & ST2
End If
HyperLinkText = ST1
​

End Function
​

 

[SoiBien]

báo lỗi gì vậy bạn? mình không sử dụng Office 2007.

 

[johnx]

Em cũng không biết nữa nhưng nó cứ hiện ra #value . Em sử dụng function mới thì ok không có vấn đề gì .Chắc hàm trên không phù hợp với chuỗi của em .
Cảm ơn các anh đã giúp đỡ nhiệt tình .

 

[yeudoi]

Ah tài vì nó chưa có liên kết đấy mà nên nó báo #value.
Mình thấy cái này dùng cũng được

Public Function Weblink(Zelle As Range)
Application.Volatile
Weblink = Zelle.Hyperlinks(1).Address
End Function

Để hiện link

=HYPERLINK(Weblink(A1))