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

jsyzhui1226

想在sheet1 D列中，实现数据有效性，下拉单的数据源为：sheet2 A列中值等于 B2 值所对应的sheet2 B列中的值的结合。详细件附件！谢谢

george

如果编程可能简单些

jsyzhui1226

可否给段代码？谢谢。

kenkenluo

不知道了，看看还有高手帮忙啊

liangest

顶

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

pureshadow

二级有效性呀，不用编程也可以做到的

gvntw

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

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

feixiang7823

顶顶顶

lmj8260

学学楼上的二级数据有效性,以前没接触过