从 vba 的下拉列表中查找数据的原始地址

Question

美好的一天

我正在寻找一种方法来查找用于在 vba 中创建下拉列表的数据地址。下拉菜单是使用代码创建的：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="='" & ws.Name & "'!" & range1.Address

下拉代码被多次使用，我需要找到一种方法来找到用于公式 1 代码的工作表。这将帮助我稍后在我的代码中创建引用该工作表的案例。 请看附图：

选择选定的 a 或 b 值然后由代码运行

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("J9:J15")) Is Nothing Then
Select Case Target
    Case "a": hala
    Case "b": toets_my_ws
End Select

End If

当我选择其中一个宏时，我需要它来查找已验证数据的工作表。

Answer 1

再次编辑：我认为这将更容易集成为一个函数 - 如果你想找到你的 Target 单元格的源范围。

例如：

Dim rngSource As Range
'...
Set rngSource = ListSourceRange(Target)
If Not rngSource Is Nothing then
    rngSource.Parent.Activate  'do something with rngSource...
End If
'...

功能：

'Given a cell, see if it has a validation list, and
'  try to get the source range for the list
Function ListSourceRange(c As Range) As Range
    Dim vType, rng As Range
    On Error Resume Next       'ignore error if no validation
    vType = c.Validation.Type
    On Error GoTo 0            'stop ignoring errors
    
    If vType = 3 Then
        'try to get a source range...
        On Error Resume Next
        Set rng = Range(c.Validation.Formula1)
        On Error GoTo 0
    End If
    Set ListSourceRange = rng 'source range, or Nothing if no range found
End Function