Tách số thập phân và tính tổng

[LikeIt]

KG các anh chị GPE,

Em có một bài toán về tách số thập phân dạng text sau đó tính tổng. Mong các anh chị chỉ giúp. Các anh chị xem file đính kèm để rõ hơn.

Bài này có thể giúp em theo 2 cách (Công thức hoặc VBA) mục đích để em học

Chân thành cảm ơn.
NHT

 

[cadafi]

KG các anh chị GPE,

Em có một bài toán về tách số thập phân dạng text sau đó tính tổng. Mong các anh chị chỉ giúp. Các anh chị xem file đính kèm để rõ hơn.

Bài này có thể giúp em theo 2 cách (Công thức hoặc VBA) mục đích để em học

Chân thành cảm ơn.
NHT

Bài này dùng LEFT, RIGHT, FIND để tách số ra rồi sumproduct lại là xong.

Cột [ERROR] gõ công thức:

=SUMPRODUCT(--RIGHT($A2:$AE2,LEN($A2:$AE2)-FIND("/",$A2:$AE2,1)))

Cột [OK] gõ công thức:

=SUMPRODUCT(--LEFT($A2:$AE2,FIND("/",$A2:$AE2,1)-1))

Sau đó bạn kéo công thức xuống dưới.

 

[Po_Pikachu]

Mình dùng VBA nha bạn! Còn công thức thì nhìn vào oải quá!

Function tong(vung As Range, Optional tu As Integer = 1)
For Each cel In vung
If tu = 1 Then
temp = temp + Val(Left(cel, IIf(InStr(1, cel, "/") = 0, Len(cel), InStr(1, cel, "/") - 1)))
Else
temp = temp + Val(Right(cel, Len(cel) - InStr(1, cel, "/")))
End If
Next
tong = temp
End Function

Thân.

 

[salam]

KG các anh chị GPE,

Em có một bài toán về tách số thập phân dạng text sau đó tính tổng. Mong các anh chị chỉ giúp. Các anh chị xem file đính kèm để rõ hơn.

Bài này có thể giúp em theo 2 cách (Công thức hoặc VBA) mục đích để em học

Chân thành cảm ơn.
NHT

Bạn dùng hai ct dưới xem nhé.

=SUMPRODUCT(--REPLACE($A2:$AE2,1,FIND("/",$A2:$AE2),""))

=SUMPRODUCT(--REPLACE($A2:$AE2,FIND("/",$A2:$AE2),10,""))

 

[cadafi]

Thử hàm Function mSUM() này xem sao nhé!
[highlight=vb]
Function mSUM(Rng As Range, Optional mCheck As Integer = 1) As Double
Dim mCell As Range, rNum As Double, lNum As Double
rNum = 0: lNum = 0
For Each mCell In Rng
rNum = rNum + Val(Right(mCell, Len(mCell) - WorksheetFunction.Find("/", mCell, 1)))
lNum = lNum + Val(Left(mCell, WorksheetFunction.Find("/", mCell, 1) - 1))
Next mCell
mSUM = Choose(mCheck, rNum, lNum)
End Function
[/highlight]

Cú pháp:
=mSUM(Vùng, mCheck)
mCheck=1 cộng các số bên phải dấu "/"
mCheck=2 cộng các số bên trái dấu "/"
Mặc định mCheck = 1