股票交割單制作excel模板完整打印免費版

股票交割單制作excel模板可以輕松的幫助你快速的制作出你需要的各種各樣的excel表單，現(xiàn)在有需要的朋友就可以馬上的來下載股票交割單制作excel模板！

股票交割單怎么看傭金

假如以13.14的價格買入一只股票2000股，然后又以13.17的價格買入3000股，后來又以13.15的價格買入2900股（買的是同一只股票），則具體的計算方法可以如下：

證券交易是要收一定收手續(xù)費（也就是傭金）的，比如廣發(fā)證券有的是收千分之三，有的是千分之一，還有萬分之八的（具體是要看開戶的證券公司是怎么定）。還要賣出股票要交稅，另外，還有過戶費（每1000股一元）。這些支出費用也會算入股票成本里。

所以，我不知道交易手續(xù)費是多少，現(xiàn)以千分之一的手續(xù)費計算。具體如下：

買入金額：13.14*2000=26280，手續(xù)費：26280*0.001=26.28

買入金額：13.17*3000=39510，手續(xù)費：39510*0.001=39.51

買入金額：13.15*2900=38135，手續(xù)費：38135*0.001=38.14（四舍五入）

現(xiàn)在每股成本應(yīng)該是買入總金額加手續(xù)費的和除以買入總股數(shù)。

股票交割單的EXCEL統(tǒng)計代碼

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