價格紀錄的語法有寫錯嗎??

藍天麗池

中學生 Rank: 2

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

46^# 跳轉到 »

發表於 2016-4-9 08:59 | 只看該作者

回復 45# c_c_lai

別這樣說，C大真是辛苦你了，假日這麼早就起床幫我解決問題，萬分感謝

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

45^#

發表於 2016-4-9 08:55 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-9 08:57 編輯

回復 40# 藍天麗池
終於追蹤到問題點了：
請修改 RecordPrice 的 WR 判斷

' WR = Range(TG).End(xlDown).Row + 1 ' 修改成以觸發之欄位為判斷基點 (WR=1048577 ?)
' 當資料列僅有兩列時，如從第二列作為判斷，則 WR 的結果值為 1048577，而非正確值 3
' 故將 End(xlDown) 修正為 End(xlUp)，如此始能正確無誤地取得正確值 3
' 設若對應值內容已存在有三列、或以上者，無論是使用 xlDown 或 xlUp 均無差異，皆能正確取值。
WR = Range(Left(TG, Len(TG) - 1) & Rows.Count).End(xlUp).Row + 1

複製代碼

因為我都是在超過第三列德情況下執行，沒留意到你原始的 xlDown 語法，所以會照成無法執行。
第 1048577 列 ??????， Oh My God!
抱歉！

TOP

藍天麗池

中學生 Rank: 2

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

44^#

發表於 2016-4-9 08:52 | 只看該作者

回復 42# GBKEE

G大妳的版本會全部往下寫，而不是有變動才往下寫，是這樣嗎??
而且我手動更改也不會繼續往下寫

TOP

藍天麗池

中學生 Rank: 2

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

43^#

發表於 2016-4-9 08:46 | 只看該作者

回復 42# GBKEE

我了解了，我試試看

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

42^#

發表於 2016-4-9 08:44 | 只看該作者

本帖最後由 GBKEE 於 2016-4-9 08:46 編輯

回復 41# 藍天麗池
37帖的檔案
ThisWorkbook

Private Sub Workbook_Open()

複製代碼

Sheet

Private Sub Worksheet_Calculate()

複製代碼

是啊,螢幕看久眼睛會痛,上線的時間需控制一下.

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

TOP

藍天麗池

中學生 Rank: 2

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

41^#

發表於 2016-4-9 08:37 | 只看該作者

回復 39# GBKEE

G大好久不見了，之前聽你說眼睛不舒服，還以為你比較少上線了

G大請問一下這個是要放在哪裡?? Sheet or module ??
這個是新的版本，還是針對C大的修改的呢??

TOP

藍天麗池

中學生 Rank: 2

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

40^#

發表於 2016-4-9 08:32 | 只看該作者

回復 38# c_c_lai

C大，這樣說好了，你一開始傳給我的股票0我用手動更改是可以執行的，所以我就把原本那份套入公式，之後就不能執行，我"完全"沒有變更，所以我在想之前那份可以執行是因為"純數字"，後來帶入公式後無法執行，會不會是因為程式對公式的判斷出現問題??

因為原本用數字可以執行，帶入公式後就不行，所以我認為問題不會出現在券商的軟體，因為如果問題出現在軟體，那一開始的股票0就也會無法執行阿，但純數字版的卻可以執行，以上是我得看法，C大認為呢??

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

39^#

發表於 2016-4-9 08:08 | 只看該作者

本帖最後由 GBKEE 於 2016-4-10 14:28 編輯

回復 37# 藍天麗池

Option Explicit
Private Sub Workbook_Open()
Dim xRng As Range, First_Aaddres As String, xRng_Name As String
Application.Calculation = xlCalculationAutomatic
With Sheets("RTD")
Set xRng = .Rows(2).Cells.Find("TotalVolume", LookIn:=xlFormulas)
If Not xRng Is Nothing Then
First_Aaddres = xRng.Address
Do
xRng_Name = Split(xRng.Formula, "'")(1)
xRng_Name = "TotalVolume" & Split(xRng_Name, ".")(0)
.Names.Add xRng_Name, xRng ''名稱定義:所有總量的Dee公式的儲存格
Set xRng = .Rows(2).Cells.FindNext(xRng)
Loop Until xRng.Address = First_Aaddres
End If
End With
End Sub

複製代碼

重算事件試試看

Option Explicit
Private Sub Worksheet_Calculate()
Dim Rng As Range, E As Variant
On Error Resume Next ' 檔案開啟時 DEE傳回錯誤值
Set Rng = UsedRange.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
If Not Rng Is Nothing Then Exit Sub
On Error GoTo 0 '開盤不再處理程式碼的錯誤
If Time < #9:00:00 AM# Or Time > #1:31:00 PM# Then Exit Sub '非營業時間
For Each E In Me.Names
If E.Name Like "*TotalVolume*" Then '總量的名稱
If Range(E.Name) > 0 Then
With Cells(Rows.Count, Range(E.Name).Column).End(xlUp) ''總量名稱所在的最底列往上到有資料的儲存格
If .Row = 2 Or .Row > 2 And .Value <> Range(E.Name).Value Then
.Offset(1).Cells(1, -2).Resize(, 4) = Range(E.Name).Cells(, -2).Resize(, 4).Value
End If
End With
End If
End If
Next
End Sub

複製代碼

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

38^#

發表於 2016-4-9 06:25 | 只看該作者

回復 36# 藍天麗池
請先把你那端整個測試的程序結果詳細地描述一下，
包含券商軟體的啟動，以及是否在開盤期間運作？
並把執行後的畫面 (一分鐘前後的執行的畫面)
Hard Copy 出來上傳，我想瞭解這之前你的舊有程式
是如何執行OK的。因為程式結構未變，變動的僅僅是
邏輯判斷不同而已，在我端無論新舊均能正常運作，
為何你那端就不行？

TOP

藍天麗池

中學生 Rank: 2

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

37^#

發表於 2016-4-8 23:46 | 只看該作者

回復 35# c_c_lai

股票10.rar (26.63 KB)
C大附件是最終版本，此版本不用複製時間，只要往下寫B2-E2、F2-I2...以此類推，我不知道如果這樣的話以下要如何更改

Private Sub Worksheet_Change(ByVal Target As Range)
'  當 D2 欄位有異動時，則去呼叫 RecordPrice 的方法 (Method)。
If Target.Address = "$D$2" Or Target.Address = "$H$2" Or Target.Address = "$L$2" Or Target.Address = "$P$2" Or _
            Target.Address = "$T$2" Or Target.Address = "$X$2" Or Target.Address = "$AB$2" Or _
            Target.Address = "$AF$2" Or Target.Address = "$AJ$2" Or Target.Address = "$AN$2" Then
      Call RecordPrice(Target.Address)
End If
End Sub

真的要打100個嗎??

TOP

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

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