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

股票交割单制作excel模板可以轻松的帮助你快速的制作出你需要的各种各样的excel表单，现在有需要的朋友就可以马上的来下载股票交割单制作excel模板！电脑硬件检测工具箱免费版1.3官方版

股票交割单怎么看佣金

假如以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统计代码

Subsumm()　　DimnrowAsInteger　　DimnnAsInteger　　DimiAsInteger　　DimsumallAsSingle　　DimnplusAsInteger　　DimsumplusAsSingle　　DimtempAsSingle　　DimstAsLong　　DimenAsLong　　i=2　　temp=0　　st=Range("a2")　　DoWhileCells(i,4)<>""　　IfCells(i,4)="买入"Thentemp=temp-Cells(i,5)　　IfCells(i,4)="卖出"Thentemp=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　　EndIf　　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　　EndIf　　If(WorksheetFunction.Min(Range("k2","k"&nrow))<0)Then　　Range("m3")=WorksheetFunction.Min(Range("k2","k"&nrow))　　Else:Range("m2")=0　　EndIf　　sumall=WorksheetFunction.Sum(Range("k2","k"&nrow))　　Range("m4")=sumall　　nn=WorksheetFunction.CountA(Range("k2","k"&nrow))　　Fori=2Tonrow　　If(Range("k"&i)>0)Then　　nplus=nplus+1　　sumplus=sumplus+Range("k"&i)　　EndIf　　Nexti　　Range("m5")=sumplus/nn　　Range("m6")=(sumall-sumplus)/(nn-nplus)　　Range("m7")=sumplus/nplus　　EndSub