aries

回復 10# Hsieh


  感謝Hsieh版主大大,真的是這個問題,更新程式碼後已經解決了.
  真是非常感謝大大的幫忙.

aries

回復 10# Hsieh


    版主大大你好,我想請教一下,同樣的表跟記錄樣式,如果我想要資料相反過來紀錄,變成歷史資料一直往後推,在(A2,B2,C2)永遠的是保持最新的,
    不知道有沒有辦法?
    因為我可能會抓最新的50筆或100筆之類的數據來做一些計算(類似內容),所以想要抓取固定欄位來計算.(現在最新的數據都是一直往後推)
    再麻煩大大解惑一下. ^^


紀錄.rar (5.73 KB)

下載次數: 11

2010-11-20 22:35

Hsieh

你試著錄製A2:C2插入儲存格
再填入就行了

aries

回復 13# Hsieh


    版主大大,請教一下,我錄製好之後,應該加入在原來程式碼中哪一個位置呢?
    我自己有試著加入執行,但是,都不是正確的結果.
    以下是錄製出來的程式碼:
    Sub Macro1()
'
' Macro1 Macro
    Range("A2:C2").Select
    Selection.Insert Shift:=xlDown
End Sub

我是新手很多不懂,真是抱歉,再麻煩大大解惑了.

Hsieh

回復 14# aries

1. Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
   
2.     Dim A As Range
   
3.      With Sheet2
   
4.      .[A2:C2].Insert xlShiftDown
   
5.      Set A = .Cells(2, 1).Resize(, 3)
   
6.      If A.Row > 100 Then i = i + 3: .Cells(1, i + 1).Resize(, 3) = [A1:C1].Value '到第100列時右移3欄
   
7.      Set A = .Cells(2, i + 1).Resize(, 3)
   
8.      If IsError([C2].Value) Then Exit Sub
   
9.        If .[C3] <> [C2] Then   '成交價有異動時的條件成立時
   
10.             A.Value = [A2:C2].Value '將Shse1的日期,時間,成交價記錄到Sheet2
    
11.             Else
    
12.             .[A2:C2].Delete xlShiftUp '未異動價格就刪除插入的
    
13.        End If
    
14.     End With
    
15. End Sub

複製代碼

aries

回復 15# Hsieh


    謝謝版主大大,已經可以在A2~C2保持是最新資料,但是現在無法到100列之後換行,變成一直在A~C往下紀錄而已.
    抱歉,再麻煩大大了,謝謝!!

Hsieh

回復 16# aries

1. Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
   
2.     Dim A As Range
   
3.      If IsError([C2].Value) Then Exit Sub
   
4.      With Sheet2
   
5.      i = .[IV1].End(xlToLeft).Column - 2
   
6.        'If .[C3] <> [C2] Then   '成交價有異動時的條件成立時
   
7.           If .Cells(65536, i).End(xlUp).Row = 100 Then i = i + 3: .Cells(1, i).Resize(, 3).Value = [A1:C1].Value
   
8.           .Cells(2, i).Resize(, 3).Insert xlShiftDown
   
9.           .Cells(2, i).Resize(, 3) = [A2:C2].Value '將Shse1的日期,時間,成交價記錄到Sheet2
   
10.        'End If
    
11.     End With
    
12. End Sub

複製代碼

aries

回復 17# Hsieh

謝謝版主大大,再打擾你了.現在可以換行了,只是換行之後最新資料也跟著換行了.
A~C變成舊資料,有辦法讓A~C都是最新的資料,而舊資料一直往A~C之後移動嗎?

另外,我執行中有出現錯誤訊息,後來發現是因為欄位不足,已經跑到IV,我就改到3000列在換行,就正常了.
抱歉,再次麻煩大大.

aries

回復 17# Hsieh

(因為前一封一開始忘了點回復,後來才編輯加入回復碼,不確定版主大大有沒有收到訊息,在寄一次)

謝謝版主大大,再打擾你了.現在可以換行了,只是換行之後最新資料也跟著換行了.
A~C變成舊資料,有辦法讓A~C都是最新的資料,而舊資料一直往A~C之後移動嗎?

另外,我執行中有出現錯誤訊息,後來發現是因為欄位不足,已經跑到IV,我就改到3000列在換行,就正常了.
抱歉,再次麻煩大大.

(我有想過,如果在滿3000列就換行,改成滿3000列就在ABC做插入動作,是不是就可以,再麻煩大大指教.)

版主大大,我有再仔細看過,發現成交價不管有沒有異動,都會一直紀錄,不知道是哪裡的問題?

aries

回復 17# Hsieh


  版主大大,我想說直接用之前的不能跳行的好了,比較正常,您不用再麻煩了.
  謝謝版主大大的指教.:)