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

藍天麗池

中學生 Rank: 2

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

31^# 跳轉到 »

發表於 2016-4-8 12:16 | 只看該作者

回復 30# 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

32^#

發表於 2016-4-8 12:30 | 只看該作者

回復 31# 藍天麗池
我順手寫了一隻測試程式，你將它放入至 Module1 內執行看是否有增加寫入列，
如果沒有這才叫靈異。

Sub Test()
Dim cts As Integer
For cts = 3 To 13 Step 2
Cells(2, cts) = Cells(2, cts) + 1
Next cts
End Sub

複製代碼

TOP

藍天麗池

中學生 Rank: 2

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

33^#

發表於 2016-4-8 12:52 | 只看該作者

本帖最後由藍天麗池於 2016-4-8 12:54 編輯

回復 32# 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

34^#

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

回復 33# 藍天麗池

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

35^#

發表於 2016-4-8 13:34 | 只看該作者

回復 33# 藍天麗池

TOP

藍天麗池

中學生 Rank: 2

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

36^#

發表於 2016-4-8 22:25 | 只看該作者

本帖最後由藍天麗池於 2016-4-8 22:26 編輯

回復 35# c_c_lai

股票0.rar (18.55 KB)
C大，全部都沒錯唷，我是用你的檔案，所以完全沒改，我上傳你看看
打開之後沒有任何動作，甚至我手動去更改量，還會出現錯誤

TOP

藍天麗池

中學生 Rank: 2

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

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

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

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

藍天麗池

中學生 Rank: 2

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

40^#

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

回復 38# c_c_lai

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

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

TOP

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

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