如何用EXCEL VBA之先進先出法計算每筆成交損益？

[victor.cheng]

版大及先進大大：
請問一下，如何用EXCEL VBA之先進先出法，計算出每筆成交損益？
謝謝～～

以下為成交明細：
A B C D E
商品 委託種類 成交價 成交量 成交時間
小台07 賣出 7679 1 09:33:04
小台07 買進 7682 1 09:34:08
小台07 賣出 7677 1 09:35:02
小台07 賣出 7675 1 09:35:04
小台07 買進 7681 1 09:35:38
小台07 買進 7682 1 09:35:41
小台07 賣出 7671 1 09:37:19
小台07 賣出 7671 1 09:37:37
小台07 賣出 7670 1 09:38:05
小台07 買進 7658 1 09:39:37
小台07 買進 7650 1 09:40:20
小台07 賣出 7645 1 09:46:05
小台07 買進 7645 1 09:47:13
小台07 買進 7648 1 09:47:16
小台07 買進 7713 1 10:24:12
小台07 賣出 7707 1 10:24:22
小台07 買進 7707 1 10:29:59
小台07 賣出 7708 1 10:30:12
小台07 賣出 7698 1 10:37:07
小台07 買進 7694 1 10:37:23
小台07 賣出 7687 1 10:41:06
小台07 買進 7689 1 10:41:33
小台07 賣出 7687 1 10:46:59
小台07 買進 7690 1 10:48:43
小台07 買進 7707 1 11:08:42
小台07 賣出 7710 1 11:09:50
小台07 買進 7714 1 11:10:18
小台07 買進 7715 1 11:10:21
小台07 賣出 7709 1 11:10:28
小台07 賣出 7709 1 11:10:30
小台07 賣出 7698 1 11:13:51
小台07 買進 7700 1 11:14:59
小台07 賣出 7693 1 11:18:59
小台07 買進 7697 1 11:21:10
小台07 賣出 7670 1 11:43:06
小台07 買進 7677 1 11:45:23

希望在F欄位，計算出每一筆的損益:
A B C D E F
商品 委託種類 成交價 成交量 成交時間 損益點數
小台07 賣出 7679 1 09:33:04
小台07 買進 7682 1 09:34:08 -3
小台07 賣出 7677 1 09:35:02
小台07 賣出 7675 1 09:35:04
小台07 買進 7681 1 09:35:38 -4
小台07 買進 7682 1 09:35:41 -7
小台07 賣出 7671 1 09:37:19
小台07 賣出 7671 1 09:37:37
小台07 賣出 7670 1 09:38:05
小台07 買進 7658 1 09:39:37 13
小台07 買進 7650 1 09:40:20 21
小台07 賣出 7645 1 09:46:05
小台07 買進 7645 1 09:47:13 25
小台07 買進 7648 1 09:47:16 -3
小台07 買進 7713 1 10:24:12
小台07 賣出 7707 1 10:24:22 -6
小台07 買進 7707 1 10:29:59
小台07 賣出 7708 1 10:30:12 1
小台07 賣出 7698 1 10:37:07
小台07 買進 7694 1 10:37:23 4
小台07 賣出 7687 1 10:41:06
小台07 買進 7689 1 10:41:33 -2
小台07 賣出 7687 1 10:46:59
小台07 買進 7690 1 10:48:43 -3
小台07 買進 7707 1 11:08:42
小台07 賣出 7710 1 11:09:50 3
小台07 買進 7714 1 11:10:18
小台07 買進 7715 1 11:10:21
小台07 賣出 7709 1 11:10:28 -5
小台07 賣出 7709 1 11:10:30 -6
小台07 賣出 7698 1 11:13:51
小台07 買進 7700 1 11:14:59 -2
小台07 賣出 7693 1 11:18:59
小台07 買進 7697 1 11:21:10 -4
小台07 賣出 7670 1 11:43:06
小台07 買進 7677 1 11:45:23 -7

[ivan73222]

我自己有想一個方法，不知道你適不適用
希望對你有幫助^^
有問題在提出來討論

[victor.cheng]

我自己有想一個方法，不知道你適不適用
希望對你有幫助^^
有問題在提出來討論

ivan大大：
首先，感謝您的回答；但因為我的EXCEL是2003版的，而你的壓縮版是2007的，所以我解完壓縮後的檔案，無法相容。去微軟下載轉換程式也無法直接執行，只好把程式碼複製到2003的模組上，另外執行之～～

然後，我將你的買及賣之兩段式程式邏輯，合併成一個，但是在Sheet1上，多出來H、I、J、K欄位來判斷，
讓VBA來執行之