批量引用，能不能调为跟筛选挂钩？只批量引用筛选的部分

再回首-沉默

Sub Z0批量追踪引用()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Application.interect
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xCell.ShowPrecedents
    Next
End Sub



需要怎么修改，只引用筛选的部分

lss001

Sub Z0批量追踪引用()
'updateby Extendoffice
    Dim xRg As Range, xCell As Range, xTxt$

     On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Application.interect
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg.SpecialCells(12)
        xCell.ShowPrecedents
    Next

End Sub

再回首-沉默

lss001 发表于 2024-8-2 20:34
Sub Z0批量追踪引用()
'updateby Extendoffice
    Dim xRg As Range, xCell As Range, xTxt$

大佬用你改的vba运行了不行呢，是我那里弄错了吗

lss001

再回首-沉默 发表于 2024-8-5 17:24
大佬用你改的vba运行了不行呢，是我那里弄错了吗

可把 On Error GoTo t
改为 On Error Resume Next
或参考楼上更正