根据vba中的相邻单元格值更改下拉列表项

Question

我有一个 Excel 表格，其中有一个包含两列和可变行数的表格。 这些行中的一些将被填充，一些为空。 B 列包含一些值，A 列在每个单元格中都有一个下拉列表。

我希望如果 B 列单元格有一些值，那么相邻的 A 列单元格应该在下拉列表中显示 3 个选项 - 修改、添加、删除，当 B 列单元格为空时，相邻的 A 列单元格应该只显示一个选项它的下拉列表 - 添加。 可以使用 VBA 或 excel 公式完成吗？

请不要将它与根据下拉选择更改单元格值混淆。 恰恰相反。

Answer 1

没有VBA的解决方案

您可以使用 Excel 的数据验证工具执行此操作：

首先，您需要将所有下拉选项（添加、修改、删除）添加到一个范围中。 这可以在同一个工作表中或在任何其他工作表中。 对于我的示例，我将它们放入同一工作表的F1:F3范围内。

然后选择整个 A 列并从功能区菜单 › 数据 › 数据工具 › 数据验证添加数据验证：

在Settings选项卡上的Allow下，选择List并在Source 中使用以下公式：

=IF(B1<>"",$F$1:$F$3,$F$1)

请注意，第一个范围$F$1:$F$3指向 ADD、MODIFY、DELETE，第二个范围$F$1仅指向 ADD！

Answer 2

VBA 解决方案

以下将实现您的期望，它将遍历您的 B 列，如果为空，它将在 A 列上添加一个下拉列表作为数据验证，值为“ADD”，如果不为空，它将添加列表“MODIFY”， “添加”、“删除”：

Sub foo()
Dim ws As Worksheet: Set ws = Worksheets("Sheet1")
'declare and set the worksheet you are using, amend as required
LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
'get the last row with data on Column B

For i = 2 To LastRow 'loop from Row 2 to Last
    If ws.Cells(i, "B").Value <> "" Then
        With ws.Cells(i, "A").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="MODIFY,ADD,DELETE"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With
    Else
        With ws.Cells(i, "A").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="ADD"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With
    End If
Next i
End Sub

Answer 3

如下命名您的列表，

之后使用此公式创建数据验证

= 间接（IF（$C2<>“”，“全部”，“一个”））

您将根据您的要求进行下拉