検証のアドレスを取得するには？

Question

有効なセルがいくつかあります。私は、細胞が妥当性検査をしているかどうかをチェックするべきです。それが検証を持っているなら、私はその検証の範囲を取得する必要があります。 方法はありますか？ 私はたくさんの式を試しましたが、失敗しました。

Sub checkForValidation() 
Dim cell As Range, v As Long 
adatOszlop = 9 
todoszamlalo = 0 
celOszlop = 15 
Set lista = Sheets("Munka1").Range("R:R") 

    lista.Name = "Szamok" 
    For szamlalo = 4 To 25 
     v = 0 
     On Error Resume Next 

     v = Cells(szamlalo, celOszlop).SpecialCells(xlCellTypeSameValidation).Count 
     On Error GoTo 0 

     If v = 0 Then 
      Debug.Print "No validation" 
      Cells(szamlalo, 10) = "No validation" 
     Else 
      Debug.Print "Has validation" 
      Cells(szamlalo, 10) = "Has validation" 

       If Not lista.Find(Cells(szamlalo, adatOszlop).Value) Is Nothing Then 
        Dim rng As Range 
        Dim ws As Worksheet 

        Sheets("Munka1").Cells(szamlalo, 14) = "ok" 
        Sheets("Munka1").Cells(szamlalo, celOszlop) = Cells(szamlalo, adatOszlop).Value 
       Else 
        Call selectsub(Cells(szamlalo, adatOszlop).Value) 
       End If 
     End If 
    Next 
    'End 
End Su 

B

Answer 1

この小さなサブアクティブセルをテストしDVリストの範囲を与えるかDV項目を一覧表示したり、DV何ありません伝えます：

Sub IsIt() 
    On Error GoTo trap 
     MsgBox ActiveCell.Validation.Formula1 
    On Error GoTo 0 
    Exit Sub 
trap: 
    MsgBox "no data validation" 
    On Error GoTo 0 
End Sub