- , 100%, ,
Sub DependantTest()
For Each i In DependantOnValidation(Range("A1"))
Debug.Print i
Next i
End Sub
Function DependantOnValidation(rngLookAt As Excel.Range) As Collection
Dim ws As Worksheet Dim rInspect As Range Dim rWorking As Range Dim rIntersect As Range
Set ws = ThisWorkbook.Worksheets("sheet1")
On Error Resume Next
Set DependantOnValidation = New Collection
For Each rInspect In ws.Range("a1:z1")
Set rWorking = Range(Replace(rInspect.Validation.Formula1, "=", vbNullString))
If Not rWorking Is Nothing Then
Set rIntersect = Application.Intersect(rngLookAt, rWorking)
DependantOnValidation.Add rInspect.Address
End If
Set rWorking = Nothing
Next rInspect
End Function
CF - , tho
If rInspect.FormatConditions.Count > 0 Then
For Each fCondition In rInspect.FormatConditions
If fCondition.Formula1 <> "" Then
If InStr(1, fCondition.Formula1, rngLookAt.Address(True, True)) > 0 Or _
InStr(1, fCondition.Formula1, rngLookAt.Address(False, True)) > 0 Or _
InStr(1, fCondition.Formula1, rngLookAt.Address(True, False)) > 0 Then
End If
End If
Next fCondition
End If