如果一个单元格超出另一个单元格，则出现消息框

Question

如果一个单元格中的值小于或大于另一个单元格，然后显示差异，那么编写VBA代码以弹出消息框的最佳方法是什么？

第N列包含总的订单数（手动输入）

R列包含总结果（生成的公式）

如果计算后的R列中的单元格小于或大于N列中的单元格，则会弹出消息框，并说Total results小于appts by＃或Total results大于appts by＃。

Answer 1

将以下例程添加到VBA项目中所需的工作表中（例如Sheet1）

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("N1") Or Target = Range("R1") Then 'Only attempt to run the below code if target is a range you care about

        If Range("R1").Value2 <> Range("N1").Value2 Then
            MsgBox "Values differ"
        End If

    End If

End Sub

Answer 2

假设您要比较两个单元格（而不是整个单元格列）：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("N1") > Range("R1") Then
        MsgBox "Oops. Results less than Input by " & Abs(Range("N1") - Range("R1"))
    End If

    If Range("N1") < Range("R1") Then
        MsgBox "Oops. Results greater than Input by " & Abs(Range("N1") - Range("R1"))
    End If

End Sub

那应该达到以下目标：

• 每当工作表更改时，将两个单元格相互比较（无论是R1的公式生成值，N1的手动输入还是工作表上的其他任何内容）
• 确定哪个更大
• 弹出一条适当的消息