麻辣家族討論版版 » Excel程式區 » 關於變動複寫的問題，請教版上大大

返回列表下一主題上一主題發帖

關於變動複寫的問題，請教版上大大

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-10-4 18:20 | 只看該作者

關於變動複寫的問題，請教版上大大

變動複寫.rar (7.84 KB)
請教版上大大，附件裡面有股價，如果我要寫一個當指定條件變動將目標格複寫的程式要如何寫呢??
例如：G2為台積電的單量，如果條件設定為"時間不同且單量大於50"，就將F2-IJ寫到M2-Q2，下次如果再有符合條件的變動就繼續將資料複寫到M2-Q2...以此類推，因為每個個股的單量變動時間不一樣，所以可能需要個別判定，可以請教版上大大此程式要如何寫嗎??

樓主熱帖

收藏

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

2^#

發表於 2016-10-5 15:26 | 只看該作者

回復 1# 藍天麗池

G大，時間變動不一定，資料由DDE傳送進來
小弟的想法是先比對時間例如8:45:03，下一次時間在8:45:20秒符合單量大於50就寫入，這樣寫可以嗎??

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2016-10-6 08:44 | 只看該作者

回復 2# 藍天麗池

附檔為XLSX沒有巨集的活頁簿,需存為XLSM為有巨集的活頁簿

試試看

Option Explicit
Private Sub Worksheet_Calculate() '工作表的重算事件,為工作表的預設事件
Dim i As Integer
If Time >= #9:00:00 AM# And Time <= #1:30:00 PM# Then '股市交易時間內
i = 2
'*******************************************
'你附檔沒有DEE公式, E到L欄應為DEE公式,才可用到此工作表的重算事件
'[F:U] : F到U欄 , M欄為總量的DEE( 你附檔沒有,請加上做為不同時間點的判斷 )
'*******************************************
Do While [F:U].Rows(i).Cells(1) > 0
With [F:U].Rows(i)
If .Cells(2) > 50 And .Cells(8) > 0 Then '.Cells(8) > 0 總量:單量的加總
If .Cells(16) = 0 Or .Cells(8) > .Cells(16) Then
'.Cells(16) = 0 : '總量尚未紀錄
'.Cells(8) >.Cells(16) :總量 > 之前所記錄的總量
.Cells(9).Resize(, 8) = .Cells(1).Resize(, 8).Value
End If
End If
End With
i = i + 1
Loop
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2016-10-6 19:54 | 只看該作者

回復 3# GBKEE

G大感謝，我試試看

靜思自在 : 為自己找藉口的人永遠不會進步。

返回列表下一主題上一主題