[求助]数据有效性数据源引用（公式）问题？

gvntw

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
   
    Dim strTemp As String
    Dim rgs As Range
    Dim rg As Range
   
    strTemp = ""
    Set rgs = Sheet2.Range(Sheet2.Cells(2, 1), Sheet2.Cells(65536, 1).End(xlUp))
   
    For Each rg In rgs
        If rg = Target Then
            strTemp = strTemp & "," & rg.Offset(, 1)
        End If
    Next
   
    On Error Resume Next
    With Target.Offset(, 1).Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Mid(strTemp, 2)
    End With

End Sub

gvntw

原帖由 pureshadow 于 2007-8-21 19:27 发表
二级有效性呀，不用编程也可以做到的

是可以，，但由于有效性不支持直接使用内存数组，不用辅助列以我的水平做不出来，下面是添加辅助列的方法。