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

hwc2ycy

举例子吧，这样我不知道你的意图。

286227370

hwc2ycy 发表于 2012-12-12 14:49
举例子吧，这样我不知道你的意图。

比如第一行里面有10个单一的当日数，对应的第二排是单一累计数，要分别相加，这个宏只有一组数。

hwc2ycy

偶理解力不强，你最好贴个图，说清楚。什么行，排的，你就说要哪些单元格累加。

286227370

hwc2ycy 发表于 2012-12-12 14:57
偶理解力不强，你最好贴个图，说清楚。什么行，排的，你就说要哪些单元格累加。

1是当日数据，2是累计数

hwc2ycy

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

复制代码