返回列表 上一主題 發帖

請問版上大大，excel可以執行這種資料的暫存嗎??

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
1# 跳轉到 »
發表於 2015-1-22 09:40 | 顯示全部帖子
回復 1# 藍天麗池

要自己把舊的值存起來, 再跟新的值比

概念如下,  再加 column 和 row 的判斷, 就差不多了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue= Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    NewValue= Target.Value
    '再去計算即可
End Sub

TOP

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 2015-1-27 13:53 | 顯示全部帖子
回復 3# 藍天麗池

你的需求, 大概是這樣

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1": A1 = Target.Value
        Case "$B$1": B1 = Target.Value
    End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1": Range("A2") = A1 - Target.Value
        Case "$B$1": Range("B2") = B1 - Target.Value
    End Select
End Sub

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題