大(dà)小:1,240.6M 語言: 中文
類型:美妝護膚 係統:macOS





股票交割單製作excel模板可以輕鬆的幫助你快速的製作出你需要的各種各樣的excel表單,現在(zài)有需要的朋友就可(kě)以馬上的(de)來下載股票交割單製作excel模板!中小學生人格教育與學生能力2017觀後感-中小學生(shēng)人格教育與學生能力視頻觀後感(gǎn)2017於(yú)丹版
假如以13.14的價格買(mǎi)入一隻股票2000股,然後又以13.17的價格買入3000股,後來又以13.15的(de)價格買入2900股(買(mǎi)的是同一(yī)隻股票),則具體的(de)計(jì)算方法(fǎ)可以如下:
證券交易是要收(shōu)一定(dìng)收手續費(也就是傭金)的,比如(rú)廣發證(zhèng)券有(yǒu)的是收千分之三,有的是千分之一,還有萬分之八的(具(jù)體(tǐ)是要看開戶的證券公司是怎(zěn)麽定)。還要賣出股票要交稅,另(lìng)外,還有過戶費(每(měi)1000股一元)。這些支出費用也會(huì)算入股票成本(běn)裏。
所以,我不知道交易手續費是多少,現以千分之一的手續費計算。具體如下:
買入金額: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(四舍五入)
現在每股成(chéng)本應該是買入總(zǒng)金額加手續費的和除以(yǐ)買入總股數。
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)="賣出(chū)")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
万博 足球 科学下注法 百乐彩铅笔 体彩开奖今天 星彩体育彩票
熱門(mén)評論
最新評論