當兩個單元格的值相等時，在受保護的Excel表單中運行彈出消息

Question

我想在受保護的Excel 2010工作表中的彈出消息和聲音效果時確認兩個單元格的值相同。我在數據驗證中試過這個公式：

IF(D4=D5,beepnow(),"") 

但它不運行。任何人都可以協助公式或VBA代碼替代嗎？謝謝！

Answer 1

下面是一個程序，只要你改變到工作表就可以運行......這可能會非常惱人......你應該明白，並且能夠修改它以適應你的需求。

Private Sub Worksheet_Activate() 
If Range("D4").Value = Range("D5").Value Then 
    Beep 
    MsgBox "Equal", vbInformation, "Check" 
End If 

End Sub 

您應該能夠將其複製並粘貼到您的工作表類中。

Answer 2

如果你去到VB代碼窗口中，選擇相關的表，你可以有以下

Private Sub Worksheet_Change(ByVal Target As Range) 

If (Range("D4:D4").Cells(1, 1)) = Range("D5:D5").Cells(1, 1)) Then 
MsgBox ("Hi") 

End If 
End Sub 

工作表激活時，選擇此表將運行代碼。

當您在此工作表中進行更改時，Worksheet_change將運行代碼。

如果你想有檢查，只有當D4/D5被修改

If Target.Address = "$D$4" Or Target.Address = "$D$5" Then 
If (Range("D4:D4").Cells(1, 1)) = Range("D5:D5").Cells(1, 1)) Then 
MsgBox ("Hi") 
End If 
End If