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

Brandy

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

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

123
下載次數: 7

2012-12-18 11:57

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

回復 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
但還是老話 , 要看實際使用時的觸發需求

Brandy

回復 3# stillfish00


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

GBKEE

回復 4# Brandy

1. If Target.Row = 2 Then  '修改看看

複製代碼

Brandy

回復 2# GBKEE


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

stillfish00

回復 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

複製代碼

GBKEE

回復 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

複製代碼