Office中国论坛/Access中国论坛

标题: 合计问题 [打印本页]

作者: myszh 时间: 2007-5-3 22:00
标题: 合计问题
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow, iCol As Integer
iRow = Target.Row
iCol = Target.Column
If Target.Row >= 6 And Target.Column >= 7 Then
Cells(iRow, 7) = Application.WorksheetFunction.Sum(Range(Cells(iRow, 8), Cells(iRow, 38)))

End If

End Sub

手动输入合计没有问题

但是拖动数据除第一行的合计会跳其他行都不动[em06][em06]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)