2012-11-01 42 views

回答

0
  1. 將A1的值存儲在A2中。
  2. 執行響應A1中的更改​​的事件。
  3. 當事件被觸發時,比較A1和A2,如果A1更小,則存儲新值。

這個假設已經有一個在A2的值:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$A$1" Then 
     Dim a2val As Variant 
     Dim a1val As Variant 
     a2val = Range("$A$2").Value2 
     a1val = Range("$A$1").Value2 
     If a1val < a2val Then 
      Range("$A$2").Value2 = a1val 
     End If 
    End If 
End Sub 
+0

對不起,你的代碼不起作用 –

+0

@RajuKumar你把代碼放在正確的Worksheet對象中嗎?我不喜歡這樣說,但代碼適用於我。 –

相關問題