Code Tính Tổng (1 người xem)

[tanthanh94]

Chào các Anh
Em muốn nhờ các anh chỉ dẫn em viết code tính tổng.
Em tô màu vàng trong file đính kèm.

 

[gtri]

Chào các Anh
Em muốn nhờ các anh chỉ dẫn em viết code tính tổng.
Em tô màu vàng trong file đính kèm.

Viết tiếp đoạn code của bạn

Sub Button1_Click()
Dim Arr(), Kq(), i, j

Arr = Sheet1.Range("E4", "AI" & Sheet1.Range("A65000").End(xlUp).Row)
ReDim Kq(1 To UBound(Arr, 2))

For i = 1 To UBound(Arr, 2)
For j = 1 To UBound(Arr)
Kq(i) = Kq(i) + Arr(j, i)
Next j
Next i

Sheet1.Range("E3").Resize(1, UBound(Arr, 2)).Value = Kq
End Sub

 

[tanthanh94]

Viết tiếp đoạn code của bạn

Sub Button1_Click()
Dim Arr(), Kq(), i, j

Arr = Sheet1.Range("E4", "AI" & Sheet1.Range("A65000").End(xlUp).Row)
ReDim Kq(1 To UBound(Arr, 2))

For i = 1 To UBound(Arr, 2)
For j = 1 To UBound(Arr)
Kq(i) = Kq(i) + Arr(j, i)
Next j
Next i

Sheet1.Range("E3").Resize(1, UBound(Arr, 2)).Value = Kq
End Sub

Code này chỉ tính trong phạm vi ô mình chọn thôi(A1:AI30)
Mình muốn trường hợp nhập thêm dòng hoặc cột điều tính được
Dù sao cũng cám ơn bạn.

 

[Quang_Hải]

Code này chỉ tính trong phạm vi ô mình chọn thôi(A1:AI30)
Mình muốn trường hợp nhập thêm dòng hoặc cột điều tính được
Dù sao cũng cám ơn bạn.

Sub Button1_Click()
Dim Arr(), i, j
Range([E3], [E3].End(2)).ClearContents
Arr = [A3].CurrentRegion.Value
For i = 4 To UBound(Arr, 1)
   For j = 5 To UBound(Arr, 2)
      Arr(3, j) = Arr(3, j) + Arr(i, j)
   Next
Next
[A1].Resize(i - 1, UBound(Arr, 2)) = Arr
End Sub

 

[tanthanh94]

Sub Button1_Click()
Dim Arr(), i, j
Range([E3], [E3].End(2)).ClearContents
Arr = [A3].CurrentRegion.Value
For i = 4 To UBound(Arr, 1)
   For j = 5 To UBound(Arr, 2)
      Arr(3, j) = Arr(3, j) + Arr(i, j)
   Next
Next
[A1].Resize(i - 1, UBound(Arr, 2)) = Arr
End Sub

Đúng rồi cám ơn anh nhiều