Đếm Số Khoảng Trắng Trong Chuỗi | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Đếm số khoảng trắng trong chuỗi (1 người xem)

• Thread starter Thread starter challenge98
• Ngày gửi Ngày gửi 16/7/09

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) C

challenge98

Thành viên chính thức

Tham gia 21/6/09 Bài viết 90 Được thích 5 Có ai biết cách đếm số khoảng trắng trong chuỗi không? mình làm không được thấy toàn báo lỗi ai sửa giúp mình code này với.

File đính kèm

• dem khoang trang.xls dem khoang trang.xls 19.5 KB · Đọc: 132

Sắp xếp theo thời gian sắp xếp theo bầu chọn

Po_Pikachu

[email protected]

Tham gia 29/4/08 Bài viết 2,209 Được thích 3,572 Nghề nghiệp #VALUE! Code của bạn thiếu 1 dòng "End If" thôi, bạn xem lại file nha! Hoặc viết bằng code này cho nó ngắn và mạnh hơn. Mã: Sao chép. Function SumBl(st As String) As Byte Dim mng() As String mng = Split(st, " ") SumBl = UBound(mng) End Function Thân.

File đính kèm

• dem khoang trang.xls dem khoang trang.xls 22.5 KB · Đọc: 147

Upvote 0 C

challenge98

Thành viên chính thức

Tham gia 21/6/09 Bài viết 90 Được thích 5

Dim StrArDes()as String ‘ Mảng các xâu được khai báo dạng mảng động Dim StrScr as String ‘ Xâu ban đầu StrScr=”Point1_23.5_4.5_44.8” StrArDes=Split(StrScr , "_") ‘ Tách xâu StrScr thành một mảng các xâu và đưa vào StrArDes, ‘ kí tự ngăn cách là “_” ‘ Khi đó StrArDes(0)=”Point1, StrArDes(1)=”23.5” ‘ StrArDes(2)=”4.5”, StrArDes(3)=”44.8” Debug.Print StrArDes(0),StrArDes(1),StrArDes(2),StrArDes(3) Nhấp chuột vào đây để mở rộng...

Trích trong sách áp dụng vào code của bạn Function SumBl(st As String) As Byte Dim mng() As String 'khai báo mảng động mng = Split(st, " ") ' cắt chuỗi và đưa vào mảng điều kiện cắt là kh " " SumBl = UBound(mng) 'đếm số cột của mảng End Function ' kết thúc hàmTheo như trong sách thì của bạn chữ nguyễn thị hoa phải cho kết quả là 3 sao của bạn vẫn cho kết quả đúng là 2 nhỉ? À chắc mình đoán đếm cột nó cũng từ cột 0,1,2,3... cho nên kết quả vẫn đúng? Lần chỉnh sửa cuối: 16/7/09 Upvote 0 T

ThuNghi

Hãy cho rồi sẽ nhận!

Thành viên đã mất Tham gia 16/8/06 Bài viết 3,808 Được thích 4,449

challenge98 đã viết: Trích trong sách áp dụng vào code của bạn Function SumBl(st As String) As Byte Dim mng() As String 'khai báo mảng động mng = Split(st, " ") ' cắt chuỗi và đưa vào mảng điều kiện cắt là kh " " SumBl = UBound(mng) 'đếm số cột của mảng End Function ' kết thúc hàmTheo như trong sách thì của bạn chữ nguyễn thị hoa phải cho kết quả là 3 sao của bạn vẫn cho kết quả đúng là 2 nhỉ? Nhấp chuột vào đây để mở rộng...

nguyễn thị hoa là có 2 khoảng trắng đúng rồi mà. Hàm PHP: Sao chép. Function SumBl(st As String) As Byte Dim mng() As String mng = Split(st, " ") SumBl = UBound(mng) End Function Nên thêm 1 dòng st=trim(st) Còn muốn thành 3 thì làm như sau: PHP: Sao chép. Function SumBl(st As String) As Byte Dim mng() As String st=trim(st) mng = Split(st, " ") SumBl = UBound(mng) +1 End Function Upvote 0 C

