c_c_lai

¦^´_ 2# kimbal
½Ð±Ð±z¡G
¬°¤°»ò§âµ{¦¡½X©ñ¶iTHISWORKBOOK®É¡A¦b¦U¤u§@ªí³æ¤ºÄ²µo Change ®É¡A
recalc »Ý«ü©w ThisWorkbook. ¦p¹Ï¥Ü

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not (Intersect(Target, Columns(1)) Is Nothing) Then
   
3.         Application.EnableEvents = False
   
4.         Call ThisWorkbook.recalc
   
5.         Application.EnableEvents = True
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

¦Ó¦pªG©ñ¸m©ó Module1 ¤º«h¤£¶·«ü©w

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not (Intersect(Target, Columns(1)) Is Nothing) Then
   
3.         Application.EnableEvents = False
   
4.         Call recalc
   
5.         Application.EnableEvents = True
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

ÁÂÁ«ü±Ð¡I