股票交割单excel模板下载-股票交割单制作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

点击下载

下载仅供下载体验和测试学习，不得商用和正当使用。

下载体验

点击下载