challenge98

Thành viên chính thức

Tham gia 21/6/09 Bài viết 90 Được thích 5

Po_Pikachu đã viết: Code của bạn thiếu 1 dòng "End If" thôi, bạn xem lại file nha! End Function[/code]Thân. Nhấp chuột vào đây để mở rộng...

CHo mình hỏi thêm là theo như SEDAN nói là nếu if ...then cùng hàng thì có thể bỏ end if Upvote 0

Po_Pikachu

[email protected]

Tham gia 29/4/08 Bài viết 2,209 Được thích 3,572 Nghề nghiệp #VALUE! Muốn vậy thì bạn viết như sau: Mã: Sao chép. Function trang(ten As String) As Integer Dim i As Integer Dim j As Integer j = 0 ten = Trim(ten) For i = Len(ten) To 1 Step -1 If Mid(ten, i, 1) = " " Then j = j + 1 Next trang = j End Function @ThuNghi: Theo em thì đây là việc đếm xem dữ liệu có bao nhiêu khoảng trắng, vậy ko nên cho hàm TRIM() vào. Vì để nó tính luôn việc có nhập 2 khoảng trắng liên tục hay có khoảng trắng ở cuối luôn mới đúng chứ. Đâu phải vấn để sử lý thông tin dữ liệu gì đâu. Chỉ cần xét xem trong đoạn text có tất cả bao nhiên khoảng trắng là ổn phải ko? Thân. Upvote 0

huuthang_bd

Chuyên gia GPE

Tham gia 10/9/08 Bài viết 8,941 Được thích 11,357 Donate (Momo) Giới tính Nam Nghề nghiệp Thợ đụng

challenge98 đã viết: Có ai biết cách đếm số khoảng trắng trong chuỗi không? mình làm không được thấy toàn báo lỗi ai sửa giúp mình code này với. Nhấp chuột vào đây để mở rộng...

