Viết hàm đếm số từ trong một chuỗi

[tieuthusịnh89]

Minh có vấn đề như thế này....
Ví dụ: ô A1 : Xuân Này Con Không Về

Nếu tính nhẩm thì có 5 từ..
Mình muốn viết hàm đếm từ..ko phải đếm ký tự nhé..

Mong mọi người giúp đỡ...

 

[miphp]

Đây bạn ơi.
LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1
số từ = số khoảng cách + 1

 

[Quang_Hải]

Đây bạn ơi.
LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1
số từ = số khoảng cách + 1

Hay là mình Trim trước có lẻ sẽ ổn hơn

 

[miphp]

Ổn hơn thật bác ạ,

LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1)," ",""))+1

 

[tieuthusịnh89]

Đây bạn ơi.
LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1
số từ = số khoảng cách + 1

thank bạn nhiều......
---------------------------------
với mình còn thắc mắc 1 vấn đề nũa:
ví dụ A1 mình nhập : ÁO EM CHƯA MẶC 1 LẦN... mình viết hàm như thế nào để có thể xuất ra như thế này : AECMML...
có nghĩa là: chỉ lấy những ký tự đầu và không có dấu

 

[hungpecc1]

thank bạn nhiều......
---------------------------------
với mình còn thắc mắc 1 vấn đề nũa:
ví dụ A1 mình nhập : ÁO EM CHƯA MẶC 1 LẦN... mình viết hàm như thế nào để có thể xuất ra như thế này : AECMML...
có nghĩa là: chỉ lấy những ký tự đầu và không có dấu

cái này giống list karaoke quá

 

[ndu96081631]

thank bạn nhiều......
---------------------------------
với mình còn thắc mắc 1 vấn đề nũa:
ví dụ A1 mình nhập : ÁO EM CHƯA MẶC 1 LẦN... mình viết hàm như thế nào để có thể xuất ra như thế này : AECMML...
có nghĩa là: chỉ lấy những ký tự đầu và không có dấu

Chú ý 2 chỗ màu đỏ: HƠI LẠ

 

[tieuthusịnh89]

chú ý 2 chỗ màu đỏ: Hơi lạ

à. Quên.. Chưa nói chỗ đó.... ý mình là ghi số 1 mà lúc xuất ra nó hiện chữ m ( là một ấy bạn)... Khó quá

 

[nmhung49]

Chú ý 2 chỗ màu đỏ: HƠI LẠ

Chắc viết tắt í mà ha..ha..Quăng lựu đạn lên luôn nhấn Alt +F11 chép code này vào nhấn lại Alt+F11 ra ngoài đánh giống công thức = TachKyTu( ô cần lấy)

Function TachKyTu(Chuoi As String) As String
    Dim sChuoi As String
    sChuoi = Trim(Chuoi)
    If InStr(1, sChuoi, " ") = 0 Then
        TachKyTu = Left(sChuoi, 1)
    Else
        TachKyTu = Left(sChuoi, 1) & TachKyTu(Mid(sChuoi, InStr(1, sChuoi, " ") + 1))
    End If
End Function

 

[tieuthusịnh89]

chắc viết tắt í mà ha..ha..quăng lựu đạn lên luôn nhấn alt +f11 chép code này vào nhấn lại alt+f11 ra ngoài đánh giống công thức = tachkytu( ô cần lấy)

function tachkytu(chuoi as string) as string
    dim schuoi as string
    schuoi = trim(chuoi)
    if instr(1, schuoi, " ") = 0 then
        tachkytu = left(schuoi, 1)
    else
        tachkytu = left(schuoi, 1) & tachkytu(mid(schuoi, instr(1, schuoi, " ") + 1))
    end if
end function

mình viết code bạn đưa... Nhưng sao ko được.
ô a1: áo em chưa mặc một lần... ý mình muốn xuất ra ô b2: aecmml...
Code bạn đưa nó xuất ký tự đầu áecmml.
mong bạn giúp đỡ