问题描述
|
我正在寻找一种基于多列命名范围在Excel中过滤列表验证的方法。
我在一张纸上有一个产品发布列表，包含在具有以下各列的命名范围内：名称，类型，状态。在另一张纸上，我希望用户能够从仅包含“名称”的验证列表中进行选择。
问题3741060在这里涵盖如何使验证列表仅包含“名称”列。但是，我还需要过滤，以便用户无法选择状态为“已完成”的发行版。 [状态列仅允许\'Planned \'，\'Allocation \'或\'Completed \'。]
理想情况下，我还希望根据另一次验证仅动态显示\'Planned \'或\'Allocated \'版本-但我认为，如果我可以完全过滤列表，那么我应该可以完成其余工作。
顺便说一句-我被迫为此使用Excel 2003，尽管我认为这不是主要因素。
解决方法
我用
隐藏的工作表中有一个额外范围的LOV（用于值列表），我用用户可以选择的当前条件填充（在我的情况下，填充工作表时，行与行之间会有所不同）
主表中的所有单元格都针对该范围LOV进行了验证
每个光标从可能选择的原始范围移出后，Selection_Change（）触发器将加载LOV
这就是我重新生成LOV的方式（本质上，用户已经在字符串CtyCd中在此处传递的另一个单元中选择了国家/地区代码，现在该工作表已准备好为该国家/地区提供一些名为GINI的可能选项的选择...所以可能类似于您的需求）
Sub LoadL2LOV(CtyCd As String,LOVL2 As Range)
\'
\' CtyCd is a selection criterium for the original list in range GINI
\' LOVL2 is the target range containing the current list of values
\' all cells in sheet have a validation against range LOV defined
\'
Dim GINI As Range,Idx As Long,Jdx As Long,LName As Name,Adr As String
\' clear current PoP_L2
Set LName = ActiveWorkbook.Names(LOVL2.Name.Name)
Set GINI = Worksheets(\"GINI Availability\").Range(\"GINI\")
LOVL2.ClearContents
\' set new LOV for PoP_L2
If CtyCd <> \"\" Then
Idx = 2
Jdx = 1
\' find 1st occurence of CtyCd in GINI
Do While GINI(Idx,4) <> CtyCd And GINI(Idx,4) <> \"\"
Idx = Idx + 1
Loop
\' GINI is sorted,just read until the end of selected CtyCd
Do While GINI(Idx,4) = CtyCd
LOVL2(Jdx,1) = GINI(Idx,1) & \"-\" & GINI(Idx,2) & \"-\" & GINI(Idx,3)
Idx = Idx + 1
Jdx = Jdx + 1
Loop
End If
\' redefine LOV name to contain all current valid choices
LOVL2.CurrentRegion.Name = LOVL2.Name.Name
End Sub