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

蓝桥玄霜 · 发表于 2009-7-23 13:12

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 = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.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)
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)
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

复制代码

alzeng · 发表于 2009-7-23 13:40

双击B列单元格：

五级连续选择.rar (31.6 KB, 下载次数: 1126)

曾慧兰 · 发表于 2009-7-23 18:33

谢谢...高人呐...很感动...

曾慧兰 · 发表于 2009-7-24 09:16

大虾...,那个"五级连续选择"不对哦...我输入单号那里弹出的下拉列表是空的.....而且如果是空的下拉列表..如果我不选择那个框框不会消除掉..麻烦你帮我做一个如果我在单元格里面输入了关键字..如果我没有选择...而是点了其他单元格,.,那么那个下拉列表就会自动消失...如果我再次点之前输入过关键字的单元格...他会自动弹出与关键字有关联内容的下拉列表...谢谢...真不好意思 ..麻烦了..

[ 本帖最后由曾慧兰于 2009-7-24 09:17 编辑 ]

alzeng · 发表于 2009-7-24 09:25

原帖由 曾慧兰 于 2009-7-24 09:16 发表
大虾...,那个"五级连续选择"不对哦...我输入单号那里弹出的下拉列表是空的.....而且如果是空的下拉列表..如果我不选择那个框框不会消除掉..麻烦你帮我做一个如果我在单元格里面输入了关键字..如果我没有选择...而是点 ...

这里摒弃了输入关键字的这个做法，双击后直接从前表取值。

alzeng · 发表于 2009-7-24 16:48

原帖由 曾慧兰 于 2009-7-24 15:58 发表
呀..原来这样呀..但是那个框框..如果我没从下拉列表选择的话..它就一直都不消失..我要怎样才能让它消失呀!

首先你要确认是不是可以不选？
从你的要求中得知这些你都是要从前一张表的数据中进行选择的……

曾慧兰 · 发表于 2009-7-24 15:58

呀..原来这样呀..但是那个框框..如果我没从下拉列表选择的话..它就一直都不消失..我要怎样才能让它消失呀!

曾慧兰 · 发表于 2009-7-24 20:31

我意思是: 如果我双击了那单元格刚想选择,但是不小心点去了其他单元格...那我要怎才能把那框框消失掉...还有哦..那个来货表如果要输入数据..在A列输入日期后按Tab键..它会弹出那个要调试的对话框出来的..还有那个上挂部表和下挂部表以及后面那几个都是.在选择材质的时候...老是跳到其他单元格里面去的...

alzeng · 发表于 2009-7-24 21:37

右击B列单元格,Listbox消失.

五级连选.rar (27.04 KB, 下载次数: 236)

alzeng · 发表于 2009-7-25 06:33

做一下改进，如果有资料输入错误，只需清除B列内容，则关联内容亦清除。

五级连选.rar (37.3 KB, 下载次数: 617)

		自动登录	找回密码
密码			免费注册

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

3级动态数据有效性设置

浏览过的版块