如何寫一vba 抓出 CALL/PUT 最大成交量
- 帖子
- 10
- 主題
- 4
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-22
- 最後登錄
- 2016-6-3
|
如何寫一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
|
|
|
|
|
- 帖子
- 19
- 主題
- 12
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-9-27
- 最後登錄
- 2017-12-21
|
2#
發表於 2012-6-17 17:30
| 只看該作者
回復 1# alims - for i = 1 To 9
- if (Cells(i, 5) < Cells(i + 1, 5)) Then
- c1 = Cells(i + 1, 5)
- c2 = Cells(i + 1, 6)
- End If
- if (Cells(i, 11) < Cells(i + 1, 11)) Then
- p1 = Cells(i + 1, 5)
- p2 = Cells(i + 1, 6)
- End If
- Next
- Range("A15") = c1
- Range("A16") = c2
- Range("A17") = p1
- Range("A18") = p2
|
|
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 4
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-22
- 最後登錄
- 2016-6-3
|
3#
發表於 2012-6-17 19:29
| 只看該作者
回復 2# ken759727
十分感謝在這麼短的時間就回復而且又正確.... |
|
|
yes show me money
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
4#
發表於 2012-6-17 19:51
| 只看該作者
- Sub yy()
- a = [e:e].Find([max(e:e)], , , 1)(1, 2)
- b = [k:k].Find([max(k:k)], , , 1)(1, -4)
- MsgBox a & vbLf & b
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 4
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-22
- 最後登錄
- 2016-6-3
|
5#
發表於 2012-6-18 08:13
| 只看該作者
回復 4# oobird
find 的函數也能這寫!厲害 .那最小也可以MIN嗎. |
|
|
yes show me money
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
6#
發表於 2012-6-18 08:42
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
 
|
7#
發表於 2012-6-18 08:45
| 只看該作者
回復 4# oobird
版主可以問一下(1, 2)跟(1, -4) 代表的意思嗎? |
|
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
8#
發表於 2012-6-18 08:48
| 只看該作者
回復 7# freeffly
位移的一種寫法，當找到最大值時位移到同列的某個欄位 |
|
|
|
|
|
|
|
- 帖子
- 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 |
|
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 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
參數都有一個預設值，省略的參數就會自動採用預設值。 |
|
|
|
|
|
|
|
