Question

我正在尝试在VBA中进行编码，以便在选择特定单元格时发出弹出式警报，这就像缺少必填字段一样，它需要在继续下一个单元格时显示有关缺少单元格的警报< / p>

Sub macro1(ByVal Target As Range)
If Range("F3").Value = "NWOO" Then
    If Not Intersect(Target, Range("E4:F4")) Is Nothing Then
        MsgBox "You have missed a cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
' Macro1 Macro
' Keyboard Shortcut: Ctrl+z
End If
End Sub

Answer 1

您接近，代码不错。但是，您需要在SelectionChange事件中进行编码，该事件将在工作表的范围选择更改时触发。

将子目录放置在工作表模块的下方：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("F3").Value = "NWOO" Then
    If Not Intersect(Target, Range("E4:F4")) Is Nothing Then
        MsgBox "You have missed a cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
    End If
' Keyboard Shortcut: Ctrl+z
End If

End Sub

对于键盘快捷键，使用Application.Undo可能比使用SendKeys更好。 SendKeys可能非常不可靠。

如何在选择特定单元格时发出弹出警报

1 个答案: