威尼斯商人夏洛克威尼斯变电检修2025年最新版 V5.0

股票交割单的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无天诛神诀福利版-无天诛神诀官方版2.3.8礼包版