Question

如果单元格中的输入不是数字且文本＆＃34;不相关＆＃34;，则以下代码为我提供了一个消息框。因此，如果我插入"Bla bla"，则会收到消息"Please insert a number"。

当我按下OK按钮时，我可以插入一个数字，但在此之前，我希望单元格在我按下OK按钮后立即返回到先前接受的值。

If Target.Address = Range("x").Address Then
    If Not IsNumeric(Range("x")) And InStr(1, (Range("x").Value), "Not relevant") = 0 Then
    MsgBox "Please enter a number", vbCritical, "Distance between point loads, x-direction"
    End If
End If

提前致谢！

Answer 1

尝试撤消上一个条目，

If Target.Address = Range("x").Address Then
    If Not IsNumeric(target) And InStr(1, (Range("x").Value), "Not relevant") = 0 Then
        MsgBox "Please enter a number", vbCritical, "Distance between point loads, x-direction"
        application.undo
    End If
End If

在msgbox上确定返回上一个值

1 个答案: