[已解决][求助]求一段数据有效性的代码

xyzxyz07

请各位高手帮忙：

VR1Ei8z6.rar (1.99 KB, 下载次数: 6)

2009-8-18 16:51 上传

点击文件名下载附件
[求助]求一段数据有效性的代码

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2009-8-18 17:45

Sub yy()
Dim Myr&, Arr, d, i&
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a2:b" & Myr)
Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Arr)
        d(Arr(i, 1)) = ""
    Next
    With Sheet2.[c2].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    End With
    Set d = Nothing

End Sub

跳转到最佳答案楼层

蓝桥玄霜

Sub yy()
Dim Myr&, Arr, d, i&
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a2:b" & Myr)
Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Arr)
        d(Arr(i, 1)) = ""
    Next
    With Sheet2.[c2].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    End With
    Set d = Nothing

End Sub

zsd5237

学习[em02][em02]