Tính khối lượng không phụ thuộc số lượng dòng! (2 người xem)

[Brutal]

Nhờ mọi người giúp mình tính khối lượng theo yêu cầu của file đính kèm nhé. Xin chân thành cảm ơn!

 

[ChanhTQ@]

Bạn dùng macro sau:

Cứ sau mỗi lần cần cập nhật, bạn cho chạy macro bằng bất cứ cách nào mà bạn biết!

Option Explicit
Sub SumForBlank()
 Dim eRw As Long, jF As Long
 Dim Rng As Range
 
 eRw = [b65500].End(xlUp).Row
 Range([d4], Cells(eRw, "D")).ClearFormats:     Set Rng = [a4]
 Do
   With Rng.Offset(, 3)
      .Offset() = WorksheetFunction.Sum(Range(Rng.Offset(1, 3), _
      Rng.End(xlDown).Offset(-1, 3)))
      .Interior.ColorIndex = 34
      .Font.Bold = True
   End With
   Set Rng = Rng.End(xlDown)
   If Rng.Row >= eRw Then Exit Do
 Loop
End Sub

 

[salam]

Bạn vào link dưới để xem nhé.
tính tổng con

 

[boyxin]

Nhờ mọi người giúp mình tính khối lượng theo yêu cầu của file đính kèm nhé. Xin chân thành cảm ơn!

HAI CÁCH DÙNG CÔNG THỨC


Cách 1 (ndu96081631) không dùng Name - Cách 2 (boyxin) dùng 4 name trong Insert\Name\Define...​

 

[vdkhiem]

Theo mình tính khối lượng bằng chạy macro không phù hợp bằng cách dùng công thức và thêm cột và dòng vì: nêu dùng công thức thì dễ chuyển đổi hơn

 

[hoangdanh282vn]

Nhờ mọi người giúp mình tính khối lượng theo yêu cầu của file đính kèm nhé. Xin chân thành cảm ơn!

Gửi bạn một cách khác dùng công thức mảng :

 

[hoangvuluan]

Giới thiệu thêm 1 hàm tính tổng 1 dãy số liên tục cho đến khi gặp ô trống đầu tiên:

Function sumFor(ra As Range) As Variant
' ti'nh to^?ng ca'c o^ ti'nh tu+` o^ ta.i ddo^' so^' (ra as range)
' cho dde^'n ga(.p o^ ro^~ng dda^`u tie^n thi` du+`ng
Const fNa = "=SUMFOR"
Dim i As Long, sF As Variant
Application.Volatile
sF = 0
i = 1
Do While (Not IsEmpty(ra(i))) And (UCase(Left(Cells(ra.Row + i - 1, ra.Column).Formula, Len(fNa))) <> fNa)
sF = sF + ra(i)
i = i + 1
Loop
sumFor = sF
End Function

-hvl