帖子: 10
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-5-22
最後登錄: 2024-10-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-6-17 17:12 | 只看該作者

如何寫一vba 抓出 CALL/PUT 最大成交量

成交量
640 640 705 △75 6 6400 2.2 2.2 2.4 ▽2.8 7799
550 550 570 △73 32 6500 3.6 3.6 3.7 ▽4.4 12023
464 463 467 △78 228 6600 4.4 4.4 4.5 ▽7.6 32553
365 360 385 △69 971 6700 8 7.9 8 ▽11.5 35801
282 279 282 △64 3087 6800 14 14 14.5 ▽18 35656
199 198 200 △52 11495 6900 24 23.5 24.5 ▽27 40295
126 125 127 △38 29425 7000 40.5 40 40.5 ▽39.5 41877
70 69 70 △24.5 52292 7100 69 67 69 ▽54 28706
32 31.5 32 △12 60231 7200 110 111 112 ▽72 9546
13 13 13.5 △4.6 43271 7300 174 172 174 ▽84 2863
如何寫一vba 抓出 CALL最大成交量是 7200 (60231口) put 是7000 41877口
十分感謝(也就是SHOW 履約價)...

樓主熱帖

yes show me money

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 2012-7-29 17:46 | 只看該作者

回復 10# oobird
很不錯的範例，謝謝您！

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

11^#

發表於 2012-6-18 09:27 | 只看該作者

回復 10# oobird

原來是這樣
真是感謝
這各用法讓我學到真多

字典兩各字還真難理解

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2012-6-18 09:23 | 只看該作者

你可以依照順序比對
這個1代表的是 LookAt:=xlWhole，預設(默認)值是xlPart
參數都有一個預設值，省略的參數就會自動採用預設值。

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

9^#

發表於 2012-6-18 09:04 | 只看該作者

回復 8# oobird

      版主請問一下你這裡用的find應該跟下面一樣方式吧
   Find([max(C:C)], , , 1)
      ,只要3各嗎分別代表哪幾個? 那各1的意思是?
      查了一下資料沒看到相關說明

      Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
      xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
      , SearchFormat:=False).Activate

字典兩各字還真難理解

TOP

oobird