Hỏi về hàm Chuyển chữ thành số(tính giá trị theo chữ cái) (1 người xem)

[KUMI]

Xin chào mọi người!
Em có một bài toán nghĩ mãi mà chưa ra cách.
Mong các chuyên gia giúp đỡ.
Câu hỏi em đã để trong file đính kèm.
Các chuyên gia GPE xem và giúp em nhé!
Xin chân thành cám ơn!

 

[bebo021999]

Thử xem có được không?

=SUMPRODUCT(IF(ISNUMBER(SEARCH($B$2:$B$24,$F$4)),$C$2:$C$24,""))

kết thúc bằng Ctrl-Shift-Enter

 

[KUMI]

Thử xem có được không?

=SUMPRODUCT(IF(ISNUMBER(SEARCH($B$2:$B$24,$F$4)),$C$2:$C$24,""))

kết thúc bằng Ctrl-Shift-Enter

Được quá Thầy ạ,Em chưa hiểu gì về hàm mảng cả nhưng quả thật rất là ngắn gọn!
GPE thật lắm Hiền Tài!
Em cảm ơn Thầy nhiều nhiều!!!
(Cô hay là Thầy nhỉ... hihi)!

 

[hoamattroicoi]

Thử xem có được không?

=SUMPRODUCT(IF(ISNUMBER(SEARCH($B$2:$B$24,$F$4)),$C$2:$C$24,""))

kết thúc bằng Ctrl-Shift-Enter

Thế này không được hả anh, bấm Enter thôi, khỏi cần Ctrl + Shift + Enter, hiiiiiiiiii ^^

=SUMPRODUCT(ISNUMBER(SEARCH($B$2:$B$24,$F$4))*(C$2:$C$24))

 

[bebo021999]

Được quá Thầy ạ,Em chưa hiểu gì về hàm mảng cả nhưng quả thật rất là ngắn gọn!
GPE thật lắm Hiền Tài!
Em cảm ơn Thầy nhiều nhiều!!!
(Cô hay là Thầy nhỉ... hihi)!

Gọi là bạn cho khỏi phân vân về giới tính làm chi.
Công thức trên có lỗ hổng, bạn test kỹ chưa? VD: KUMI thì OK, nhưng KUMIK thì không đúng (có 1 chữ cái lặp lại 2 lần)
Có cần sửa không thì mai làm tiếp?

 

[KUMI]

Ôi thế thì lỗi rồi!
Vậy thì phiền "Bề Trên" sửa lại giùm em nhé !
Xin cám ơn nhiều ạ!

 

[KUMI]

Thế này không được hả anh, bấm Enter thôi, khỏi cần Ctrl + Shift + Enter, hiiiiiiiiii ^^

=SUMPRODUCT(ISNUMBER(SEARCH($B$2:$B$24,$F$4))*(C$2:$C$24))

Vẫn bị lỗi như Thầy bebo021999 nói Cô ạ!

Công thức trên có lỗ hổng, bạn test kỹ chưa? VD: KUMI thì OK, nhưng KUMIK thì không đúng (có 1 chữ cái lặp lại 2 lần)

 

[hoamattroicoi]

Vẫn bị lỗi như Thầy bebo021999 nói Cô ạ!

Dạ!!!! Mình chỉ bỏ cái Ctrl + Shift + Enter của anh bebo đi thôi. Lâu rồi không viết code nhỉ, cùi bắp quá trời ^^

Sub Tachnoi()
Dim i As Long
Dim j As Long, sum
Dim Chuoi As String, kQ As String, vungDL()
vungDL = Range("B2:C24").Value
Chuoi = Range("F4").Value
For i = 1 To Len(Chuoi)
    kQ = Mid(Chuoi, i, 1)
    For j = 1 To UBound(vungDL)
        If kQ = vungDL(j, 1) Then sum = sum + vungDL(j, 2)
    Next
Next
[F7].Value = sum
End Sub

Cái này dùng để bói tên được đấy nhỉ, hiiiii^^

 

[KUMI]

hô hô! Tuyệt quá. Với VBA thì Em cũng mới tiếp xúc gọi là biết đc khái niệm về VBA.
Cùi bắp Em lại dễ biết và vận dụng hơn Cô ạ!
Cô có thể Sửa code trên bằng hàm tự tạo được không ạ?
Đỡ khỏi nút...

 

[hoamattroicoi]

hô hô! Tuyệt quá. Với VBA thì Em cũng mới tiếp xúc gọi là biết đc khái niệm về VBA.
Cùi bắp Em lại dễ biết và vận dụng hơn Cô ạ!
Cô có thể Sửa code trên bằng hàm tự tạo được không ạ?
Đỡ khỏi nút...

Dạ, gọi em là cô em run. ^^

Function Tachnoi(rng As Range, clls)
Dim i As Long
Dim j As Long, sum
Dim Chuoi As String, kQ As String, vungDL()
vungDL = rng.Value
Chuoi = clls.Value
For i = 1 To Len(Chuoi)
    kQ = Mid(Chuoi, i, 1)
    For j = 1 To UBound(vungDL)
        If kQ = vungDL(j, 1) Then sum = sum + vungDL(j, 2)
    Next
Next
Tachnoi = sum
End Function

Lâu rồi em không code keo gì cả nên cùi bắp lém, quên sạch rồi, em biết đến đâu thì bạn xài đến đó nhé,hic hic ^^

 

[bebo021999]

OK, sửa lại công thức này:

=SUMPRODUCT(LOOKUP(MID($F$4,ROW(INDIRECT("1:"&LEN($F$4))),1),$B$2:$C$24))

Enter bình thường

 

[ndu96081631]

Bài này dùng LOOKUP rất dễ bị lỗi nếu không tìm thấy (chẳng hạn chuổi tìm "em khong biet gi dau" của Còi)
Vậy dùng SUMIF cho chắc:

=SUMPRODUCT(SUMIF($B$2:$B$24,MID($F$4,ROW(INDIRECT("1:"&LEN($F$4))),1),$C$2:$C$24))