[發問] 如何將DEE連結到Excel的資料,依照想要的時間記錄下來.

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

20^#

發表於 2010-12-7 03:45 | 只看該作者

回復 17# Hsieh

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

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

19^#

發表於 2010-11-27 14:19 | 只看該作者

本帖最後由 aries 於 2010-11-29 09:34 編輯

回復 17# Hsieh

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

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

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

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

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

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

18^#

發表於 2010-11-24 09:25 | 只看該作者

本帖最後由 aries 於 2010-11-26 10:25 編輯

回復 17# Hsieh

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2010-11-23 11:21 | 只看該作者

回復 16# aries

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

複製代碼

學海無涯_不恥下問

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

16^#

發表於 2010-11-23 09:20 | 只看該作者

回復 15# Hsieh

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2010-11-22 21:03 | 只看該作者

回復 14# aries

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

複製代碼

學海無涯_不恥下問

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

14^#

發表於 2010-11-22 16:32 | 只看該作者

回復 13# Hsieh

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2010-11-20 22:44 | 只看該作者

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

學海無涯_不恥下問

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

12^#

發表於 2010-11-20 22:35 | 只看該作者

回復 10# Hsieh

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

紀錄.rar (5.73 KB)