Excel多级下拉选择菜单的总结贴.docVIP

Excel多级下拉选择菜单的总结贴 　　这里所说的下拉选择菜单是利用Excel的有效性功能中的顺序实现的： № 题目 位置 第1例 Excel自动对应选择下拉菜单 2楼 第2例 Excel多级下拉菜单，数据自动填充 3楼 第1例：EXCEL自动对应选择下拉菜单　　背景：某工厂的Excel表，首先选择车间，然后再选择不同工序，每一个工序对应不同的步骤。　　工序与步骤存放在【详细工序步骤】工作表中，表中的第一行为工序名，每一个工序名所在列中存储对应的步骤名： 　 A B 1 面线 护掌 2 驳位 穿轻胶 3 面双针 世轻胶 4 透气胶章 贴手叉 5 织唛 拉边 6 拉边 拉护丈巾 7 拉丈巾 剪护丈巾 8 　 车护掌全件 　　实现：　　第一步：由于选择车间与其它选择无关，车间名称也不会轻意改变，因此可以用复制上一行的有效性的方法来实现。同样的理由工序也这样处理，代码如下： 复制内容到剪贴板 代码: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)? ? If Target.Row 2 And Target.Column 3 Then? ?? ???Target.Offset(-1, 0).Copy? ?? ???Target.PasteSpecial (xlPasteValidation)? ? End IfEnd Sub 　　　　上述代码在Sheet1中实现了双击第1、2列，会自动复制上一行的有效性。是通过选择性粘贴实现的。　　下面的代码实现：当第2列改变时，第3列的有效性会相应改变； 复制内容到剪贴板 代码: Private Sub Worksheet_Change(ByVal Target As Range)? ? Dim ws As Worksheet? ? Dim r As Range, c As Range? ? Dim sStr As String? ? If Target.Row 1 And Target.Column = 2 And Target.Count = 1 Then? ?? ???If Target.Value Then? ?? ?? ?? ?Set ws = Worksheets(详细工序步骤)? ?? ?? ?? ?Set r = ws.Rows(1).Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchByte:=Fals)? ?? ?? ?? ?If Not r Is Nothing Then? ?? ?? ?? ?? ? Set c = ws.Cells(2, r.Column)? ?? ?? ?? ?? ? Do While c ? ?? ?? ?? ?? ?? ???sStr = sStr , c.Value? ?? ?? ?? ?? ?? ???Set c = c.Offset(1, 0)? ?? ?? ?? ?? ? Loop? ?? ?? ?? ?? ? Set r = Nothing? ?? ?? ?? ?? ? Set c = Nothing? ?? ?? ?? ?? ? Call DynamicValidation(Target.Offset(0, 1), sStr)? ?? ?? ?? ?End If? ?? ?? ?? ?Set ws = Nothing? ?? ???End If? ? End IfEnd SubPrivate Sub DynamicValidation(ByVal T As Range, sStr As String)? ? With T.Validation? ?? ???.Delete? ?? ???.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=sStr? ? End WithEnd Sub 第2例：Excel多级下拉菜单，数据自动填充　　背景：某工厂的Excel表，要求在B列可以自动生成产品系列的下拉菜单，然后C列的菜单内容随之变化，D列根据C列的选择自动调出对应工作表的计划量，同时在E列加一超级连接，点击后可以转到相应的工作表中。 生产计划用料汇总表 序号 产品系列 产品名称 计划量(Kg) 备注 1 1.纯净系列 　 　 　 2 1.纯净系列 珍珠纯净美白洁面乳(滋润型) 1 sheet4 3 1.纯