­ã´£³¡ªL

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Call RecordPrice
Application.EnableEvents = True
End Sub

¦³¤H¶i±Ð«Ç®É
¥þÅé°_¥ß
·q§
¥þÅ駤¤U
================================
Private Sub Worksheet_Calculate()
If ±ø¥ó§PÂ_ = True Then
¡@Application.EnableEvents = False
¡@Call RecordPrice
¡@Application.EnableEvents = True
End If
¦³¤H¶i±Ð«Ç®É
¦pªG¶i¨Óªº¬O¦Ñ®v
¥þÅé°_¥ß
·q§
¥þÅ駤¤U
End Sub

°²³]¶i¨Óªº¦³¢°¢¯¢¯­Ó¤H¦¸¡A¦Ó¦Ñ®v¥u¦³¢´¤H¡A¸Õ·Q¬Ý¬Ý¨âºØª¬ªp®t§O¦h¤Ö¡H¡H¡H¡@
¡@
¡@