帖子: 15
主題: 6
精華: 0
積分: 58
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-5-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-9-15 22:36 | 只看該作者

紀錄股票開盤單量值

本帖最後由 GBKEE 於 2015-9-16 07:05 編輯

各位版友好，
因在寫Excel vba時，遇到一個程式不知如何完成，如下
1.目的在於要記錄個股股票的開盤量的值，也就是說將DDE I欄第一筆變化的值記錄到H欄中，之後就不隨I欄變化。
2.因股票有10-20檔左右，H欄為各自變化的第一筆量。

請大大提供相關的程式，給小弟我當作一個範本!!

testing.rar (27.4 KB)

參照檔

樓主熱帖

Kenny

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

2^#

發表於 2015-9-16 07:08 | 只看該作者

回復 1# ken2192
試試看

'自選股工作表模組
Option Explicit
Private Sub Worksheet_Calculate()
Dim Rng As Range, E As Range
Set Rng = Range("A2", Range("A2").End(xlDown)).Columns("H") 'H欄(第一筆量)的位置
If Time < #9:00:00 AM# Then
Rng = "" '清空H欄的第一筆量
ElseIf Time >= #9:00:00 AM# And Rng.Count <> Application.Count(Rng) Then
'H欄的個數<>H欄有數字的個數,還有股票第一筆量沒有輸入
For Each E In Rng.Cells
If E = "" And E.Cells(1, 2) > 0 Then E = E.Cells(1, 2)
Next
End If
End Sub

複製代碼

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

TOP

ken2192

中學生 Rank: 2

帖子: 15
主題: 6
精華: 0
積分: 58
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-5-6

3^#

發表於 2015-9-23 15:06 | 只看該作者

感恩不盡，但經過測試，09:00開盤後，H欄並不會自動跑出數字出來!!
以下我在詳述我需要的功能，因在網路和此討論版並沒有看過類似的vba，所以沒有可以參考的程式，請版主是否可以依照下列的描述寫出簡單符合的vba，感恩不盡!!
1.目的在於要記錄個股股票的開盤量的值，也就是說將DDE "I欄"(I9以下的股票)第一筆變化的值記錄到"H欄"中，之後就不隨"I欄"變化。
2."I欄"在開盤前都是為零，9:00之後會開始跳動。但每支股票開始跳動的時間並不一樣。如I9跳動時間可能是09:05，I10跳動的時間為09:18之類的，各自依照不同時間的第一筆量記錄在H欄位中。

以下是我從看盤軟體連結到excel的檔案，請參考!!

個股即時監控紀錄-20150923.rar (110.19 KB)

Kenny

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

4^#

發表於 2015-9-24 09:14 | 只看該作者

回復 3# ken2192

你測試看看

Ex.rar (9.33 KB)

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

TOP

pq2880

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 10
註冊時間: 2013-10-2
最後登錄: 2015-9-30

5^#

發表於 2015-9-30 10:17 | 只看該作者

Worksheets("DDE").Range("j1")=""
If Worksheets("DDE").Range("j1")<> Worksheets("DDE").Range("i1") and
Worksheets("DDE").Range("j1")>0 Then '以 j1 成交量判斷是否有交易
Worksheets("DDE").Range("j1")= Worksheets("DDE").Range("i1")
end if
' Worksheets("DDE").Range("i1") 跟 DDE 資訊源連結

TOP

ken2192

中學生 Rank: 2

帖子: 15
主題: 6
精華: 0
積分: 58
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-5-6

6^#

發表於 2015-10-16 16:29 | 只看該作者

感恩GBKEE 版主，最近反覆測試幾次，依然無法在09:00開盤後自動紀錄開盤量也不會在09:00之前清除紀錄欄位，但如果是手動啟動的話就會有值，以下是我套用在我的excel上的程式，是否問題是出在要寫入自動啟動程式的function!!

Option Explicit
'自選股工作表模組
Private Sub AWorksheet_Calculate()
Dim Rng As Range, E As Range
On Error Resume Next
If IsError([A9]) Then Exit Sub  '檔案開啟時DEE會傳回 @N/A
If Time < #9:00:00 AM# Then
      Set Rng = UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
      If Not Rng Is Nothing Then Debug.Print Time, Not Rng Is Nothing
         With Range("A9", Range("A9").End(xlDown))
            .Columns("K") = "" ''清空H欄的第一筆量
         End With
      Exit Sub
End If
Set Rng = Range("A9", Range("A9").End(xlDown)).Columns("K") 'K欄(第一筆量)的位置
If Time >= #9:00:00 AM# And Rng.Count <> Application.Count(Rng) Then
   '  K欄的個數<>K欄有數字的個數,還有股票第一筆量沒有輸入
      Application.EnableEvents = False
      For Each E In Rng.Cells
         If E = "" And E.Cells(1, 2) > 0 Then
            E = E.Cells(1, 2)
      End If
      Next
      Application.EnableEvents = True
End If
End Sub

Kenny

TOP

GBKEE