[已解决]请帮忙修改

xiaoni

关键字转有效性.zip (8.39 KB, 下载次数: 13)

2012-1-11 22:31 上传

点击文件名下载附件
问题在附件的工作表模块中

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-12 08:36

arr = d.Keys()
str = Join(arr, ",")
Formula1:=str--------------------（数据有效性的引用）

Sub aa()
    Dim arr
    Dim i As Long, str As String
    Dim d As New dictionary
    arr = Range("a1:a14")
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = d(arr(i, 1)) + 1
    Next i
    arr = d.Keys()
    str = Join(arr, ",")
    With Range("b1:b10").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                                                           xlBetween, Formula1:=str   
    End With
End Sub
   

跳转到最佳答案楼层

sunjing-zxl

arr = d.Keys()
str = Join(arr, ",")
Formula1:=str--------------------（数据有效性的引用）

Sub aa()
    Dim arr
    Dim i As Long, str As String
    Dim d As New dictionary
    arr = Range("a1:a14")
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = d(arr(i, 1)) + 1
    Next i
    arr = d.Keys()
    str = Join(arr, ",")
    With Range("b1:b10").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                                                           xlBetween, Formula1:=str   
    End With
End Sub