VBA多级下拉菜单案例

wp8680

这是一个论坛的求助贴，我整理了下，以利于类似案例中借鉴用。代码并无特别之处。 多级下拉菜单案例.rar (15.49 KB, 下载次数: 706)

2013-10-3 15:56 上传

点击文件名下载附件

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Column > 7 And Target.Column < 10 And Target.Row > 6 And Target.Count = 1 Then
   
4. Target.Offset(0, 1).ClearContents
   
5. End If
   
6. End Sub
   
7. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
8.     Dim st As String, k As Integer
   
9.     Dim d, arr
   
10.     If Target.Column > 7 And Target.Column < 11 And Target.Row > 6 And Target.Count = 1 Then
    
11.         If Len(Target.Offset(0, -1)) = 0 Then
    
12.             Target.Validation.Delete
    
13.             MsgBox "左项不得为空，请从左向右按序选择录入！"
    
14.         Else
    
15.             st1 = Target.Offset(0, -1)
    
16.             Set d = CreateObject("scripting.dictionary")
    
17.             With Sheets("计件单价")
    
18.                 ir = .Range("B65536").End(xlUp).Row
    
19.                 arr = .Range(.Cells(6, Target.Column - 6), .Cells(ir, Target.Column - 5))
    
20.             End With
    
21.             For k = 1 To UBound(arr, 1)
    
22.                 If st1 = arr(k, 1) Then d(arr(k, 2)) = arr(k, 2)
    
23.             Next k
    
24.             st = Join(d.keys, ",")
    
25.             With Target.Validation
    
26.                 .Delete
    
27.                 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
28.                      xlBetween, Formula1:=st
    
29.                 .InputMessage = "请在下拉中选择："
    
30.             End With
    
31.         End If
    
32.     End If
    
33. End Sub
    

复制代码

liucqa

多级下拉菜单案例.rar (14.97 KB, 下载次数: 1129)

2013-10-3 19:14 上传

点击文件名下载附件

纯化版

wp8680

liucqa 发表于 2013-10-3 19:14
纯化版

这是我自己写的，不是抄的哦，为什么把我的广告给去除了？也不给我加分，哼

liucqa

wp8680 发表于 2013-10-3 19:46
这是我自己写的，不是抄的哦，为什么把我的广告给去除了？也不给我加分，哼

1、原则上，论坛不允许打广告，广告贴可能会被删除。
2、加不加分一般由版主判定，我不是版主，请你耐心等待版主判定。
3、你的帖子被收入知识树，但前提是帖子没有广告信息。如果你不愿意被收入知识树的话，可以给我发消息或者回帖说明，我会从知识树中删除。

如果还有其他问题，可以随时发消息给我

莫悠悠

liucqa 发表于 2013-10-3 22:46
1、原则上，论坛不允许打广告，广告贴可能会被删除。
2、加不加分一般由版主判定，我不是版主，请你耐心 ...

看过也没什么特别之处，应用前景不是很看好

李道影

赞一个！！

jinhaitiao16

谢谢分享。非常好用！

wocharter

谢谢分享。在用了, 超级好用