返回列表 上一主題 發帖

請問怎樣做出來

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-29 06:01 | 只看該作者

請問怎樣做出來

本帖最後由 cdkee 於 2010-9-29 06:20 編輯

以另一方面想，用EXCEL 怎樣可以計算出每對買賣賺蝕數目，放入C那行?( )內的數值是我自己計算出來。謝謝大大!
每個買賣數量=1
買=買入, 賣=沽空(即平了買入，無貨時，沽空就是看跌)

A  B=買賣價 C
買 8
買 6
賣 6       (-2)
賣 3       (-3)
賣 4
賣 8
買 1       (3)
買 8       (0)
買 9
賣 8       (-1)
買 1
買 5
賣 9      (8)
買 8
賣 4      (-1)
賣 10     (2)
買 9
賣 1      (-8)
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-9-29 11:06 | 只看該作者
第一列為欄名
  1. Sub Buy_Sale()
  2. Dim Sale, Buy, A As Range, s&, k&
  3. Set Sale = CreateObject("Scripting.Dictionary")
  4. Set Buy = CreateObject("Scripting.Dictionary")
  5. For Each A In Range([A2], [A65536].End(xlUp))
  6.    Select Case A.Value
  7.       Case "買"
  8.       If Sale.Count > 0 Then
  9.       A.Offset(, 2) = Sale(s) - A.Offset(, 1)
  10.       Sale.Remove s
  11.       s = s + 1
  12.       Else
  13.       Buy(s) = A.Offset(, 1)
  14.       A.Offset(, 2) = ""
  15.       s = s + 1
  16.       End If
  17.       Case "賣"
  18.       If Buy.Count > 0 Then
  19.       A.Offset(, 2).Value = A.Offset(, 1) - Buy(k)
  20.       Buy.Remove k
  21.       k = k + 1
  22.       Else
  23.       Sale(k) = A.Offset(, 1)
  24.       A.Offset(, 2) = ""
  25.       k = k + 1
  26.       End If
  27.    End Select
  28. Next
  29. End Sub
複製代碼
損益.rar (8.31 KB)
學海無涯_不恥下問

TOP

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
3#
發表於 2010-9-29 15:13 | 只看該作者
回復 2# Hsieh


    謝謝版大教導!
1)跟版大的程式，結果如下，但計算的結果只有8個，應該有9個(括弧的是想要的結果，是以first in first out方式計算)
2)如何才做到在輸入買賣時，即時計算結果。

買        8       
買        6       
賣        6        0(-2)
賣        3                 (-3)       
賣        4       
賣        8       
買        1        2(3)
買        8        -4(0)
買        9        -1
賣        8                  (-1)       
買        1        7
買        5       
賣        9        4(8)
買        8       
賣        4        -4(-1)
賣        10            (2)
買        9        1
賣        1             (-8)

TOP

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
4#
發表於 2010-9-29 15:22 | 只看該作者
回復 2# Hsieh


    再請教版大，以下是小輩的程式，怎樣加入版大的程式在自己的程式中才對?謝謝!
Public i As Integer
Public m As Integer
Public n As Integer
Public B As Integer
Public S As Integer
Public check As Integer
Dim buyArray(99) As Single
Dim sellArray(99) As Single
Private Sub CommandButton1_Click()

B = 1
i = i + 1
        Sheets("sheet1").Cells(i, 1) = "買"
        Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
        
m = m + 1
buyArray(m) = Sheets("sheet1").Cells(i, 2)


End Sub
Private Sub CommandButton2_Click()

S = 1
i = i + 1
        Sheets("sheet1").Cells(i, 1) = "賣"
        Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
        
n = n + 1
sellArray(n) = Sheets("sheet1").Cells(i, 2)


End Sub

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-9-29 18:17 | 只看該作者
本帖最後由 Hsieh 於 2010-9-29 22:33 編輯
  1. Private Sub CommandButton1_Click()
  2. r = Application.CountA(Columns("A")) + 1
  3.         Sheets("sheet1").Cells(r, 1) = "買"
  4.         Randomize
  5.         Sheets("sheet1").Cells(r, 2) = Int((10 * Rnd) + 1)
  6. Buy_Sale
  7. End Sub
  8. Private Sub CommandButton2_Click()

  10. r = Application.CountA(Columns("A")) + 1
  11.         Sheets("sheet1").Cells(r, 1) = "賣"
  12.         Randomize
  13.         Sheets("sheet1").Cells(r, 2) = Int((10 * Rnd) + 1)
  14. Buy_Sale
  15. End Sub
  16. Sub Buy_Sale()
  17. Dim Sale, Buy, A As Range, s&, k&
  18. Set Sale = CreateObject("Scripting.Dictionary")
  19. Set Buy = CreateObject("Scripting.Dictionary")
  20. For Each A In Range([A1], [A65536].End(xlUp))
  21.    Select Case A.Value
  22.       Case "買"
  23.       If Sale.Count > 0 Then
  24.       A.Offset(, 2) = Sale(s) - A.Offset(, 1)
  25.       Sale.Remove s
  26.       s = s + 1
  27.       Else
  28.       Buy(s) = A.Offset(, 1)
  29.       A.Offset(, 2) = ""
  30.       s = s + 1
  31.       End If
  32.       Case "賣"
  33.       If Buy.Count > 0 Then
  34.       A.Offset(, 2).Value = A.Offset(, 1) - Buy(k)
  35.       Buy.Remove k
  36.       k = k + 1
  37.       Else
  38.       Sale(k) = A.Offset(, 1)
  39.       A.Offset(, 2) = ""
  40.       k = k + 1
  41.       End If
  42.    End Select
  43. Next
  44. End Sub
複製代碼
學海無涯_不恥下問

TOP

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
6#
發表於 2010-9-29 18:56 | 只看該作者
回復 5# Hsieh


    淚如雨下 ，小輩感激無言!再細味版大美意!

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題