返回列表下一主題上一主題發帖

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

alims

中學生 Rank: 2

帖子: 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

ken759727

中學生 Rank: 2

帖子: 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

複製代碼

不知道這樣有沒有幫到你

TOP

alims

中學生 Rank: 2

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

3^#

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

回復 2# ken759727

十分感謝在這麼短的時間就回復而且又正確....

yes show me money

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 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

複製代碼

TOP

alims

中學生 Rank: 2

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

5^#

發表於 2012-6-18 08:13 | 只看該作者

回復 4# oobird

find 的函數也能這寫!厲害 .那最小也可以MIN嗎.

yes show me money

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2012-6-18 08:42 | 只看該作者

回復 5# alims

最好自己嘗試一下。

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 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) 代表的意思嗎?

字典兩各字還真難理解

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

8^#

發表於 2012-6-18 08:48 | 只看該作者

回復 7# freeffly

位移的一種寫法，當找到最大值時位移到同列的某個欄位

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

　頭銜: 街友一族

超級版主 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

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

12 下一頁

返回列表下一主題上一主題