返回列表 上一主題 發帖

請問怎樣做出來

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題