Access挑战Excel第三期：级联菜单

purplerose

ROYCH  这招有点狠了，估计EXCEL做起来不是那么容易了，

ccz88

小菜鸟关注下

pureshadow

做了两个:一个是纯函数版，不过函数有限制，所以没有用所有的数据，而且因为在数据验证中无法使用多维引用和内存数组，所以对数据源结构作了些修改。

1. 
   
2. =OFFSET($E$2,,,COUNTA($E:$E))
   
3. =OFFSET($B$1,MATCH($H$3,$A:$A,)-1,,COUNTIF($A:$A,$H$3))
   
4. =OFFSET($B$1,MATCH($H$5,$A:$A,)-1,,COUNTIF($A:$A,$H$5))
   

复制代码

另一个是代码版，这个除了生孩子其他什么都会的代码，就没那么多顾虑了，数据源该是什么样就是什么样。

1. 
   
2. Private Sub Worksheet_selectionChange(ByVal Target As Range)
   
3. 
   
4. Dim MyRow As Long, i As Long
   
5. Dim MyStr As String
   
6. MyRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7. 
   
8. '省
   
9. If Target.Address = "$G$4" Then
   
10.     For i = 2 To MyRow
    
11.         If Application.CountIf(Range("a1:a" & i - 1), Cells(i, 1)) = 0 Then
    
12.             MyStr = MyStr & "," & Cells(i, 1)
    
13.         End If
    
14.     Next
    
15.     MyStr = Mid(MyStr, 2, MyRow * 8)
    
16.     With Target.Validation
    
17.         .Delete
    
18.         .Add Type:=xlValidateList, Formula1:=MyStr
    
19.     End With
    
20. End If
    
21. 
    
22. '市
    
23. If Target.Address = "$G$6" Then
    
24.     For i = 2 To MyRow
    
25.         If Cells(i, 1) = Range("g4") Then
    
26.             If Application.CountIf(Range("b1:b" & i - 1), Cells(i, 2)) = 0 Then
    
27.                 MyStr = MyStr & "," & Cells(i, 2)
    
28.             End If
    
29.         End If
    
30.     Next
    
31.     MyStr = Mid(MyStr, 2, MyRow * 8)
    
32.     With Target.Validation
    
33.         .Delete
    
34.         .Add Type:=xlValidateList, Formula1:=MyStr
    
35.     End With
    
36. End If
    
37. 
    
38. '县
    
39. If Target.Address = "$G$8" Then
    
40.     For i = 2 To MyRow
    
41.         If Cells(i, 2) = Range("g6") Then
    
42.             If Application.CountIf(Range("c1:c" & i - 1), Cells(i, 3)) = 0 Then
    
43.                 MyStr = MyStr & "," & Cells(i, 3)
    
44.             End If
    
45.         End If
    
46.     Next
    
47.     MyStr = Mid(MyStr, 2, MyRow * 8)
    
48.     With Target.Validation
    
49.         .Delete
    
50.         .Add Type:=xlValidateList, Formula1:=MyStr
    
51.     End With
    
52. End If
    
53. 
    
54. End Sub
    
55. 
    

复制代码

pureshadow

那个Roy，我一直没明白Access这个究竟是怎么做的，能扫下盲不？

刘苏

整好遇到有童鞋求助联动菜单问题，源文件附上：


反正楼主考察的是思路，数据源不一致这个问题嘛，将就一下咯

快跑..

roych

pureshadow 发表于 2016-3-26 17:08
那个Roy，我一直没明白Access这个究竟是怎么做的，能扫下盲不？

Access的主要思路是通过查询来做的。
第一级菜单使用一个分组查询（我习惯用这个），或者使用distinct关键字来得到不重复的省份。
第二级菜单使用以第一级菜单为条件的查询，即 select city from area where province=frmMain!province。这样一来，我们在第一级菜单的更新后事件或者更改事件中刷新第二级菜单的数据源之后，即可得到对应的二级菜单。
第三级如此类推，我一般使用2个条件（省份和市区），在第二级菜单更改后刷新数据源即可。

只要不强制另加条件的话，系统是自动按开头字母排序的。
也正因为这样，数据可以动态增加，而且不管是否顺序。

在实际应用中，新增且乱序是很经常有的事情。例如，生产过程中，新购买的原料，或者销售过程中新增的一些套餐或者产品等等，这些都会在订单流程上使用。如果这些数据非要顺序的话，对于使用者来说，可能不太方便。

当然，这是个人拙见，欢迎大家拍砖。

gaojikuaijishi

谢谢呀

roych

本题暂时告一段落了。从思路上来看，都达到了要求。总结如下：
1、三级联动菜单中，代码版完全符合要求。当然，这对Excel的要求比较高。
2、函数版基本符合要求，但局限于顺序问题，因此在使用函数版时必须要按A列排好序【按B列排序则会出错】。
3、苏版的同样存在顺序问题。这里不再评述。
4、在多级菜单方面，Access略胜一筹。不过，对于新手来说，需要掌握条件查询，以及稍通代码。

pureshadow

Roy，原谅我笨，还是没搞定……
提个小小的要求，能做个视频什么的吧

xuwenning

学习 收藏