excel vba求列和，程序报错，好像是格式不对

显示全部楼层 · 2011-6-22 07:27:05

求：每两列一组，后一列和减去前列和，列数和行数都是变量，谁能指点下。
PrivateSubWorksheet_change(ByValTargetAsExcel.Range)
Dimtr,tc
tr=Target.Row
tc=Target.Column
k=WorksheetFunction.CountA(Sheets(1).Columns(tc))
Iftr3Andtc1AndtcMod2=1Then
Forn=2To240Step2
Sheets(1).Cells(2,n).Value=列和(k,n1)-列数(k,n)
Nextn
EndIf
EndSub

Function列和(rAsLong,cAsLong)
Dima
a=0
Forn=4TorStep1
a=aSheets(1).Cells(n,c).Value
Nextn
列和=a
EndFunction

千问 · 2011-6-22 07:27:05

PrivateSubWorksheet_change(ByValTargetAsRange)
Dimtr,tc,k
tr=Target.Row
tc=Target.Column
k=Cells(65536,tc).End(xlUp).Row
Iftr3Andtc1AndtcMod2=1Then
Forn=2To240Step2
Sheets(1).Cells(2,n).Value=列和(k,n1)-列和(k,n)
Nextn
EndIf
EndSub

Function列和(r,c)
Dima
a=0
Forn=4TorStep1
a=aSheets(1).Cells(n,c).Value
Nextn
列和=a
EndFunction

千问 · 2011-6-22 07:27:05

你的结果也对，不过不如楼下的适合我的工程，谢谢了。