Có nhiều cách để tìm, nhưng bạn không nêu rõ những Cell chứa Link nó dạng số hay Text hoặc có cả 2 loại cùng lúc.
bạn cũng là cao thủ trong GPE
Tôi không dám nhận là cao thủ đâu, cái gì thành viên hỏi mình biết thì góp ý hoặc trả lời, khi trả lời thì phải hỏi cho cặn kẻ và chỉ trả lời khi hiểu hết được vấn đề.
Tôi học được chiêu này tìm các link từ file khác đến sheet của file đang mở.
Chuẩn quá. thế còn tìm link các sheet trong 1 file như nào bạn nhỉ?Tôi mới học được chiêu này tìm các link từ file khác đến sheet của file đang mở.
File đang mở/nhấn Ctrl+H/Find what nhập .xl phần Look in chọn Fomulas/nhấn Find All/kết quả ở dưới.
Bạn thử xem đúng như ý nguyện chưa?
Tôi nhớ không lầm thì sẽ hiện tất cả các link trong "phần dưới" mà tôi đã nói. Bạn xem kỹ thử xem.
Public WS_FormulaLinkSheet$, TFormulaLinkSheet As Date
Sub FindFormulaLinkSheet()
Call ClearFMC_FormulaLinkSheet
Dim WS As Worksheet, R, tmp$, Rng As Range, tRng As Range, i As Boolean
Dim RegExp As Object
Set RegExp = CreateObject("VbScript.RegExp")
Set WS = ActiveSheet
On Error Resume Next
Set Rng = WS.Cells.SpecialCells(xlCellTypeFormulas)
If Rng Is Nothing Then Exit Sub
For Each R In Rng
tmp = R.Formula: GoSub Test
If i Then
If tRng Is Nothing Then
Set tRng = R
Else
Set tRng = Union(R, tRng)
End If
End If
Next
If Not tRng Is Nothing Then
With tRng
.FormatConditions.Add _
Type:=xlExpression, _
Formula1:="=True"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
With .Interior
.Color = vbYellow
End With
.StopIfTrue = True
.Font.Color = vbBlack
End With
End With
End If
Set RegExp = Nothing
WS_FormulaLinkSheet = WS.Name
TFormulaLinkSheet = Now + TimeSerial(0, 0, 15)
Application.OnTime TFormulaLinkSheet, "ClearFMC_FormulaLinkSheet", , True
ActiveWindow.DisplayFormulas = True 'Bam Ctrl + ` de tro lai'
Exit Sub
Test:
i = False
With RegExp
.Global = True
.IgnoreCase = True
.Pattern = "(\[.{2,200}\])?\'?.{2,200}\'?\!{1}\$?\w{1,3}\$?\d{1,7}(\:\$?\w{1,3}\$?\d{1,7})?"
i = .Test(tmp)
End With
Return
End Sub
Sub ClearFMC_FormulaLinkSheet()
ActiveWindow.DisplayFormulas = False
Dim WS As Worksheet, R, tmp$, Rng As Range, tRng As Range, i As Boolean
On Error Resume Next
Application.OnTime TFormulaLinkSheet, "ClearFMC_FormulaLinkSheet", , False
Set WS = ThisWorkbook.Worksheets(WS_FormulaLinkSheet)
If WS Is Nothing Then Set WS = ActiveSheet
Set Rng = WS.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If Rng Is Nothing Then Exit Sub
For Each R In Rng.FormatConditions
If R.Formula = "=True" Then R.Delete
Next
WS_FormulaLinkSheet = ""
End SubChạy code trên Xong Bác bấm Ctrl + ` để xem chứ không có thông số gì khác.
Xin chào HeSanbi,
Duyệt qua DataValidation
Dim Cell As Range
Dim S$
'If ThisWorkbook.ActiveSheet.UsedRange.Cells.Count > 100000 Then Exit Sub
For Each Cell In ThisWorkbook.ActiveSheet.UsedRange
On Error Resume Next
S = "": S = Cell.Validation.Formula1
On Error GoTo 0
If S <> "" Then
Debug.Print Cell.Address
Debug.Print Cell.Validation.Formula1
End If
Next Dim Cell As Name
Dim S$
For Each Cell In ThisWorkbook.Names
On Error Resume Next
Debug.Print Cell.RefersTo
Debug.Print Cell.NameLocal
On Error GoTo 0
Next
Anh huuthang_bd ơi hình như nếu link liên kết đến file ngoài mà nằm trong name hoặc Datavalition thì không thể Break link được anh ạ
Anh huuthang_bd chia sẻ giải pháp mạnh đi anh
Mở bằng WinRAR và xóa thư mục xl/externalLinks. Tất cả các link bên ngoài sẽ bị "cưỡng chế".Anh huuthang_bd chia sẻ giải pháp mạnh đi anh
