Excel VBA loạt tên hàng tổng

Question

Tôi đã đoạn mã sau

For i = 1 To DepRng.Rows.Count 
    For j = 1 To DepRng.Columns.Count 
     DepRng.Cells(i, j) = Application.Sum(KidsRng.Row(i)) //Does not work 
    Next j 
Next i 

Mặc dù tôi biết là sai, tôi không có ý tưởng làm thế nào để có được nó để lưu trữ trong DepRng.Cells(i, j) tổng số tiền của cả KidsRng.Row[i] Bất kỳ sự giúp đỡ?

Answer 1

Sắp xếp, cảm ơn tất cả cho ur giúp đỡ

DepRng.Cells(i, j) = Application.Sum(KidsRng.Rows(i)) //just needed to add the "s" in rows 

Answer 2

Có thể có cách nào tốt hơn, nhưng đây là giải pháp của tôi phụ thuộc vào công thức Excel bên trong, nó có thể đủ cho những gì bạn đang làm ... Nó xác định địa chỉ đầy đủ của KidsRng. Hàng (i) và nạp nó vào chuỗi công thức = SUM() và được đánh giá bởi Application.Evaluate.

For i = 1 To DepRng.Rows.Count 
    For j = 1 To DepRng.Columns.Count 

     DepRng.Cells(i, j).Value = Application.Evaluate("=SUM(" & KidsRng.Row(i).Address(True, True, xlA1, True) & ")") 

    Next j 
Next i 

cập nhật nó để làm việc nếu kidsrng tồn tại trong một tấm khác nhau/cuốn sách cập nhật để sử dụng Application.Evaluate

Answer 3

Các mã sau đây hoạt động ok.

Có lẽ bạn nên so sánh nó với bạn:

Sub a() 

Dim DepRng As Range 
Dim kidsrng As Range 
Set DepRng = Range("B1:B2") 
Set kidsrng = Range("C1:F2") 

For i = 1 To DepRng.Rows.Count 
     DepRng.Cells(i, 1) = Application.Sum(kidsrng.Rows(i)) 
Next i 

End Sub 

Chỉ cần điền vào dãy C1: F2 với những con số và những tổng số mỗi hàng sẽ xuất hiện trong B1: B2 khi thực hiện các chương trình macro.