我正在尝试创建一个表单,其中有人可以从下拉列表中选择一个值,它将根据第一个单元格值在下一个单元格中创建另一个下拉列表。下一个单元格下拉列表需要在单独的工作表上引用单元格范围,并且只显示第4-30行作为下拉列表。
这可能吗?我尝试使用间接公式进行数据验证,但我无法定义单元格范围,因为代码以数字开头。
任何建议都会有所帮助吗?
答案 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 中的下拉菜单将相应调整:
答案 1 :(得分:1)
有一个解决方案,仅使用公式,没有VBA代码。
假设您的数据如下:
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中,您需要为这些外部范围命名,以使其在验证列表中工作。