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

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

85^#

發表於 2016-4-10 14:26 | 只看該作者

回復 84# c_c_lai
39帖補上非營業時間不執行程式

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元的贊助,人人有能力.

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

84^#

發表於 2016-4-10 13:29 | 只看該作者

回復 c_c_lai

上圖示股票10的測試結果，黑框的部分沒有往下複製，紅框的部分為一組(B2-E2、F2-I2...等 ...
藍天麗池發表於 2016-4-10 07:47

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

83^#

發表於 2016-4-10 11:45 | 只看該作者

回復 82# c_c_lai

C大不急，你先忙

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

82^#

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

回復 81# 藍天麗池
明白了，有事出去一下 (買無糖豆漿)。
回頭再修正。

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

81^#

發表於 2016-4-10 07:47 | 只看該作者

回復 78# c_c_lai

上圖示股票10的測試結果，黑框的部分沒有往下複製，紅框的部分為一組(B2-E2、F2-I2...等等)，是總量變動後要往下紀錄的欄位

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

80^#

發表於 2016-4-10 07:25 | 只看該作者

回復 77# c_c_lai

C大，早阿，這麼早就起床動腦筋，辛苦了
74#在麻煩你修改一下，我等等來測試

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

79^#

發表於 2016-4-10 07:19 | 只看該作者

[版主管理留言]

GBKEE(2016/4/10 07:34): 星期一營業前打開檔案試試看

本帖最後由藍天麗池於 2016-4-10 07:21 編輯

回復 76# GBKEE

可是我只有手動變更台積電的總量，為什麼其他的也會往下寫??
不是應該只又台積電會往下寫嗎??

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

78^#

發表於 2016-4-10 06:47 | 只看該作者

回復 76# GBKEE
我有留意到 "名稱定義" 的定義，

: First_Aaddres : "$D$2" : String
: xRng_Name : "TotalVolume2330" : String
: xRng : "XQTISC|Quote!'2330.TW-TotalVolume'" : Range/Range
.Names.Add xRng_Name, xRng ' 名稱定義: 所有總量的 DDE 公式的儲存格

複製代碼

以及

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

複製代碼

的作業處裡。
Good Idea!
謝謝囉！

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

77^#

發表於 2016-4-10 06:04 | 只看該作者

回復 73# 藍天麗池
在第三列 (含) 以下皆為空白，於任何總量之第二攔
不做任何修改按下 ENTER，你會看到第三欄自動將
第二攔的值複製 (未經修正時)。