excel - 拒绝进入取决于值(value)

Question

我想问一下，如果在这个 Range("D2:D500") 中输入了“Denied”这个词，那么它所在的行之后的值不能只在 E 列中输入。
只要“拒绝”字词进入 D 列，然后 仅低于 E 列的单元格无权输入任何值，否则用户只能在 A、B、C 和 D 列输入值。如果用户在 E 列中输入值，则显示消息“您不允许”并清除该单元格的内容。
对于同一行，我使用的以下代码如下:
' 此代码用于 D 列，用于清除同一行中的数据

If rngTarg Is Nothing Then GoTo ExitHandler
For Each rngToChk In rngTarg
    Select Case rngToChk.Value
    Case "Denied"
        rngToChk.Offset(0, -1).ClearContents
        rngToChk.Offset(0, -2).ClearContents
        rngToChk.Offset(0, 1).ClearContents
        rngToChk.Offset(0, 2).ClearContents
    End Select
Next rngToChk


' this code for Column E which will help to user that it won’t have access to enter data in the same row

For Each cell In rngTarg
    If cell.Offset(0, -1) = "Denied" Then
    cell.Select
    MsgBox Excel.Application.UserName & ", As you enter <" & cell.Offset(0, -1) & "> in Column D" _
        & vbNewLine & "That is why you cannot enter Value.", vbokOnly + vbInformation, "Information"

        cell.ClearContents
        cell.Offset(1, 0).Select
        GoTo ExitHandler
    End If
Next cell

我希望它有助于理解我的查询。
感谢和问候
穆尼布

Answer 1

无需使用 VBA。您可以使用 Data Validation

选择范围E2:E LastCell .在 Excel 2007+ 中，它是 E2:E1048576 .对于旧版本，它是 E2:E65536 .只需选择单元格E2然后按 Shift + End + 向下箭头

点击Data选项卡，然后单击 Data Validation

选择 Custom在 Formula类型 =COUNTIF($D$1:$D1,"Denied")=0如下所示

点击Ok我们完成了

在行动