[已解决]如何实现这种动态的数据有效性----我做的错在哪里

wp8680

股网千王 发表于 2013-7-3 13:18
老师您好，我测试了你的代码，若直接点击B列就会出现1004的错误”不能取得worksheetFounction的match属性 ...

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim ir%, x%, st$
   
3.     On Error GoTo ok
   
4.     If Target.Column = 2 Then
   
5.         ir = Application.WorksheetFunction.Match(Target.Offset(0, -1), Sheets("资料").Range("a:a"), 0)
   
6.         Do
   
7.             x = x + 1
   
8.         Loop Until (Sheets("资料").Range("a" & ir + x) = "" And Sheets("资料").Range("b" & ir + x) = "") Or Sheets("资料").Range("a" & ir + x) <> ""
   
9.         st = Sheets("资料").Range("b" & ir).Resize(x, 1).Address
   
10.         ActiveWorkbook.Names.Add Name:="二级", RefersTo:="=资料!" & st
    
11.         With Selection.Validation
    
12.             .Delete
    
13.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
14.                  xlBetween, Formula1:="=二级"
    
15.         End With
    
16.     End If
    
17. ok:
    
18. End Sub

复制代码