Xác đinh ô đã link dữ liệu

[yeuthamhangxom]

Chào các anh chị GPE
Em có câu hỏi nhờ các anh chị giúp.
Tại file A em có 3 cell là A5, C9, F21... đã link dữ liệu sang file B. Vì vậy mà mỗi khi em mở file A nó đều hỏi là có update hay không. Em muốn nhờ anh chị chỉ giúp có cách nào để biết được những ô ở file A nào đã link dữ liệu từ file B không? nghĩa là biết được ô A5, C9, F21... ở file A đã link đến file B
Rất mong các anh chị giúp đỡ.

 

[ndu96081631]

Chào các anh chị GPE
Em có câu hỏi nhờ các anh chị giúp.
Tại file A em có 3 cell là A5, C9, F21... đã link dữ liệu sang file B. Vì vậy mà mỗi khi em mở file A nó đều hỏi là có update hay không. Em muốn nhờ anh chị chỉ giúp có cách nào để biết được những ô ở file A nào đã link dữ liệu từ file B không? nghĩa là biết được ô A5, C9, F21... ở file A đã link đến file B
Rất mong các anh chị giúp đỡ.

Mở fileA lên, bấm Ctrl + F và gõ vào khung Find What chữ .xls] rồi bấm nút Find Next xem

 

[yeuthamhangxom]

Mở fileA lên, bấm Ctrl + F và gõ vào khung Find What chữ .xls] rồi bấm nút Find Next xem

Thầy ơi.
Nếu dữ liệu link ở các cell đó không là define name thì đúng thầy ạ. Nhưng nếu file của em dùng define name thì có cách nào phát hiện ra được không thầy?
Thầy chỉ giúp em với ạ.
Cám ơn thầy nhiều.

 

[ndu96081631]

Thầy ơi.
Nếu dữ liệu link ở các cell đó không là define name thì đúng thầy ạ. Nhưng nếu file của em dùng define name thì có cách nào phát hiện ra được không thầy?
Thầy chỉ giúp em với ạ.
Cám ơn thầy nhiều.

Thì cứ tìm .xls thử xem ---> Đã link thì thế nào cũng có đường dẩn đến file nguồn

 

[yeuthamhangxom]

Thì cứ tìm .xls thử xem ---> Đã link thì thế nào cũng có đường dẩn đến file nguồn

Em đã tìm thử .xls rồi nhưng file đó của em toàn dùng define name nên nó không tìm thấy.
Còn file nào mà không dùng define name thì nó tìm thấy ngay thầy ạ.

Đây là file của em.
Vì file này dùng define name nên em tìm kiếm .xls không được thầy ạ.
Có cách nào khác không ạ.
Thầy giúp em nha.
Cám ơn thầy nhiều.

 

[ndu96081631]

Đây là file của em.
Vì file này dùng define name nên em tìm kiếm .xls không được thầy ạ.
Có cách nào khác không ạ.
Thầy giúp em nha.
Cám ơn thầy nhiều.

Ái chà... khó đây, tôi nghĩ chắc phải dùng VBA quá
Chưa làm nhưng tôi nghĩ hướng đi sẽ như vầy:
- Tìm trong fileA xem có công thức nào có chữ .xls hay không?
- Tìm trong các name, xem name nào có nội dung .xls ---> Sau đó lại tìm trên Workbook, nhưng cell công thức nào có dùng đến name ấy không?

 

[yeuthamhangxom]

Ái chà... khó đây, tôi nghĩ chắc phải dùng VBA quá
Chưa làm nhưng tôi nghĩ hướng đi sẽ như vầy:
- Tìm trong fileA xem có công thức nào có chữ .xls hay không?
- Tìm trong các name, xem name nào có nội dung .xls ---> Sau đó lại tìm trên Workbook, nhưng cell công thức nào có dùng đến name ấy không?

VBA thì em chưa biết nhiều lắm. Chắc em không làm nổi rồi mặc dù thầy đã cho hướng đi.
Mong thầy giúp em tiếp nha.
Em cảm ơn thầy nhiều.

 

[ndu96081631]

VBA thì em chưa biết nhiều lắm. Chắc em không làm nổi rồi mặc dù thầy đã cho hướng đi.
Mong thầy giúp em tiếp nha.
Em cảm ơn thầy nhiều.

Thử sơ qua cái nha:

Sub FindFormulaLink()
  Dim FRng As Range, Rng As Range, N As Name, FAdd As String, Dic
  On Error Resume Next
  Set Dic = CreateObject("Scripting.Dictionary")
  Set Rng = ActiveSheet.UsedRange.SpecialCells(3)
  Set FRng = Rng.Find(".xls", , xlFormulas, xlPart)
  If Not FRng Is Nothing Then
    FAdd = FRng.Address
    Do
      Dic.Add FRng.Address, ""
      Set FRng = FRng.FindNext(FRng)
    Loop Until FRng.Address = FAdd
  End If
  For Each N In ThisWorkbook.Names
    If InStr(N.RefersTo, ".xls") Then
      Set FRng = Rng.Find(N.Name, , xlFormulas, xlPart)
      If Not FRng Is Nothing Then
        FAdd = FRng.Address
        Do
          Dic.Add FRng.Address, ""
          Set FRng = Rng.FindNext(FRng)
        Loop Until FRng.Address = FAdd
      End If
    End If
  Next N
  MsgBox Join(Dic.Keys, vbLf)
End Sub

Bạn có thể chỉnh sửa lại bằng cách liệt kê các địa chỉ cell chứa link vào 1 ListBox cho dể nhìn
(Lưu ý: File bạn "nuôi" virus nhiều quá đấy nhé)

 

[yeuthamhangxom]

Em cám ơn thầy đúng ý em rồi ạ.
File em gửi lên mở ở máy em không thấy có virus mà. Chắc tại máy em phần mềm phát hiện còn kém. Chứ không phải em nuôi đâu ạ.
Cám ơn thầy nhiều nhiều.

 

[ndu96081631]

Em cám ơn thầy đúng ý em rồi ạ.
File em gửi lên mở ở máy em không thấy có virus mà. Chắc tại máy em phần mềm phát hiện còn kém. Chứ không phải em nuôi đâu ạ.
Cám ơn thầy nhiều nhiều.

Mở bằng Excel 2007 ấy ---> Rồi Ctrl + F3 sẽ thấy cả "rừng" name rác cộng với mấy sheet ẩn nữa (riêng sheet ẩn thì bấm Alt + F11 sẽ thấy)