帖子: 85
主題: 26
精華: 0
積分: 65
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2015-7-15
最後登錄: 2018-9-18

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-7-27 20:13 | 只看該作者

[發問] EXCEL連結DDE記錄問題

問一下各位前輩們,有找到每分鐘紀錄股票的開高收低價位VBA,但有一個問題想了解,有可能在一個工作表裡把多檔股票結DDE然後每個股票開一工作表同時個別記錄每一分鐘開高低收價嗎?

樓主熱帖

daniel5168

中學生 Rank: 2

帖子: 85
主題: 26
精華: 0
積分: 65
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2015-7-15
最後登錄: 2018-9-18

5^#

發表於 2015-7-28 22:35 | 只看該作者

回復 4# GBKEE

正在思考如何套入中,由於沒有程式設計的基礎,正在一行行的學習,如果我想不透又GOOGLE不出來答案可能又要請教您了,感謝您的熱心解答

TOP

GBKEE

超級版主 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兔年全勤獎章

4^#

發表於 2015-7-28 13:03 | 只看該作者

本帖最後由 GBKEE 於 2015-7-28 13:05 編輯

回復 3# daniel5168
試試看

Sub 自動記錄()
Dim E As Variant, Rng As Range, t As Date, S As Integer, Shts()
Shts = Array("Sheet1", "商品1", "商品2", "商品3") '工作表在活頁簿的名稱
If uMode = 0 Then Exit Sub
For Each E In Shts
With Sheets(E)
' .Activate 成為作用中的工作表
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
.[O8] = "已過收盤"
uMode = 0
GoTo For_Next 'Exit Sub
End If
.Range("B8") = Time '當前時間（時間碼表）
'----------------------------------------------------------
Set Rng = .Range("A65536").End(xlUp).Offset(1)
.Range("A" & Rng.Row & ":N" & Rng.Row).Value = .Range("A8:N8").Value
'------------------------------------------------
ActiveWindow.ScrollRow = IIf(Rng.Row > 20, Rng.Row - 18, 1) '讓最新資料保持在可見視窗中
Beep
End With
For_Next:
Next
'------------------------------------------------
'下一個間隔的分鐘
S = 1 '每１分鐘記錄，５分鐘則改為5
t = Int(Application.Text(Time, "[m]") / S) + 1 '(總分鐘數/間隔的分鐘數) + 1
t = DateAdd("N", S * t, 0) '從0分鐘後的 T * 間隔的分鐘數
ThisWorkbook.Save '存檔
Application.OnTime t, "自動記錄"
End Sub

複製代碼

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

TOP

daniel5168

中學生 Rank: 2

帖子: 85
主題: 26
精華: 0
積分: 65
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2015-7-15
最後登錄: 2018-9-18

3^#

發表於 2015-7-28 08:28 | 只看該作者

本帖最後由 daniel5168 於 2015-7-28 08:29 編輯

回復 2# c_c_lai

ublic uMode&, StartTime, EndTime
Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, xRow&

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
StartTime = "08:44:50" '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "13:45:10" '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "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
Sht1.Range("B8") = Time '當前時間（時間碼表）
'----------------------------------------------------------
'每１分鐘記錄，５分鐘則改為 Mod 5
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
xRow = Sht1.Range("A65536").End(xlUp).Row + 1
If xRow < 9 Then xRow = 9
Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value
'------------------------------------------------
If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中
End If
ThisWorkbook.Save '存檔
Beep
End If
Application.OnTime Now + TimeValue("00:00:01"), "自動記錄" '每一秒遞迴一次
End Sub

Sub 開始執行()
If uMode = 1 Then Exit Sub
Call 共用參照
uMode = 1
Sht1.[O8] = "執行中"
Call 自動記錄
End Sub

Sub 停止執行()
uMode = 0
Call 共用參照
Sht1.[O8] = "STOP"
End Sub

Sub 清除記錄資料()
Beep
If MsgBox("※確定要清除〔Sheet1〕的記錄嗎？　", 4 + 32 + 256) = vbNo Then Exit Sub
Call 共用參照
Sht1.Rows("9:65536").ClearContents
If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
Beep
End Sub

這個是我找到的VBA 每一分鐘記錄一次
我該怎麼改成我想要的把商品同時分成數頁工作表同時分別每分鐘記錄一次

20120531a02(DDE每1分記錄).rar (25.74 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2015-7-28 07:10 | 只看該作者

問一下各位前輩們,有找到每分鐘紀錄股票的開高收低價位VBA,但有一個問題想了解,有可能在一個工作表裡把多檔 ...
daniel5168 發表於 2015-7-27 20:13

只要你能把相關股票的開高收低價位匯入到工作表裡，之後你便能如願執行了。

TOP