Bạn viết code để học hay là yêu cầu công việc của bạn là đếm khoản trắng? Nếu chỉ để học hỏi thì không có vấn đề gì nhưng nếu có liên quan đến công việc thì không cần thiết. Excel có các công thức dư sức làm việc này. Có thể làm như thế này: Mã: Sao chép. =LEN(A1)-LEN(SUBSTITUTE(A1," ","") Upvote 0

sealand

Thành viên gạo cội

Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Mình thấy trong VBA nếu khai khoảng trắng là " " nhiều khi sinh chuyện tốt nhất là khai là Chr(32) hay Space(1) an toàn hơn. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

huuthang_bd đã viết: Bạn viết code để học hay là yêu cầu công việc của bạn là đếm khoản trắng? Nếu chỉ để học hỏi thì không có vấn đề gì nhưng nếu có liên quan đến công việc thì không cần thiết. Excel có các công thức dư sức làm việc này. Có thể làm như thế này: Mã: Sao chép. =LEN(A1)-LEN(SUBSTITUTE(A1," ","") Nhấp chuột vào đây để mở rộng...

Cũng như bạn Huuthang thì công thức này là ngắn gọn nhất rồi đấy! Nếu dùng VBA thì cũng theo cách này mà làm, chẳng có For phiếc gì cả... Split lại càng thừa PHP: Sao chép. Function DemKT(Chuoi As String) As Long DemKT = Len(Chuoi) - Len(Replace(Chuoi, " ", "")) End Function Đây chính là thuật toán chung cho việc COUNT WORD (không riêng gì khoảng trắng) Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Các bạn hãy giúp mình tính tổng số ngày mà Bác Hồ sống trên nhân gian trên trang tính Excel (1 người xem)

• • 

• SA_DQ
• Hôm nay lúc 04:54
• Làm việc với ngày tháng và thời gian

Trả lời 3 Đọc 83 Hôm nay lúc 11:37 SA_DQ VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA (1 người xem)

• phuongnam366377
• 31/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 1 Đọc 227 Hôm nay lúc 10:59 viethung78 V Có thể tô màu tiêu đề bài viết để làm nổi bật giữa những tiêu đề các bài đăng khác được chăng?

• • 

• SA_DQ
• Hôm qua, lúc 04:27
• Những góp ý với diễn đàn

Trả lời 1 Đọc 85 Hôm qua, lúc 08:02 Hai Lúa Miền Tây Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 67 Đọc 2K Hôm qua, lúc 05:34 SA_DQ H Lọc giá trị duy nhất theo cụm

• hoaiantrinh
• Thứ ba lúc 14:58
• Hàm và công thức Excel

Trả lời 7 Đọc 215 Thứ tư lúc 22:43 87kilua

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 624 Đọc 92K Thứ tư lúc 18:19 tombongtep T N Tạo COM Add-In bằng Visual C++ (1 người xem)

• • 

• nguyendang95
• 6/7/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 18 Đọc 2K Thứ ba lúc 21:07 nguyendang95 N M Bảo mật code VBA autocad!

• Michael Bit
• Thứ hai lúc 08:44
• Hỏi đáp những vấn đề khác

Trả lời 12 Đọc 332 Thứ ba lúc 19:17 Michael Bit M

• Dán lên cao
• Suggestion Suggestion

CHÚC MỪNG NĂM MỚI BÍNH NGỌ 2026

• • 
  • 
  • 

• GPE-Trợ Lý
• Thứ ba lúc 10:45
• Bài viết nổi bật và thông báo

Trả lời 0 Đọc 152 Thứ ba lúc 10:45 GPE-Trợ Lý L Thu Chi Gia Đình

• • 

• lehang0812
• 5/2/26
• TPHCM

Trả lời 5 Đọc 263 Thứ ba lúc 10:19 nguoiconxunui N

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 77 Đọc 30K Thứ hai lúc 19:00 chothadiem

• Đã giải quyết

LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026)

• • 
  • 
  • 

• HeSanbi
• 5/3/21
• Lập Trình với Excel

Trả lời 85 Đọc 18K Chủ nhật lúc 21:43 chothadiem

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 62 Đọc 13K Thứ bảy lúc 18:10 Nguyễn Duy Tuân E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc

• Excel my love_1
• 15/4/23
• Tin học mở rộng

Trả lời 4 Đọc 4K 6/2/26 luongha.ktqd L

• Question Question

Chia sẻ một thuật toán đơn giản để trộn cells

• • 
  • 

• Quang_Hải
• 4/2/26
• Lập Trình với Excel

Trả lời 12 Đọc 414 5/2/26 Quang_Hải TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat (1 người xem)

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 19 Đọc 3K 5/2/26 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

• • 
  • 

• HeSanbi
• 2/2/26
• Lập Trình với Excel

Trả lời 1 Đọc 278 4/2/26 HeSanbi Hàm EXACT

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K 3/2/26 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 518 Đọc 226K 3/2/26 Gà Công Nghệ V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 18 Đọc 786 3/2/26 vietdang170 V Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 14
• chothadiem 11
• Michael Bit 6
• HieuCD 5
• Gà Công Nghệ 5
• YêuCN 4
• Officexinh 4
• DeTong 4
• vietdang170 4
• pycckuu410 3
• chiendich 3
• hoanglocphat 3
• SA_DQ 3
• LOGANWover 2
• VietHoangPhan 2
• Gà Con yêu VBA 2
• Quang_Hải 2
• hoaiantrinh 2
• vuvannguyen1972 1
• viethung78 1

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 19
• GPE-Trợ Lý 9
• Quang_Hải 7
• HieuCD 6
• DeTong 5
• vietdang170 5
• Gà Con yêu VBA 4
• SA_DQ 4
• LOGANWover 3
• pycckuu410 3
• chiendich 3
• Phuocam 3
• hungvinh1402 2
• HUONGHCKT 2
• huhumalu 2
• YêuCN 2
• Officexinh 2
• 87kilua 2
• Hai Lúa Miền Tây 2
• Michael Bit 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom