公共舊價值
私有子工作表_Calculate（）
第二個VBA是
私有子工作表_Change（作為範圍的目標值）
如果目標。地址& lt& gt“$E$1“然後退出Sub
如果old value =【e 1】則退出Sub
舊值=【e 1】
【H1】。挑選
選擇。Insert Shift:=xlDown，copy origin:= xlformatfroleftorabove
單元格（1，“h“）=【e 1】
“End Sub”的功能是將E1的更改內容保存到H列，
末端接頭
私有子工作表_ selection change（ByVal Target As Range）
如果目標。地址=“$ A $ 3“然後
目標。價值=目標。值+ 1
如果…就會結束
這個的作用是點擊A3壹次，A3會自動加1。
私有子工作表_Activate（）
舊值=【e 1】
末端接頭