Đế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,366 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,978

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

N Công thức trích xuất riêng các ký tự trong chuỗi họ tên (1 người xem)

• Ngựa con 2002
• Hôm qua, lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 73 Hôm nay lúc 18:57 Ngựa con 2002 N D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (2 người xem)

• dieppk.nb92
• Hôm nay lúc 01:22
• Hàm và công thức Excel

Trả lời 2 Đọc 95 Hôm nay lúc 09:44 Phan Thế Hiệp H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)

• H_P
• Hôm qua, lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 1 Đọc 53 Hôm nay lúc 08:42 Gà Con yêu VBA Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Hôm qua, lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 90 Hôm nay lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Hôm qua, lúc 16:15 le_vis L Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Hôm qua, lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 0 Đọc 65 Hôm qua, lúc 15:41 HeSanbi D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 542 Hôm qua, lúc 10:43 Cúc Hr C D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA (1 người xem)

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 3 Đọc 118 Hôm qua, lúc 07:17 HUONGHCKT H CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ (1 người xem)

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Hôm qua, lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 439 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 656 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 87 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 175 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 253 Thứ năm lúc 11:30 87kilua H Quên mật khẩu khóa protect

• Hoale85
• 20/2/25
• Những vấn đề chung

Trả lời 22 Đọc 1K Thứ năm lúc 09:10 Gà Con yêu VBA

• Question Question

Hướng dẫn sửa lỗi không khởi động được ứng dụng Excel

• • 
  • 

• HeSanbi
• Thứ tư lúc 23:52
• Lập Trình với Excel

Trả lời 0 Đọc 97 Thứ tư lúc 23:52 HeSanbi K Lập trình để xoá giá trị trong file PDF (1 người xem)

• khoa289
• 28/11/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 14 Đọc 578 Thứ tư lúc 17:05 khoa289 K E

• Question Question

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• Thứ hai lúc 17:23
• Lập Trình với Excel

Trả lời 12 Đọc 334 Thứ tư lúc 15:26 87kilua TaxCode v4.21 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng (1 người xem)

• • 
  • 

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

Trả lời 15 Đọc 1K Thứ tư lúc 12:44 HeSanbi Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• PhanTuHuong
• Thứ tư lúc 08:26
• Câu lạc bộ hoạt động xã hội

Trả lời 3 Đọc 236 Thứ tư lúc 12:12 PhanTuHuong 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

• Maika8008 32
• dungpham01 18
• thanthanhan 16
• ongke0711 16
• nguyenanhtruong2409 14
• vic_it 11
• nhhnam 10
• eagle12 10
• Vũ Hải Sơn 9
• HUONGHCKT 9
• Phan Thế Hiệp 9
• pycckuu410 8
• bsbnhh 7
• HeSanbi 7
• Hana2610 6
• Gà Con yêu VBA 6
• Phuocam 5
• ketoan113 5
• Emyeuexcel 5
• huuthang_bd 5

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

• Phan Thế Hiệp 55
• Maika8008 26
• ongke0711 17
• thanthanhan 13
• HeSanbi 9
• dungpham01 9
• Cúc Hr 8
• eagle12 7
• HUONGHCKT 7
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 4
• nguyenanhtruong2409 4
• pycckuu410 4
• Phuocam 4
• tieutuvodanh192 2
• Emyeuexcel 2
• nhhnam 2
• Dinh Hong Nhung 2
• huuthang_bd 2

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