BigMoney

Sub BigMoney()

'

' BigMoney Macro

'

' 快捷键: Ctrl+Shift+B

'

 

conMinBigMoney = 100

 

''''''''''''''''''''''''''''

varBigSell = 0

varBigBuy = 0

varRow = 6

While (Cells(varRow, 1).Value <> Empty)

 

varPrice = Cells(varRow, 2).Value

varNumver = Cells(varRow, 3).Value

 

varMoney = varPrice * (varNumver * 100)

 

If varMoney >= conMinBigMoney Then

 

    If (Cells(varRow, 5) = "B") Then

    varBigBuy = varBigBuy + varMoney

    ElseIf (Cells(varRow, 5) = "S") Then

    varBigSell = varBigSell + varMoney

    End If

 

End If

 

varRow = varRow + 1

Wend

 

'结果

Cells(3, 1).Value = "大资金流入:"

 

Cells(3, 3).Value = varBigBuy - varBigSell

 

'设置单元格属性为货币

'可以手动设置

 

End Sub