帖子: 185
主題: 41
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-5-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-9-27 15:32 | 只看該作者

請問什麼地方錯了

Public i As Integer
Public m As Integer
Public n As Integer
Public B As Integer
Public S 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)
If B = S Then
If m > n Then
Sheets("sheet1").Cells(i, 3) = sellArray(n) - buyArray(n)
S = 0
Else
Sheets("sheet1").Cells(i, 3) = sellArray(m) - buyArray(m)
B = 0
End If

End If

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)
If S = B Then
If n > m Then
Sheets("sheet1").Cells(i, 3) = sellArray(m) - buyArray(m)
B = 0
Else
Sheets("sheet1").Cells(i, 3) = sellArray(n) - buyArray(n)
S = 0
End If

End If
End Sub

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

17^#

發表於 2010-9-28 20:38 | 只看該作者

因為之前5次"買"+5次"賣"，已經沒有倉，之後的1個買賣是不應計出現損益
外行人完全不懂你在說什麼。

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 41
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-5-20

16^#

發表於 2010-9-28 13:16 | 只看該作者

想了半天，還是沒法子!煩請大大幫助指正，萬分感謝!

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 41
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-5-20

15^#

發表於 2010-9-28 01:11 | 只看該作者

這麼說不是亂數重疊的問題了。
損益的問題我不懂。
oobird 發表於 2010-9-28 00:46

再謝謝版大的指導!

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

14^#

發表於 2010-9-28 00:46 | 只看該作者

這麼說不是亂數重疊的問題了。
損益的問題我不懂。

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 41
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-5-20

13^#

發表於 2010-9-28 00:35 | 只看該作者

兩段都要加的。
oobird 發表於 2010-9-28 00:23

兩段都加了，問題還在(紅色部分) ，因為之前5次"買"+5次"賣"，已經沒有倉，之後的1個買賣是不應計出現損益!
買 5
買 7
賣 1 -4
賣 7 0
賣 3
賣 10
買 1 2
買 10 0
買 9
賣 3 -6
買 7 -6
買 8
賣 2 -5
買 10
賣 2 -6
賣 9 -1
買 1 -1
賣 10 9

TOP

oobird