Excel公式,它将让我根据另一个单元格中的值显示单元格中的数据范围

时间:2015-05-06 16:06:17

标签: excel vba excel-vba excel-formula

我正在尝试创建一个表单,其中有人可以从下拉列表中选择一个值,它将根据第一个单元格值在下一个单元格中创建另一个下拉列表。下一个单元格下拉列表需要在单独的工作表上引用单元格范围,并且只显示第4-30行作为下拉列表。

这可能吗?我尝试使用间接公式进行数据验证,但我无法定义单元格范围,因为代码以数字开头。

任何建议都会有所帮助吗?

2 个答案:

答案 0 :(得分:1)

以下是使用 VBA

的一个非常简单的示例

将此事件宏放在工作表代码区域中:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A1 As Range, B1 As Range
    Set A1 = Range("A1")
    Set B1 = Range("B1")
    If Intersect(A1, Target) Is Nothing Then Exit Sub
    Select Case A1.Value
        Case "animals"
            Call SetupDV(B1, "dog,cat,bird")
        Case "days"
            Call SetupDV(B1, "monday,tuesday,wednesday")
        Case "months"
            Call SetupDV(B1, "january,february,march")
    End Select
End Sub

并将此宏放在标准模块中:

Sub MAIN()
    Cells.Validation.Delete
    Call SetupDV(Range("A1"), "animals,days,months")
End Sub

Sub SetupDV(MyCells As Range, st As String)
    With MyCells.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:=st
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
    End With
End Sub

然后运行 MAIN

每当您从单元格 A1 的下拉列表中进行选择时,单元格 B1 中的下拉菜单将相应调整:

enter image description here

答案 1 :(得分:1)

有一个解决方案,仅使用公式,没有VBA代码。

假设您的数据如下:

Dynamic validation list

  • 第一列选择列表是Catgories,在A2:A4。
  • 第二列选择列表将被选为C2:C6 |之一D2:D6 | E2:E6,选择一个类别。
  • 在G2:G3中,您可以选择一个类别。
  • H2:H3将根据G中选择的类别分别显示列表。

H2:H3的验证列表来源将使用以下公式定义:

=CHOOSE(MATCH(G2,$C$1:$E$1,0),$C$2:$C$6,$D$2:$D$6,$E$2:$E$6)

选择H2:H3,转到数据验证,选择列表并将此公式放入源中。 (范围参考将自动更新为H3。)

公式:

MATCH部分为C1:E1中的类别名称返回1,2或3。 CHOOSE根据函数中提供的顺序分别返回范围C,D或E.

说明:

通过简单地在验证列表公式中声明工作表名称Sheet2!C2:C6,范围可以引用另一个工作表中的单元格。在早期版本的Excel中,您需要为这些外部范围命名,以使其在验证列表中工作。