[已解决]求助：我要在这个宏里面任意增加多个累计怎么改

286227370

Sub sheet1(sheet1)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells(2, 1) = Cells(2, 1) + Cells(1, 1)
End If
End Sub
这个宏里面只有一个累计，就是$A$1，我要继续增加几个累计怎么做。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-12 15:31

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False    '关闭事件
   
3.    
   
4.     If Target.Count = 1 Then    '判断修改区域的数量
   
5.         If Not Intersect(Target, Range("a1:g1")) Is Nothing Then    '判断是否在A1:G1
   
6.             If IsNumeric(Target) And IsNumeric(Target.Offset(1)) Then   '判断是不是数值
   
7.                 Target.Offset(1) = Target.Offset(1) + Target    '累加
   
8.             End If
   
9.         End If
   
10.     End If
    
11.     Application.EnableEvents = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

Cells(3, 1) = Cells(3, 1) + Cells(1, 1)
照着代码改就成了。

286227370

hwc2ycy 发表于 2012-12-12 14:24
Cells(3, 1) = Cells(3, 1) + Cells(1, 1)
照着代码改就成了。

这样只有在A列可以，要在其它列怎么改，但要保留A列的数据

hwc2ycy

cells(3,1)，1代到A列，2就代表B列，以此类推。

hwc2ycy

第1个参数是行，第2个参数是列。

redsheep

If Target.Address = "$A$1" Then   你这行限制了只能是a1

你这个宏有几点不对   一是如果用事件脚本的话第一行就不需要sub xxxx()了
二 没有加上 Application.EnableEvents = False  你原来这个代码会无限循环,因为触发事件本身就改动了表格,又引起触发.
三 cells(x,y)的值求和的话应该加上.value

重写如下:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 6 Then Exit Sub
If Target.Column > 5 Then Exit Sub
Application.EnableEvents = False
Cells(2, 1).Value = Cells(2, 1).Value + Target.Value
Application.EnableEvents = True
End Sub

我这个的条件就改成了如果行数大于6,或者列数大于5,都不触发  你可以自己修改

hwc2ycy

楼上的分析得对。

286227370

hwc2ycy 发表于 2012-12-12 14:29
第1个参数是行，第2个参数是列。

我要保留$A$1，而在其它列里面同样计算怎么加

hwc2ycy

怎么计算？是累加A1吗?

286227370

hwc2ycy 发表于 2012-12-12 14:42
怎么计算？是累加A1吗?

不是，是多个计算。