12
返回列表 上一主題 發帖

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

aries

帖子
18 
主題
1 
精華
0 
積分
39 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-3 
最後登錄
2016-7-2 
11# 跳轉到 »
發表於 2010-11-18 10:06 | 只看該作者
回復 10# Hsieh


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

TOP

aries

帖子
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)

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
13#
發表於 2010-11-20 22:44 | 只看該作者
你試著錄製A2:C2插入儲存格
再填入就行了
學海無涯_不恥下問

TOP

aries

帖子
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

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

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
15#
發表於 2010-11-22 21:03 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

aries

帖子
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往下紀錄而已.
    抱歉,再麻煩大大了,謝謝!!

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
17#
發表於 2010-11-23 11:21 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

aries

帖子
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列在換行,就正常了.
抱歉,再次麻煩大大.

TOP

aries

帖子
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做插入動作,是不是就可以,再麻煩大大指教.)

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

TOP

aries

帖子
18 
主題
1 
精華
0 
積分
39 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-3 
最後登錄
2016-7-2 
20#
發表於 2010-12-7 03:45 | 只看該作者
回復 17# Hsieh


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

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
12
返回列表 上一主題