返回列表 上一主題 發帖

[發問] 請問如何將變動的數值在另一頁紀錄?(請幫忙修改，謝謝)

Brandy

帖子
34 
主題
7 
精華
0 
積分
71 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2012-11-12 
最後登錄
2022-5-2 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-18 11:58 | 顯示全部帖子

[發問] 請問如何將變動的數值在另一頁紀錄?(請幫忙修改，謝謝)

我想在Monitor頁的第二列數值改變時，在History頁貼上，並且一直往下紀錄，如同券商軟體的分時明細

如果我在Monitor頁裡的A2打123，然後再改成456，
則在History頁裡出現 456
                                          123
請問這一段要怎麼改
123.rar (11.07 KB)

Private Sub Worksheet_Change(ByVal Target As Range)
    ThisWorkbook.Sheets("History").Rows("2:2").Insert Shift:=xlDown
    Sheets("Monitor").Rows("2:2").Copy
    Sheets("History").Rows("2:2").PasteSpecial PasteValues
    Application.CutCopyMode = False
End Sub
收藏 分享

Brandy

帖子
34 
主題
7 
精華
0 
積分
71 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2012-11-12 
最後登錄
2022-5-2 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
2#
發表於 2012-12-18 16:43 | 顯示全部帖子
回復 2# GBKEE


    謝謝您的回覆，請問如果是整列之中只要有一格有變化要怎麼改呢?
   還有我在儲存格貼上券商的rtd如下
=RTD("money.excel",,"*SYSTEM","ServerTime")
我知道儲存格沒變化，所以不會有效果
那怎麼讓它也能一樣複製貼上在新的一列
謝謝

TOP

Brandy

帖子
34 
主題
7 
精華
0 
積分
71 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2012-11-12 
最後登錄
2022-5-2 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
3#
發表於 2012-12-18 17:02 | 顯示全部帖子
回復 3# stillfish00


    謝謝您的回覆，請問如果是第二列或是第三列的任何一個儲存格有變化的話，要怎麼改，謝謝

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題