If-Then 语句循环

Question

我已经创建了一个 If-Then 语句代码，如果有重复项，它将打开一个消息框。

我的问题是，当有重复时，我无法退出消息框。就像在循环中一样。

我这里的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("IELTS Passed").Range("O1").Value = "True" Then
    MsgBox "This Applicant already exist!"
End If

顺便说一下，Range("O1") 包含的公式将在 sheet "IELTS Passed".

中查找任何重复项

如有任何帮助，我们将不胜感激！

Answer 1

好吧，一个不错的选择是运行 If-Then 部分仅当细胞中发生变化时对这个 O1 细胞有修改作用.

为此使用目标参数：

  If Not Application.Intersect(Target, RangeWhichAffectsThisCell) is Nothing Then

‘Your code comes here

End if

另一种方式：

在您的代码末尾，删除导致 MessageBox 弹出的申请人条目（无论其单元格在哪里）。我假设这会将 O1 单元格设置为“False”。

但是，我们不知道所有的细节，所以我们不能给你一个 100% 准确的答案。

If-Then 语句循环

If-Then statement Looping

vba

messagebox