Xin giúp code cộng dồn (1 người xem)

[hoang0569]

Mình gửi file, các bạn giúp mình thêm ở các Cell từ A2-A6

 

[khuongvietphong]

Hiểu chết liền

 

[hoang0569]

Ý mình muốn hỏi: File trên chỉ cộng dồn được ở Cell B2, giờ mình muốn cộng thêm được ở các Cell B3,B4,B5,B6

 

[vu_tuan_manh_linh]

Đúng là không hiểu gì luôn. Cố gắng hiểu ý bạn là cộng lũy kế cái gì đó.

 

[ndu96081631]

Ý mình muốn hỏi: File trên chỉ cộng dồn được ở Cell B2, giờ mình muốn cộng thêm được ở các Cell B3,B4,B5,B6

Đoán là sửa code thành vầy:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Not Intersect([A1:A6], Target) Is Nothing Then
    If Target.Count = 1 Then Target.Offset(, 1).Value = Target.Offset(, 1).Value + Target.Value
 End If
End Sub

 

[hoang0569]

Anh ndu9608163 luôn hiểu đúng ý mọi người, cảm ơn anh nhiều.
[h=1][/h]