请问可以实现这样的动态级联及语意联想吗?麻烦各位高手来帮下忙!

曾慧兰

还是不行哦..在来货那里增加来货的信息老是会弹出那个错误的窗口...是怎么回事?

alzeng

修正代码,将"来货表"排除在激活事件之外.
五级连选1.rar (24.02 KB, 下载次数: 253)

2009-7-25 20:20 上传

点击文件名下载附件

曾慧兰

谢谢了...打扰了这么久..真不好意思..

曾慧兰

大虾..还有一个问题,,保证是这个表的最后一个问题了.. .呵呵不好意思.之前都把注意力集中在那个五连选的问题上面去了..说明在附件..谢谢!

alzeng

五级连选-2.rar (18.96 KB, 下载次数: 509)

2009-7-27 22:35 上传

点击文件名下载附件

blackttea1

支持一下，谢谢！

第431只浣熊

直接看不懂。。。。。。。。。。。。。。。。。。。。。。

风之飘雨

感觉25楼的很不错啊

就是没弄懂怎么实现的

ExcelHoarvin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 And Target.Column <> 3 And Target.Column <> 1 Then Exit Sub
Dim d, i&, Myr&, Arr
Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet6.[a1048576].End(xlUp).Row
Arr = Sheet6.Range("a2:c" & Myr)
If Target.Column = 1 Then
    Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Arr)
        d(Arr(i, 1)) = ""
    Next
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    End With
    Target.Offset(0, 1) = ""
    Target.Offset(0, 2) = ""
    Set d = Nothing
ElseIf Target.Column = 2 And Target.Offset(0, -1) <> "" Then
    Set d = CreateObject("Scripting.Dictionary")
    'For i = 1 To UBound(Arr)
    For i = 1 To UBound(Arr)
        If Arr(i, 1) = Target.Offset(0, -1).Text Then
            d(Arr(i, 2)) = ""
        End If
    Next i
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(d.keys, ",") 'aa
    End With
    Target.Offset(0, 1) = ""
    Set d = Nothing
ElseIf Target.Column = 3 And Target.Offset(0, -1) <> "" Then
    Set d = CreateObject("Scripting.Dictionary")
    bb = Cells(Target.Row, 1) & "|" & Cells(Target.Row, 2)
    'For i = 1 To UBound(Arr)
    For i = 1 To UBound(Arr)
        If Arr(i, 1) & "|" & Arr(i, 2) = bb Then
            d(Arr(i, 3)) = ""
        End If
    Next i
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    End With
    Set d = Nothing
End If
End Sub



哪位麻烦给解释一下代码意思，加一下注释，谢谢了

02761752696

   谢谢分享