麻辣家族討論版版 » Excel程式區 » 請教要記錄1分K的開高低收,要如何更改?

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

[發問] 請教要記錄1分K的開高低收,要如何更改?

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 8
點名: 0
作業系統: WINXP/WIN7
軟體版本: OFFICE XP/2010
閱讀權限: 10
性別: 男
註冊時間: 2013-12-9
最後登錄: 2014-7-1

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-5-25 02:42 | 只看該作者

[發問] 請教要記錄1分K的開高低收,要如何更改?

本帖最後由啊尼於 2014-5-25 02:44 編輯

這是小弟更改的,但有紀錄的數值除了開盤點是可能對的,其他都有問題
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then

'填開高低收為即時行情
            If Range("C8") <> "" Or Range("C8").Value < Range("C5").Value Then
                  Range("C8").Value = Range("C5").Value
                  End If
   '填最高價
            If Range("D8").Value = "" Or Range("C8").Value > Range("D8").Value Then
                  Range("D8").Value = Range("C5").Value
               End If
   '填最低價
            If Range("E8").Value = "" Or Range("C8").Value < Range("D8").Value Then
                  Range("E8").Value = Range("C5").Value
                  End If
'填收盤價,就是即時行情
               Range("F8").Value = Range("C5").Value
End If

用的是E01的DDE,目前以道瓊測試!!

TEST 1分K.rar (69.51 KB)

收藏

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2015-3-16
最後登錄: 2020-11-2

14^#

發表於 2015-9-9 00:42 | 只看該作者

非常感謝准提部林大大
可以正常使用了
謝謝~

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

13^#

發表於 2015-9-3 18:07 | 只看該作者

回復 12# gery

試試看:
If Time > TimeValue(EndTime) And Time < TimeValue(StartTime) Then '收盤時間以後不執行
　Sht1.[O8] = "已過收盤"
　uMode = 0
　Exit Sub
End If

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2015-3-16
最後登錄: 2020-11-2

12^#

發表於 2015-9-3 16:38 | 只看該作者

回復 11# 准提部林

想再請教大大我是看國際期貨所以想改他開收盤時間假設我想開盤是下午6點收盤是凌晨2點不知道該怎麼改呢?謝謝:D

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("X2")
StartTime = "18:00:00" '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "02:00:00" '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub

Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
Sht1.[O8] = "執行中"
uMode = 0
Exit Sub
End If

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

11^#

發表於 2015-9-2 18:38 | 只看該作者

回復 9# gery

EXCEL．股票．DDE傳輸資料．固定時間自動記錄
http://blog.xuite.net/smile1000mile/blog/95125899

有些範例檔下載連結已失效, 可多試幾個(注意:下載檔檔名是否相同)

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-26

10^#

發表於 2015-9-2 18:18 | 只看該作者

回復 9# gery

http://www.FunP.Net/388336

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2015-3-16
最後登錄: 2020-11-2

9^#

發表於 2015-9-2 12:22 | 只看該作者

回復 7# f3202

f32022大不好意思 ~我只是小學生想要更了解這個一分鐘自動記錄是怎麼達到的,還不能下載附件檔!!不知道能不能截個圖讓我研究研究呢?拜託拜託!!

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 8
點名: 0
作業系統: WINXP/WIN7
軟體版本: OFFICE XP/2010
閱讀權限: 10
性別: 男
註冊時間: 2013-12-9
最後登錄: 2014-7-1

8^#

發表於 2014-5-27 23:25 | 只看該作者

感謝大大的回應
目前以道瓊測試開高低收抓的算蠻準的
但是好像時間會差一分看不出來程式在哪多了一分

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-26

7^#

發表於 2014-5-27 08:01 | 只看該作者

Public uMode&, StartTime, EndTime
Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, xRow&
Dim o As Single
Dim h As Single
Dim l As Single
Dim c As Single
Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
StartTime = "02:34:00" '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "23:59:50" '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub
Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
Sht1.[J8] = "已過收盤"
uMode = 0
Exit Sub
End If
Sht1.Range("B8") = Time '當前時間（時間碼表）
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then '每１分鐘記錄，５分鐘則改為 Mod 5
xRow = Sht1.Range("A65536").End(xlUp).Row + 1
If xRow < 9 Then xRow = 9
Sht1.Range("A" & xRow & ":I" & xRow).Value = Sht1.Range("A8:I8").Value
o = 0: h = 0: l = 0: c = 0
If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
ActiveWindow.ScrollRow = xRow - 10 '讓最新資料保持在可見視窗中
End If
Beep
GoTo xxx
Else
c = Sheets("sheet1").Cells(5, 3)
If c > h Then h = c
If c < l Then l = c
If o = 0 Then o = Sheets("sheet1").Cells(5, 3) Else o = o
If l = 0 Then l = Sheets("sheet1").Cells(5, 3) Else l = l
Range("C8").Value = o
Range("d8").Value = h '填最高價
Range("e8").Value = l '填最低價
Range("f8").Value = c '填收盤價
xxx:
ThisWorkbook.Save '存檔
End If
Application.OnTime Now + TimeValue("00:00:01"), "自動記錄"
End Sub

複製代碼

試看看

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 8
點名: 0
作業系統: WINXP/WIN7
軟體版本: OFFICE XP/2010
閱讀權限: 10
性別: 男
註冊時間: 2013-12-9
最後登錄: 2014-7-1

6^#

發表於 2014-5-26 23:44 | 只看該作者

高低點還是抓得不準

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

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