Question

当例如单元格A1为“是”且单元格A2留空时，是否有人知道如何获取msgbox弹出窗口？我想申请所有A栏。所以如果A3是“是”而A4是空白，那么另一个msgbox。所有奇数行都是有/无下拉的地方，偶数行也是可以有注释的地方。谢谢！

Answer 1

尝试将此宏放入工作表模块中。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Left(Target.Address, 3) = "$A$" And UCase(Target) = "YES" And Range("B" & Target.Row) = "" Then
        Range("B" & Target.Row).Interior.ColorIndex = 3
    End If
    If Left(Target.Address, 3) = "$B$" And UCase(Range("A" & Target.Row)) = "YES" And Target <> "" Then
        Range("B" & Target.Row).Interior.ColorIndex = 0
    End If
End Sub

当单元格A1为“是”且单元格A2保留为空时，弹出消息框警告

1 个答案: