這種依時間運算的巨集要如何寫??

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

26^# 跳轉到 »

發表於 2014-12-24 12:02 | 只看該作者

本帖最後由 GBKEE 於 2014-12-24 12:29 編輯

回復 25# 藍天麗池
試試看

Option Explicit
Sub RecordPrice()
Dim WR As Long, I As Byte, SH As Worksheet
Set SH = shtRTD '工作表物件模組的名稱
Set SH = Sheets("RTD") '活頁簿工作表的名稱
With SH
.Activate
If IsError(.Range("F2")) Or IsError(.Range("G2")) Then Exit Sub
If .Range("F2") < 20 Then Exit Sub
WR = .Range("A1").End(xlDown).Row + 1
If WR = 3 Or Application.Max(.Range("B2").Resize(, 10)) > 700 Then
.Cells(WR, 1).Resize(, 11) = .Range("A2").Resize(, 11).Value
With ActiveWindow
If Intersect(SH.Cells(WR, "A"), .VisibleRange) Is Nothing Then
SH.Cells(WR, "A").Select
End If
End With
End If
End With
End Sub

複製代碼

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

TOP

藍天麗池

中學生 Rank: 2

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

25^#

發表於 2014-12-23 15:50 | 只看該作者

回復 21# GBKEE

G大，可以順便幫小弟看一下這個附件嗎??

委買賣(群益)Rev.rar (18.06 KB)
小弟試著寫，本來功能設定是B2-K2其中的值大於700就記錄，但不知道發生甚麼問題，卻無法執行，值沒有到700也記錄，在麻煩G大幫忙指教一下

TOP

藍天麗池

中學生 Rank: 2

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

24^#

發表於 2014-12-22 23:24 | 只看該作者

本帖最後由藍天麗池於 2014-12-22 23:25 編輯

回復 21# GBKEE

G大，請教一下如果我在附件這個程式要加入每秒向下滾動一列要怎麼加呢??

分析.rar (88.77 KB)
感謝

TOP

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

23^#

發表於 2014-12-12 14:22 | 只看該作者

可以也分享給我？
我最近也在想這問題
謝謝

TOP

藍天麗池

中學生 Rank: 2

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

22^#

發表於 2014-12-11 07:37 | 只看該作者

本帖最後由藍天麗池於 2014-12-11 07:39 編輯

回復 21# GBKEE

G大，不是券商的問題，我昨天下午還可以用，但昨天開teamview後表單的部分就無法點擊，我在想是不是程式有衝到，上網查了一下不知道是否是activeX控制項的問題，所以才想說來請教G大，因為我不是只有那個檔案不行，是所有檔案的表單都無法點擊

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

21^#

發表於 2014-12-11 06:20 | 只看該作者

本帖最後由 GBKEE 於 2014-12-11 06:24 編輯

回復 20# 藍天麗池

問題出在這些券商的 API 函數 http://www.coco-in.net/thread-24599-1-1.html
請再自行詢問券商如何解決.

Declare Function SKQuoteLib_Initialize Lib "SKQuoteLib.dll" (ByRef strID As Byte, ByRef strPass As Byte) As Long
Declare Function SKQuoteLib_EnterMonitor Lib "SKQuoteLib.dll" () As Long
Declare Function SKQuoteLib_AttachConnectionCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_AttachQuoteCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_AttachTicksCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_AttachBest5CallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_RequestStocks Lib "SKQuoteLib.dll" (ByRef Page As Integer, ByVal Stocks As String) As Long
Declare Function SKQuoteLib_RequestTicks Lib "SKQuoteLib.dll" (ByRef Page As Integer, ByVal Stock As String) As Long
Declare Function SKQuoteLib_GetStockByNo Lib "SKQuoteLib.dll" (ByVal strStockNo As String, ByRef Stock As TStock) As Long
Declare Function SKQuoteLib_GetStockByIndex Lib "SKQuoteLib.dll" (ByVal Market As Integer, ByVal Index As Integer, ByRef Stock As TStock) As Long
Declare Function SKQuoteLib_GetTick Lib "SKQuoteLib.dll" (ByVal Market As Integer, ByVal Index As Integer, ByVal Ptr As Long, ByRef Tick As TTick) As Long
Declare Function SKQuoteLib_GetBest5 Lib "SKQuoteLib.dll" (ByVal Market As Integer, ByVal Index As Integer, ByRef Best5 As TBest5) As Long
Declare Function SKQuoteLib_AttachTicksGetCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_AttachBest5GetCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_GetKLine Lib "SKQuoteLib.dll" (ByVal strStockNo As String, ByVal KLineType As Integer) As Long
Declare Function SKQuoteLib_AttachKLineDataCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
Declare Function SKQuoteLib_RequestServerTime Lib "SKQuoteLib.dll" () As Long
Declare Function SKQuoteLib_GetServerTime Lib "SKQuoteLib.dll" (ByRef ServerTime As CFormat05) As Long
Declare Function SKQuoteLib_AttchServerTimeCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long