Tìm ô có Hyperlink ?

[TrungChinhs]

Chào các bạn! Nhờ các bạn viết giúp tôi code tìm và xoá các dòng có ô chứa Hyperlink. Thanks!

 

[thuyyeu99]

Anh dùng thử

Sub xoaHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

 

[xichdragon]

Chào các bạn! Nhờ các bạn viết giúp tôi code tìm và xoá các dòng có ô chứa Hyperlink. Thanks!

Xoá các dòng có chứa hyperlink cơ mà bạn, Có phải xoá link đâu

Sub xoaHyperlinks()
Dim hypli As Hyperlink
For Each hypli In ActiveSheet.Hyperlinks
m = hypli.Range.Row
Rows(m).Select
Selection.Delete Shift:=xlUp
Next
End Sub

 

[Pozsi]

Theo mình thì viết như vầy. Vì không biết vùng dữ liệu trên hàng có dữ liêu hay không? Nếu có thì bạn xoá đi mất thì sao? Tốt nhất cứ xoá ngay trên cái mình đang nói đến cho chắc.

Sub xoaHyperlinks()
Dim hypli As Hyperlink
For Each hypli In ActiveSheet.Hyperlinks
hypli.Range.ClearContents
Next
End Sub

 

[TrungChinhs]

Cảm ơn các bạn! Tôi đã test và nghiên cứu tất cả bài của các bạn, có thể do tôi diễn đạt không rõ ý nên bài của các bạn có khác nhau chút ít nhưng đều giúp tôi giải quyết được mấu chốt của vấn đề là tìm được ô chứa Hyperlinks. Còn việc xoá Hyperlinks (xoá dữ liệu) hay xoá ô, xoá dòng chứa Hyperlinks tôi có thể tự làm được.

Ứng dụng: Nếu bạn muốn copy trang web này về một Sheet nào đó thì nhấn Ctrl + A (chọn toàn bộ trang web); nhấn Ctrl + C (copy); mở sheet chọn ô B1 và nhấn Ctrl + V (dán). Sau đó nhấn Ctrl + shift + X --> Tôi chỉ mới làm được đến đây (xem file đính kèm).

 

[phamduylong]

Chào các bạn! Nhờ các bạn viết giúp tôi code tìm và xoá các dòng có ô chứa Hyperlink. Thanks!

Tôi hiểu câu hỏi của Trung Chinh như xichdragon đã viết hàm xoaHyperlinks. Cách dùng ActiveSheet.Hyperlinks rất gọn và hay.
Từ code của xichdragon, chỉnh lại cho gọn hơn nữa

SubxoaHyperlinks()
Dim hypli As Hyperlink
For Each hypli In ActiveSheet.Hyperlinks
  Rows(hypli.Range.Row).Delete Shift:=xlUp
Next
End Sub

 

[Pozsi]

Nếu là vậy thì em dùng chức năng Edit Excel của trình IE để chuyển qua! Bác cứ theo trình tự hình thì có thể làm được ngay!

 

[TrungChinhs]

Trước hết xin cảm ơn tất cả các bạn đã giúp đỡ ! Hôm nay tôi mới tìm được câu trả lời thỏa đáng.

Đây là code lấy địa chỉ những ô có Hyperlinks

Sub Address_CellsHyperlinks()
On Error Resume Next
    For Each cls In ActiveSheet.Hyperlinks
        MsgBox Cells(cls.Range.Row, cls.Range.Column).Address
   Next
End Sub

Và đây là code lấy đường dẫn của Hyperlinks

Sub CellsHyperlinks()
On Error Resume Next
    For Each cls In ActiveSheet.Hyperlinks
        MsgBox cls.Address
   Next
End Sub

 

[mitomcombui]

Cùng chủ đề này mình có một bài toán cần được mọi người giúp đỡ.
Nếu ok thì được quyền truy cập link đó( được click vào cell đó)
Nếu notok thì không được truy cập link đó( không click được cell chứa link đó) hoặc click sẽ hiện 1 thông báo gì đó.
Mình cảm ơn trước nha!

 

[nghiaphuc]

Cùng chủ đề này mình có một bài toán cần được mọi người giúp đỡ.
Nếu ok thì được quyền truy cập link đó( được click vào cell đó)
Nếu notok thì không được truy cập link đó( không click được cell chứa link đó) hoặc click sẽ hiện 1 thông báo gì đó.
Mình cảm ơn trước nha!

Bạn giải thích rõ hơn 2 chỗ ok và notok ở trên nghĩa là sao? Mình đang nghĩ đến Lock cells và Protect sheet nhưng chưa hiểu rõ ý của bạn.

 

[ducdinh1987]

anh chị nào xem và giúp em cái. có gì gởi qua mail cho em, em cảm ơn.
ducdinh1987@gmail.com

 

[mitomcombui]

Nó giống như điều kiện vậy bạn: if(A1="OK","(Cho phép click chuột để link tới địa chỉ nào đó"," Không cho link")

 

[ducdinh1987]

bạn làm 1 cái hàm cụ thể trong file excel và gởi cho minh được không? cảm ơn bạn.

 

[mitomcombui]

bạn làm 1 cái hàm cụ thể trong file excel và gởi cho minh được không? cảm ơn bạn.

Sorry bạn nhé mình đang trả lời câu hỏi của nghiaphuc quên mất không trích dẫn.

 

[nghiaphuc]

anh chị nào xem và giúp em cái. có gì gởi qua mail cho em, em cảm ơn.
ducdinh1987@gmail.com

Không biết ý của bạn có phải là:
- Chọn giống sẽ hiện tên vườn.
- Click vào tên vườn sẽ liên kết đến vườn tương ứng.
Nếu đúng như vậy thì bạn tham khảo trong file nhé.

 

[nghiaphuc]

Nó giống như điều kiện vậy bạn: if(A1="OK","(Cho phép click chuột để link tới địa chỉ nào đó"," Không cho link")

Bạn tham khảo trong file xem có đúng ý không nhé.

 

[ducdinh1987]

dạ không phải thế.
từ sheet 1. anh làm những hàm, nếu anh thay đổi tên giống thì nó ra tên vườn và nhẫn vào đó nó sẽ dẫn tới tên vườn.
còn sheet danh sach giong ở ô màu hồng là mình làm đường link liên quan đến nó, nó sẽ lọc trên vườn đó.

 

[ducdinh1987]

anh gởi em file excel 2003 giúp em với, máy em ko đọc được excel 2007. cảm ơn anh.

 

[nghiaphuc]

dạ không phải thế.
từ sheet 1. anh làm những hàm, nếu anh thay đổi tên giống thì nó ra tên vườn và nhẫn vào đó nó sẽ dẫn tới tên vườn.
còn sheet danh sach giong ở ô màu hồng là mình làm đường link liên quan đến nó, nó sẽ lọc trên vườn đó.

Bạn xem file đính kèm xem đã đúng ý chưa nhé.
Mình vẫn thấy việc làm này nó cứ lòng vòng thế nào ấy.

 

[ducdinh1987]

anh coi lại em thử, sao em đánh lại ô khác không được.