根据命名范围内的列过滤验证列表

如何解决根据命名范围内的列过滤验证列表

| 我正在寻找一种基于多列命名范围在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

在您的情况下，由于数据似乎或多或少是静态的，因此可以在Sheet_Activate或任何适当的激活触发器将所有有效选择从[Prod_Release]复制到LOV。 希望这可以帮助....祝你好运MikeD