返回列表 上一主題 發帖

[發問] 迴圈問題

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
1# 跳轉到 »
發表於 2012-3-21 14:00 | 顯示全部帖子
回復 1# spermbank


    基本的運算總該要提供一下吧~
    哪些欄位的計算是哪些值進行運算~
    並不是所有人都懂~ 這些是怎麼運算滴唷~
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
2#
發表於 2012-3-22 09:16 | 顯示全部帖子
回復 3# spermbank


     這個不是程式運用的問題~
     這是一個運算的問題~
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
3#
發表於 2012-3-22 09:57 | 顯示全部帖子
本帖最後由 hugh0620 於 2012-3-22 10:35 編輯

回復 3# spermbank

這是你需要去思考~ 哪一些是運算中動數(x)=>穫利1%的新股價~ 在賣出價的時候
所以~ 買價是一個既定的事實情況下~ 去推算[穫利1%的新股價]
因此第二個迴圈~ 我用的是 do  loop
先求得基本的參數值
1. 買:股價/手續費
再依買的股價依股價原則一個值一格個值去推算小於或等於1%獲利股價
2.用do loop去推算賣出的股價
  1. Sub nn()

  3. '=========================='調整C區股價規則
  4. For Each A In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
  5. B = Application.Lookup(A, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  6. A.Offset(, 2) = Application.Ceiling(A, B)
  7. Next
  8. '=========================='獲利1%股利計算，不包含手續費、證交稅
  9. Sheets("Sheet1").Select
  10. x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算
  11. For i = 2 To x
  12.     Cells(i, "G") = Cells(i, "C") * Cells(9, "O") + Cells(i, "C")
  13. Next
  14. '=========================='調整獲利股價規則
  15. For Each A In Range("G:G").SpecialCells(xlCellTypeConstants, xlNumbers)
  16. B = Application.Lookup(A, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  17. A.Offset(, 0) = Application.Ceiling(A, B)
  18. Next
  19. '=========================='計算獲利1%扣除手續費與證交稅金額
  20. Sheets("Sheet1").Select
  21. x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算

  23. For i = 2 To x
  24.         K = Cells(i, "C")    '買進股價，是一個固定值的條件下，推算穫利接接近1%時的股價及獲利
  25.         If K * 1000 * 0.001425 * 0.28 <= 20 Then '買進手續費是一個已發生的條件，若低於20圓，則為20圓，
  26.             ABuyP = 20
  27.         Else
  28.             ABuyP = B * 1000 * 0.001425 * 0.28
  29.         End If
  30.         ABuy = K * 1000 + ABuyP
  31.         B1 = Application.Lookup(K, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5)) '股價增加比率
  32.         J = 0
  33.         Do
  34.         B2 = B1 * J
  35.         If (K + B2) * 1000 * 0.001425 * 0.28 <= 20 Then '賣出手續費若低於20圓，則為20圓
  36.             ABuyP1 = 20
  37.         Else
  38.             ABuyP1 = (K + B2) * 1000 * 0.001425 * 0.28
  39.         End If
  40.         ASell = (K + B2) * 1000 - (K + B2) * 1000 * 0.003 - ABuyP1
  41.         A = (ASell - ABuy) / ABuy
  42.         J = J + 1
  43.         Loop While A <= 0.01     '貨利在>=0.01時，停止運算
  44.         Cells(i, "K") = K + B2 - B1 '計算獲利扣除手續費與證交稅的獲利%數
  45.         Cells(i, "L") = (((K + B2 - B1) * 1000 - (K + B2 - B1) * 1000 * 0.003 - ABuyP1) - ABuy) / ABuy
  46.         Cells(i, "M") = (((K + B2 - B1) * 1000 - (K + B2 - B1) * 1000 * 0.003 - ABuyP1) - ABuy) '計算獲利扣除手續費與證交稅的獲利金額
  47. Next


  50. End Sub
複製代碼
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
4#
發表於 2012-3-22 10:28 | 顯示全部帖子
本帖最後由 hugh0620 於 2012-3-26 09:26 編輯

回復 3# spermbank


    任何求解後~ 要再進行驗算~
    已確保我們的設計所計算出來的結果是符合我們運算的邏輯
    以下圖N~S欄是驗算的結果~
    提供N~S欄第二列的公式給你複算
    N2=IF(C2* 1000 * 0.001425 * 0.28 <= 20,20,C2* 1000 * 0.001425 * 0.28 )
    O2=C2*1000+N2
    P2=IF(K2* 1000 * 0.001425 * 0.28 <= 20,20,K2* 1000 * 0.001425 * 0.28)
   Q2=K2 * 1000 - K2* 1000 * 0.003-P2
    R2=(Q2-O2)/O2
    S2=Q2-O2
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
5#
發表於 2012-3-26 09:24 | 顯示全部帖子
本帖最後由 hugh0620 於 2012-3-26 09:25 編輯

回復 7# spermbank

很抱歉唷~ 程式碼打錯一個字  將第28列b改成K 就可以了
ABuyP = b * 1000 * 0.001425 * 0.28
ABuyP = K * 1000 * 0.001425 * 0.28
  1. Sub nn()

  3. '=========================='調整C區股價規則
  4. For Each A In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
  5. B = Application.Lookup(A, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  6. A.Offset(, 2) = Application.Ceiling(A, B)
  7. Next
  8. '=========================='獲利1%股利計算，不包含手續費、證交稅
  9. Sheets("Sheet1").Select
  10. x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算
  11. For i = 2 To x
  12.     Cells(i, "G") = Cells(i, "C") * Cells(9, "O") + Cells(i, "C")
  13. Next
  14. '=========================='調整獲利股價規則
  15. For Each A In Range("G:G").SpecialCells(xlCellTypeConstants, xlNumbers)
  16. B = Application.Lookup(A, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  17. A.Offset(, 0) = Application.Ceiling(A, B)
  18. Next
  19. '=========================='計算獲利1%扣除手續費與證交稅金額
  20. Sheets("Sheet1").Select
  21. x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算

  23. For i = 2 To x
  24.         K = Cells(i, "C")    '買進股價，是一個固定值的條件下，推算穫利接接近1%時的股價及獲利
  25.         If K * 1000 * 0.001425 * 0.28 <= 20 Then '買進手續費是一個已發生的條件，若低於20圓，則為20圓，
  26.             ABuyP = 20
  27.         Else
  28.             ABuyP = K * 1000 * 0.001425 * 0.28
  29.         End If
  30.         ABuy = K * 1000 + ABuyP
  31.         B1 = Application.Lookup(K, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5)) '股價增加比率
  32.         J = 0
  33.         Do
  34.         B2 = B1 * J
  35.         If (K + B2) * 1000 * 0.001425 * 0.28 <= 20 Then '賣出手續費若低於20圓，則為20圓
  36.             ABuyP1 = 20
  37.         Else
  38.             ABuyP1 = (K + B2) * 1000 * 0.001425 * 0.28
  39.         End If
  40.         ASell = (K + B2) * 1000 - (K + B2) * 1000 * 0.003 - ABuyP1
  41.         A = (ASell - ABuy) / ABuy
  42.         J = J + 1
  43.         Loop While A <= 0.01     '貨利在>=0.01時，停止運算
  44.         Cells(i, "K") = K + B2 - B1 '計算獲利扣除手續費與證交稅的獲利%數
  45.         Cells(i, "L") = (((K + B2 - B1) * 1000 - (K + B2 - B1) * 1000 * 0.003 - ABuyP1) - ABuy) / ABuy
  46.         Cells(i, "M") = (((K + B2 - B1) * 1000 - (K + B2 - B1) * 1000 * 0.003 - ABuyP1) - ABuy) '計算獲利扣除手續費與證交稅的獲利金額
  47. Next


  50. End Sub
複製代碼
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
6#
發表於 2012-3-27 09:06 | 顯示全部帖子
回復 10# GBKEE


    G大大~ 用VBA來帶出函數亦是很好的一招~
    只要將公式列出直接套用~
    再去推導出新股價的價格~
    蠻值得學習的~
學習才能提升自己

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題