Em xin nhờ các anh chị trên diễn đàn giúp đỡ viết hàm hoặc VBA tính tổng các giá trị theo điều kiện (4 người xem)

[Vũ Thị Thuý Ly]

Hiện em đang có số lượng excel nhiều, nhờ anh chị viết giúp hàm hoặc VBA theo điều kiện như file đính kèm. Em xin chân thành cám ơn.

 

[Duy Tùng 9x]

Hiện em đang có số lượng excel nhiều, nhờ anh chị viết giúp hàm hoặc VBA theo điều kiện như file đính kèm. Em xin chân thành cám ơn.

Bạn xem thử, sum, mid cơ bản thôi. Vì thấy các mã nó cùng là 3 cả nên làm vậy. Tính cột A, cột B thì tổng trừ đi cột A là ra còn lại nhỉ. Bạn xem file ý

 

[Vũ Thị Thuý Ly]

Em xinh cám ơn anh.

Bài đã được tự động gộp: Hôm nay lúc 17:16

View attachment 307282
Bạn xem thử, sum, mid cơ bản thôi. Vì thấy các mã nó cùng là 3 cả nên làm vậy. Tính cột A, cột B thì tổng trừ đi cột A là ra còn lại nhỉ. Bạn xem file ý

OK

View attachment 307282
Bạn xem thử, sum, mid cơ bản thôi. Vì thấy các mã nó cùng là 3 cả nên làm vậy. Tính cột A, cột B thì tổng trừ đi cột A là ra còn lại nhỉ. Bạn xem file ý

OK rồi anh ạ. Chúc anh nhiều sức khỏe.

 

[bebo021999]

Cách khác dùng UDF

Option Explicit
Function soluong(ByRef vung As Range, Optional loai As String) As Integer
Dim ce As Range, sum&, grand&, num&
On Error Resume Next
For Each ce In vung
    num = CDbl(Split(Split(ce, "(")(1), ")")(0))
    grand = grand + num
    If InStr(1, ce, loai) Then sum = sum + num
Next
If loai <> "" Then
    soluong = sum
Else
    soluong = grand
End If
End Function