返回列表 上一主題 發帖

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

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
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
7#
發表於 2012-12-18 19:56 | 只看該作者
回復 6# Brandy
我是不曉得券商RTD是怎麼工作的
本來想回答:
If Target.Row = 2 Or Target.Row = 3 Then
但是其實這還要看你變動的儲存格是怎麼給值的 , 以及你觸發的需求
如 [A1:C2] 一個一個Cell給值跟範圍給值(如[A1:C2]=Array(1, 2, 3, 4, 5, 6)) ,
它觸發Worksheet_Change的次數不一樣 ,
當然Target也不一樣 (可能單格或多格)
比較保守的方法是利用Intersect判斷比較不會漏掉 , 如:
If Not Application.Intersect(Range("2:3"), Target) Is Nothing Then
但還是老話 , 要看實際使用時的觸發需求

TOP

Brandy

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

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
6#
發表於 2012-12-18 17:02 | 只看該作者
回復 3# stillfish00


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-12-18 16:48 | 只看該作者
回復 4# Brandy
  1. If Target.Row = 2 Then  '修改看看
複製代碼

TOP

Brandy

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

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
4#
發表於 2012-12-18 16:43 | 只看該作者
回復 2# GBKEE


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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2012-12-18 13:46 | 只看該作者
回復 1# Brandy
這行錯了
Sheets("History").Rows("2:2").PasteSpecial PasteValues
應是
Sheets("History").Rows("2:2").PasteSpecial xlPasteValues

或改成這樣
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address(0, 0) = "A2" Then     '判斷當A2有變動時
  3.         Sheets("Monitor").Rows("2:2").Copy
  4.         Sheets("History").Rows("2:2").Insert Shift:=xlDown
  5.         Application.CutCopyMode = False
  6.     End If
  7. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-12-18 13:31 | 只看該作者
回復 1# Brandy
工作表1模組的程式碼  :需將這程式碼複製到工作表1(Monitor)模組中
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim A As Integer
  3.     If Target.Address(0, 0) = "A2" Then
  4.         With Sheets("History")
  5.             '*** 則在History頁裡出現 456***
  6.             '如: 從不含.[B2] 開始
  7.             A = .Cells(.Rows.Count, "B").End(xlUp).Row
  8.             A = IIf(A <= 2, 3, A + 1)
  9.              .Cells(A, "B") = Target
  10.         End With
  11.     End If
  12. End Sub
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題