劵商DDE傳Excel 每分自動記錄數據 - Excel程式區

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

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

21^# 跳轉到 »

發表於 2011-7-11 20:14 | 只看該作者

回復 20# andylin
謝謝你的圖檔隔行如隔山,我完全看不懂.哈....

若明日8:45am開盤前我開起此excel檔後我是否需要自己手動將excel欄位裡今日的數據全delete掉?
答案在這裡
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub    '按 Yes 會依序清除昨日資料按 No 離開程式
Sheets("1分K").UsedRange.Offset(1, 1) = ""    ' 清除昨日資料delete掉
Sheets("5分K").UsedRange.Offset(1, 1) = ""    '  清除昨日資料 delete掉
Sheets("15分K").UsedRange.Offset(1, 1) = ""    '  清除昨日資料delete掉

TOP

andylin

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

22^#

發表於 2011-7-14 00:33 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:51 編輯

回復 21# GBKEE

大大真的謝謝您 Orz
真的非常感謝您
讓小弟功力提昇至另一層級
真的感恩
再三感謝您 Orz

TOP

andylin

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

23^#

發表於 2011-7-15 00:52 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:53 編輯

回復 21# GBKEE

大大您好
對不起又來麻煩您 Orz

我將前一個大大所傳授的Excel VBA內容
努力理解後試著依大大的程式碼語法嘗試編寫國外商品
但我寫出來的沒回應一.一"'
不知我程式碼那裡有誤
還請大大提攜指導 Orz

不知要怎樣寫
希望VBA能自動計算帶出的寫法
還有勞大大您撥伔指導 Orz

給您添麻煩了 Orz
真的感謝您
感恩 Orz

for GBKEE大_元大Excel VBA_國外期_20110714_test 01.rar (18.28 KB)

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兔年全勤獎章

24^#

發表於 2011-7-15 09:11 | 只看該作者

本帖最後由 GBKEE 於 2011-7-16 13:43 編輯

回復 23# andylin
依樣畫葫蘆試試看

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除昨日資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
Application.OnTime #9:00:00 AM#, "ThisWorkbook.資料輸入"
'**** 09:00:00時間執行程式 ->資料輸入
End Sub
Sub 資料輸入()
Dim Ar(1 To 15) 'Ar陣列 -> 存入你要的數據
Ar(1) = Time
Ar(2) = [Table!B2]
Ar(3) = [Table!C2]
Ar(4) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")" ' ** 公式
Ar(5) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
'Ar(6) 空白
Ar(7) = [Table!E2]
Ar(8) = [Table!F2]
Ar(9) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
Ar(10) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
'Ar(11) 空白
Ar(12) = [Table!H2]
Ar(13) = [Table!I2]
Ar(14) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
Ar(15) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
If Minute(Time) Mod 1 = 0 Then Sheets("1分K").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每分鐘
If Minute(Time) Mod 5 = 0 Then Sheets("5分K").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每5分鐘
If Minute(Time) Mod 15 = 0 Then Sheets("15分K").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1 =0 每15分鐘
If Time <= #1:30:00 PM# Then Application.OnTime TimeValue(Format(Time, "hh:MM:00")) + #12:01:00 AM#, "ThisWorkbook.資料輸入"
' *** #1:30:00 PM# 之前時間執行程式 ->資料輸入
End Sub

複製代碼

請看這裡的PS

TOP

andylin

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

25^#

發表於 2011-7-16 13:19 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:54 編輯

大大謝謝您 Orz
真的感謝您
感恩 Orz

TOP

andylin

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

26^#

發表於 2011-7-16 23:56 | 只看該作者

回復 24# GBKEE

大大不好意思
小弟中文不好英文不行
誤解了還請見諒
我瞭解ps的意思了
今後還請各位先進賢拜不吝指導

感恩感恩 Orz Orz

TOP

andylin

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

27^#

發表於 2011-7-21 02:04 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:55 編輯

回復 24# GBKEE

大大您好
對不起
不才小弟又來麻煩您

