股票交割单制作excel模板完整打印免费版

股票交割单制作excel模板可以轻松的帮助你快速的制作出你需要的各种各样的excel表单，现在有需要的朋友就可以马上的来下载股票交割单制作excel模板！

股票交割单怎么看佣金

假如以13.14的价格买入一只股票2000股，然后又以13.17的价格买入3000股，后来又以13.15的价格买入2900股（买的是同一只股票），则具体的计算方法可以如下：

证券交易是要收一定收手续费（也就是佣金）的，比如广发证券有的是收千分之三，有的是千分之一，还有万分之八的（具体是要看开户的证券公司是怎么定）。还要卖出股票要交税，另外，还有过户费（每1000股一元）。这些支出费用也会算入股票成本里。

所以，我不知道交易手续费是多少，现以千分之一的手续费计算。具体如下：

买入金额：13.14*2000=26280，手续费：26280*0.001=26.28

买入金额：13.17*3000=39510，手续费：39510*0.001=39.51

买入金额：13.15*2900=38135，手续费：38135*0.001=38.14（四舍五入）

现在每股成本应该是买入总金额加手续费的和除以买入总股数。

股票交割单的EXCEL统计代码

Sub summ() 　　Dim nrow As Integer 　　Dim nn As Integer 　　Dim i As Integer 　　Dim sumall As Single 　　Dim nplus As Integer 　　Dim sumplus As Single 　　Dim temp As Single 　　Dim st As Long 　　Dim en As Long 　　i = 2 　　temp = 0 　　st = Range("a2") 　　Do While Cells(i, 4) <> "" 　　If Cells(i, 4) = "买入" Then temp = temp - Cells(i, 5) 　　If Cells(i, 4) = "卖出" Then temp = temp + Cells(i, 5) 　　If (Cells(i, 4) = "买入") And (Cells(i + 1, 4) = "卖出") Then _ 　　en = Range("a" & (i + 1)) 　　If (Cells(i, 4) = "卖出") And ((Cells(i + 1, 4) = "买入") _ 　　Or (Cells(i + 1, 4) = "")) Then 　　Cells(i, 10) = st & "-" & en 　　st = Range("a" & (i + 1)) 　　Cells(i, 11) = temp 　　temp = 0 　　End If 　　i = i + 1 　　Loop 　　nrow = Range("k65536").End(xlUp).Row 　　If (WorksheetFunction.Max(Range("k2", "k" & nrow)) > 0) Then 　　Range("m2") = WorksheetFunction.Max(Range("k2", "k" & nrow)) 　　Else: Range("m2") = 0 　　End If 　　If (WorksheetFunction.Min(Range("k2", "k" & nrow)) < 0) Then 　　Range("m3") = WorksheetFunction.Min(Range("k2", "k" & nrow)) 　　Else: Range("m2") = 0 　　End If 　　sumall = WorksheetFunction.Sum(Range("k2", "k" & nrow)) 　　Range("m4") = sumall 　　nn = WorksheetFunction.CountA(Range("k2", "k" & nrow)) 　　For i = 2 To nrow 　　If (Range("k" & i) > 0) Then 　　nplus = nplus + 1 　　sumplus = sumplus + Range("k" & i) 　　End If 　　Next i 　　Range("m5") = sumplus / nn 　　Range("m6") = (sumall - sumplus) / (nn - nplus) 　　Range("m7") = sumplus / nplus 　　End Sub