Access挑戰(zhàn)Excel第三期：級聯(lián)菜單

purplerose

ROYCH  這招有點(diǎn)狠了，估計EXCEL做起來不是那么容易了，

ccz88

小菜鳥關(guān)注下

pureshadow

做了兩個:一個是純函數(shù)版，不過函數(shù)有限制，所以沒有用所有的數(shù)據(jù)，而且因?yàn)樵跀?shù)據(jù)驗(yàn)證中無法使用多維引用和內(nèi)存數(shù)組，所以對數(shù)據(jù)源結(jié)構(gòu)作了些修改。

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))
   

復(fù)制代碼

另一個是代碼版，這個除了生孩子其他什么都會的代碼，就沒那么多顧慮了，數(shù)據(jù)源該是什么樣就是什么樣。

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. 
    

復(fù)制代碼

pureshadow

那個Roy，我一直沒明白Access這個究竟是怎么做的，能掃下盲不？

劉蘇

整好遇到有童鞋求助聯(lián)動菜單問題，源文件附上：


反正樓主考察的是思路，數(shù)據(jù)源不一致這個問題嘛，將就一下咯

快跑..

roych

pureshadow 發(fā)表于 2016-3-26 17:08
那個Roy，我一直沒明白Access這個究竟是怎么做的，能掃下盲不？

Access的主要思路是通過查詢來做的。
第一級菜單使用一個分組查詢（我習(xí)慣用這個），或者使用distinct關(guān)鍵字來得到不重復(fù)的省份。
第二級菜單使用以第一級菜單為條件的查詢，即 select city from area where province=frmMain!province。這樣一來，我們在第一級菜單的更新后事件或者更改事件中刷新第二級菜單的數(shù)據(jù)源之后，即可得到對應(yīng)的二級菜單。
第三級如此類推，我一般使用2個條件（省份和市區(qū)），在第二級菜單更改后刷新數(shù)據(jù)源即可。

只要不強(qiáng)制另加條件的話，系統(tǒng)是自動按開頭字母排序的。
也正因?yàn)檫@樣，數(shù)據(jù)可以動態(tài)增加，而且不管是否順序。

在實(shí)際應(yīng)用中，新增且亂序是很經(jīng)常有的事情。例如，生產(chǎn)過程中，新購買的原料，或者銷售過程中新增的一些套餐或者產(chǎn)品等等，這些都會在訂單流程上使用。如果這些數(shù)據(jù)非要順序的話，對于使用者來說，可能不太方便。

當(dāng)然，這是個人拙見，歡迎大家拍磚。

gaojikuaijishi

謝謝呀

roych

本題暫時告一段落了。從思路上來看，都達(dá)到了要求�？偨Y(jié)如下：
1、三級聯(lián)動菜單中，代碼版完全符合要求。當(dāng)然，這對Excel的要求比較高。
2、函數(shù)版基本符合要求，但局限于順序問題，因此在使用函數(shù)版時必須要按A列排好序【按B列排序則會出錯】。
3、蘇版的同樣存在順序問題。這里不再評述。
4、在多級菜單方面，Access略勝一籌。不過，對于新手來說，需要掌握條件查詢，以及稍通代碼。

pureshadow

Roy，原諒我笨，還是沒搞定……
提個小小的要求，能做個視頻什么的吧

xuwenning

學(xué)習(xí) 收藏