這次想把附檔"table"裡的三個欄位: B2  C2  D2的數值
希望能依1分/5分/15分分別定時定存入 1分/5分/15分 sheets裡list出數據來
不曉得您是否能再次指導小弟一番 Orz  Orz

有勞您撥伔指導
小弟感激不盡 Orz
若有待慢您之處還請您見諒
拜託您 Orz  Orz

20110721_for GBKEE大大.rar (15.17 KB)

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兔年全勤獎章

28^#

發表於 2011-7-21 07:33 | 只看該作者

回復 27# andylin

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除昨日資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
Application.OnTime #8:46:00 AM#, "ThisWorkbook.資料輸入"
'**** 08:46:00時間執行程式 ->資料輸入
End Sub
Sub 資料輸入()
'''''''''''''''''''''''''''''''''''''
'Dim Ar() 'Ar陣列 -> 存入你要的數據
'Ar = Sheets("Table").Range("B2:D2").Value
'''''''''''''''''''''''''''''''''''''
Dim Ar(1 To 3) 'Ar陣列 -> 存入你要的數據
Ar(1) = [Table!B2]
Ar(2) = [Table!C2]
Ar(3) = [Table!D2]
'** Sheets("1分K").Range("B" & Rows.Count).End(xlUp).Offset(1) ** 資料從B欄開使置入 **
If Minute(Time) Mod 1 = 0 Then Sheets("1分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每分鐘
If Minute(Time) Mod 5 = 0 Then Sheets("5分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每5分鐘
If Minute(Time) Mod 15 = 0 Then Sheets("15分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1 =0 每15分鐘
If Time <= #1:30:00 PM# Then Application.OnTime TimeValue(Format(Time, "hh:MM:00")) + #12:01:00 AM#, "ThisWorkbook.資料輸入"
' *** #1:30:00 PM# 之前時間執行程式 ->資料輸入
End Sub

複製代碼

TOP

andylin

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

29^#

發表於 2011-7-21 11:49 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:56 編輯

回復 28# GBKEE

大大您好
感謝您
感恩 Orz

for GBKEE大大_20110721_test02.rar (22.96 KB)

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兔年全勤獎章

30^#

發表於 2011-7-21 12:47 | 只看該作者

回復 29# andylin
收市前有效試試看

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除昨日資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
If Time >= #8:46:00 AM# And Time <= #1:30:00 PM# Then '開市時間內開檔
資料輸入
ElseIf Time < #8:46:00 AM# Then '開市前內開檔
Application.OnTime #8:46:00 AM#, "ThisWorkbook.資料輸入"
End If
End Sub
Sub 資料輸入()
Dim E As Range
'''''''''''''''''''''''''''''''''''''
'Dim Ar() 'Ar陣列 -> 存入你要的數據
'Ar = Sheets("Table").Range("B2:D2").Value
'''''''''''''''''''''''''''''''''''''
Dim Ar(1 To 3) 'Ar陣列 -> 存入你要的數據
Ar(1) = [Table!B2]
Ar(2) = [Table!C2]
Ar(3) = [Table!D2]
If Minute(Time) Mod 1 = 0 Then
Set E = Sheets("1分K").Range("A:A").Find(TimeSerial(Hour(Time), Minute(Time), 0))
E.Offset(0, 1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每分鐘
End If
If Minute(Time) Mod 5 = 0 Then
Set E = Sheets("5分K").Range("A:A").Find(TimeSerial(Hour(Time), Minute(Time), 0))
E.Offset(0, 1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 5=0 每5分鐘
End If
If Minute(Time) Mod 15 = 0 Then
Set E = Sheets("15分K").Range("A:A").Find(TimeSerial(Hour(Time), Minute(Time), 0))
E.Offset(0, 1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 15=0 每15分鐘
End If
If Time <= #1:30:00 PM# Then Application.OnTime TimeValue(Format(Time, "hh:MM:00")) + #12:01:00 AM#, "ThisWorkbook.資料輸入"
' *** #1:30:00 PM# 之前時間執行程式 ->資料輸入
Set E = Nothing '
End Sub

複製代碼

TOP

[發問] 劵商DDE傳Excel 每分自動記錄數據

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]