vanduynguyen1983
Thành viên hoạt động



- Tham gia
- 21/6/13
- Bài viết
- 101
- Được thích
- 8
H2:Rất mong mọi người giúp mình làm hàm sum text lại. mình đính kèm file mong mọi coi giúp mình với
VD1: x x x 1/2x =3.5
VD2: x x x 1/2x x 1/2x =5
=SUMPRODUCT((A2:G2="x")+(A2:G2="1/2x")*0.5)
Rất mong mọi người giúp mình làm hàm sum text lại. mình đính kèm file mong mọi coi giúp mình với
VD1: x x x 1/2x =3.5
VD2: x x x 1/2x x 1/2x =5
=[COLOR=#ff0000]COUNTIF(A2:G2,"x")[/COLOR]+[COLOR=#0000cd]COUNTIF(A2:G2,"1/2x")[/COLOR]/2
Đưa File nên có cả kết quả mong muốn kèm theo nữa nhé!Các pro cho hỏi thế nếu có nhiều số khác như 3/4x hay 5/8x thì sao? Làm sao tính tổng được hay phải làm một loại hàm countif? Hướng xử lý là cộng các giá trị số đằng trước ký tự chuỗi (x) lại, nếu là khoảng trắng thì mặc định là 1=> mà em chưa tìm được hàm![]()
Tôi viết hàm "SUMA" như thế này cho tác giả mà không hiểu sai ở đâu mà kết quả không ra. Mong các thầy, các bạn chỉ ra lỗi dùm và sửa code hộ tôi với!FIle và kết quả mong muốn giống như chủ topic này đó anh.Tuy nhiên điều kiện đa dạng hơn chút(vui lòng xem file đính kèm)
Public Function SUMA(rng As Range) As Long
Dim cll As Range, tmp As String
For Each cll In rng
If IsNumeric(Left(cll, 1)) = False Then
tmp = tmp & "1" & "+"
Else
tmp = tmp & Left(cll, 3) & "+"
End If
Next cll
tmp = Left(tmp, Len(tmp) - 1)
SUMA = Evaluate(tmp)
End Function
Chỗ màu đỏ SAI, kết quả có lấy số thập phân sao lại khai báo kiểu LongTôi viết hàm "SUMA" như thế này cho tác giả mà không hiểu sai ở đâu mà kết quả không ra. Mong các thầy, các bạn chỉ ra lỗi dùm và sửa code hộ tôi với!
Mã:Public Function SUMA(rng As Range) [COLOR=#ff0000]As Long[/COLOR] Dim cll As Range, tmp As String For Each cll In rng If IsNumeric(Left(cll, 1)) = False Then tmp = tmp & "1" & "+" Else tmp = tmp & Left(cll, 3) & "+" End If Next cll tmp = Left(tmp, Len(tmp) - 1) SUMA = Evaluate(tmp) End Function
Trời ơi đúng là lỗi "chết người". Em cảm ơn thầy ạ! Vậy mà em loay hoay mất rất nhiều thời gian mà không tài nào tìm ra.Chỗ màu đỏ SAI, kết quả có lấy số thập phân sao lại khai báo kiểu Long
Bạn xem File nhé! Có sự giúp đỡ của thầy ndu!FIle và kết quả mong muốn giống như chủ topic này đó anh.Tuy nhiên điều kiện đa dạng hơn chút(vui lòng xem file đính kèm)
Viết dưới dạng Excel là gì vậy???... mà anh Ndu96081631 cho em hỏi có viết được hàm này dạng excel không?
Tôi nghĩ chỉ có dùng VBA = Hàm tự tạo thôi.Có cao thủ nào vào chỉ giáo giúp không ah? viết công thức trên bằng excel được không?
Tôi đã sửa lại giúp bạn rồi đó. Bạn xem đã đúng ý chưa?Công thức bạn Chuot0106 viết đang đếm cả những ô trống và mặc định bằng 1, vậy bạn có thể vui lòng sửa giúp không. Cảm ơn bạn nhiều.
Thể theo nguyện vọng của bạn: Dùng công thức.Có cao thủ nào vào chỉ giáo giúp không ah? viết công thức trên bằng excel được không?