VBA中集合collection方法的基础知识

OKJSJSF

操作表2代码增加了一个 Range 变量 ran2 ,缩小取值范围,修改后,代码有效了,如下:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 3 Or Target.Row = 1 Then Exit Sub
    If Target.Column = 1 Then Target.Offset(0, 1).Resize(1, 2).ClearContents
    If Target.Column = 2 Then Target.Offset(0, 1).ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 3 Or Target.Row = 1 Then Exit Sub
    On Error Resume Next
    Dim col As New Collection, ran As Range, c As Byte, val As String
    If Target.Column = 1 Then
        For Each ran In Sheets(1).Range("e2:e9")
            col.Add ran, key:=CStr(ran)
        Next
        For c = 1 To col.Count
           val = val & col(c) & ","
        Next
        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=val
        End With
    ElseIf Target.Column = 2 Then
        For Each ran In Sheets(1).Range("f2:f9")
            If ran.Offset(0, -1) = Target.Offset(0, -1) Then
                col.Add ran ', key:=CStr(ran)
            End If
        Next
        For c = 1 To col.Count
           val = val & col(c) & ","
        Next
        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=val
        End With
    ElseIf Target.Column = 3 Then
        For Each ran In Sheets(1).Range("g2:k9")
            If ran.Offset(0, -1) = Target.Offset(0, -1) And ran.Offset(0, -2) = Target.Offset(0, -2) Then
                Dim ran2 As Range
                For Each ran2 In ran.Resize(1, 5)
                    col.Add ran2 ', key:=CStr(ran)
                Next
            End If
        Next
        For c = 1 To col.Count
           val = val & col(c) & ","
        Next
        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=val
        End With
    End If
End Sub

OKJSJSF

操作表2三级选单全部显示截图:

OKJSJSF

从下拉列表选择,将覆盖有效性设置的功能,如同采用复制粘贴其它单元格.如截图,有效性设置为输录值只能1或2或3,但:

OKJSJSF

惭愧,又把截图P4错写为P2

makelot

貌似集合Collection也可以有Key值，请问这种情况下它和字典有什么区别呢？

bigfoolishbull

正在学习字典用法，资料里很多和集合的对比，正好找到这篇文章好好学习下，感谢楼主的详细讲解

larer

bluexuemei 发表于 2013-7-4 12:21
感觉没有多大作用。。。

集合可以很方便地用作数据结构的队列或堆栈,实现先进先出,或后进先出.

autolzg

学习 收藏了 ！！  
以后要用再来回顾一下

用心修炼

香川群子 发表于 2013-7-4 12:47
如果在Add集合元素时加入了唯一的key值，就可以了。
和普通数组相比较，集合的特点：
1. 通常只在末尾添 ...

老师，字典中的key值也可以修改的吧，
dic.key("张三")=“李四”，这个不算修改key值吗？

三流高手

谢谢群子老师，收藏学习