Mục lục
Đếm số từ trong một chuỗi
Hàm VBA sau đây đếm số từ trong một chuỗi bằng cách tìm kiếm khoảng trắng trong chuỗi. Nó sử dụng Hàm MID. Bạn có thể thực hiện điều gì đó tương tự với các Hàm SEARCH hoặc FIND.
| 1234567891011121314151617 | Hàm Number_of_Words (Chuỗi văn bản dưới dạng chuỗi) Dưới dạng số nguyên'Hàm đếm số từ trong một chuỗi'bằng cách nhìn vào từng ký tự và xem đó có phải là khoảng trắng hay khôngNumber_of_Words = 0Dim String_Length As IntegerDim Current_Character as IntegerString_Length = Len (Text_String)Đối với Current_Character = 1 đến String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ThenNumber_of_Words = Number_of_Words + 1Kết thúc nếuKế tiếp Current_CharacterChức năng kết thúc |
Cần lưu ý một số điểm:
• Mã này phải được chèn trong Mô-đun sổ làm việc - từ ngăn VBA, nhấp vào Chèn và sau đó nhấp vào mô-đun
• Hàm có thể được gọi từ một ô sổ làm việc excel với tham chiếu ô hoặc văn bản rõ ràng dưới dạng đối số:
A3 = Number_of_Words (“Mèo chó lợn”)
A4 = Number_of_Words (D1)
Hàm hoạt động bằng cách duyệt qua độ dài của một chuỗi và xem liệu ký tự tiếp theo có phải là khoảng trắng hay không và nếu có thì nó sẽ thêm một vào số khoảng trắng trong chuỗi.
