Tìm ô có Hyperlink ? (1 người xem)

[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.

 

[nghiaphuc]

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

Công thức ='danh sach giong'!E2 chỉ là để hiện chữ L1, L2,... tại ô D9, E9, F9 thôi chứ không phải là để liên kết đâu. Thực chất là các ô này liên kết đến một Name động: Link, chính liên kết này giúp cho bạn nhấn vào ô thì kích hoạt liên kết, chứ không phải là công thức kia giải quyết vụ đó đâu.

 

[ducdinh1987]

vậy lấy link động đó làm sao vậy anh?

 

[nghiaphuc]

vậy lấy link động đó làm sao vậy anh?

Bạn nhấn Ctrl+F3 sẽ thấy có 2 name:
+ Giong: Tên các giống cây, dùng để tạo Validation cho ô A2 trên Sheet1.
+ Link: Dùng để tạo liên kết cho các ô D9, E9, F9 trên Sheet1.
Tại các ô D9, E9, F9, nhấn Ctrl+K và nhập #Link vào ô Address trong hộp thoại hiện ra.

 

[ducdinh1987]

em làm được rồi, cảm ơn anh nhiều.

 

[huynhhuynh87]

chào anh NghiaPhuc>
nếu mình không muốn dùng tên L1, L2, ... Mà mình dùng tên HCM cho tất cả thì làm sao.
thanks anh nha

 

[huynhhuynh87]

sao chẳng ai trả lời giúp mình hết vậy? giúp mình với các bác ơi

 

[nghiaphuc]

chào anh NghiaPhuc>
nếu mình không muốn dùng tên L1, L2, ... Mà mình dùng tên HCM cho tất cả thì làm sao.
thanks anh nha

Có lẽ câu hỏi này là bạn dùng cho bài này phải không?
Bạn tham khảo trong file nhé (và đừng hỏi nhiều nơi cùng một vấn đề nhé).

 

[huynhhuynh87]

ok, thank.
anh cho em hỏi tí luôn, như file của bạn ducdinh87, mình không dùng chỗ ô đặt hyperlink là tên L1, L2 hay L3 gì đó. mà mình đặt tên MCM thì làm sao.

 

[nghiaphuc]

ok, thank.
anh cho em hỏi tí luôn, như file của bạn ducdinh87, mình không dùng chỗ ô đặt hyperlink là tên L1, L2 hay L3 gì đó. mà mình đặt tên MCM thì làm sao.

Không biết huynhhuynh87 và ducdinh87 có phải là một người không vậy ta?
Thực ra ý tác giả là L1, L2,... chính là tên vườn, và các tên này trùng khớp với các tên sheet tương ứng. Như vậy, nếu muốn đổi thành tên gì đó thì cần thay đổi tại tất cả các vị trí có xuất hiện các tên này (các ô trên sheet danh sach giong và tên các sheet L1, L2,...).
Thêm nữa: Nên thay name Link lại như vầy cho gọn và tổng quát:
=INDIRECT("'"&Sheet1!D$9&"'!A"&MATCH(Sheet1!$A$2,INDIRECT(Sheet1!D$9&"!A:A"),0))

 

[huynhhuynh87]

cách làm sao vậy? anh chỉ cụ thể cho em được không?

Có lẽ câu hỏi này là bạn dùng cho bài này phải không?
Bạn tham khảo trong file nhé (và đừng hỏi nhiều nơi cùng một vấn đề nhé).

 

[nghiaphuc]

cách làm sao vậy? anh chỉ cụ thể cho em được không?

Bạn nhấn Ctrl+F3, sẽ thấy 2 name động:
Hinh=OFFSET('lưu ý'!$A$2,,,COUNTA('lưu ý'!$A:$A)-1,) --> Dùng để tạo Validation cho ô A1 trên Sheet1
Link=INDIRECT("'"&VLOOKUP(Sheet1!$A$1,OFFSET(Hinh,,,,2),2,0)&"'!A1") --> Dùng để tạo đường link đến sheet liên quan đến tùy chọn ở ô A1 trên Sheet1.
Bây giờ, bạn chọn một ô nào đó --> nhập một chuỗi tùy ý (để trống cũng được) --> chọn lại ô và nhấn Ctrl+K --> chọn Existing File or Web Page và nhập #Link vào ô Address (Link chính là tên của name động ở trên) --> OK.

 

[huynhhuynh87]

cảm ơn anh nghiaphuc.