Bỏ qua nội dung chính

Làm cách nào để tính tổng / đếm các số in đậm trong một dải ô trong Excel?

Tác giả: Tiểu Dương Sửa đổi lần cuối: 2022-05-16

Khi bạn có một phạm vi dữ liệu chứa một số số in đậm trong một trang tính và bây giờ bạn muốn tính tổng hoặc chỉ đếm các ô in đậm, tất nhiên bạn có thể cộng từng ô một theo cách thủ công, nhưng sẽ rất tốn thời gian. Làm cách nào bạn có thể tính tổng hoặc chỉ đếm các ô in đậm trong Excel một cách dễ dàng và nhanh chóng?

Đếm số in đậm trong một phạm vi với Hàm do Người dùng Xác định (VBA và công thức)
Tính tổng các số in đậm trong một phạm vi với Hàm do Người dùng Xác định (VBA và công thức)
Một vài cú nhấp chuột để đếm và tính tổng các ô in đậm trong một phạm vi với Kutools cho Excel


Đếm số in đậm trong một phạm vi với Hàm do Người dùng Xác định

Sau đây Chức năng do người dùng xác định có thể giúp bạn nhanh chóng nhận được số ô in đậm. Vui lòng làm như sau:

1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Đếm số in đậm trong một dải ô

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Sau đó, lưu mã này và nhập công thức này = CountBold (A1: C9) vào một ô trống, xem ảnh chụp màn hình:

doc-count-bold-cell1

4. Sau đó nhấn đăng ký hạng mục thi và bạn sẽ đếm các ô in đậm trong phạm vi A1: C9.

doc-count-bold-cell2

Lưu ý:A1: C9 trong công thức cho biết phạm vi bạn muốn sử dụng hàm để đếm các ô in đậm, bạn có thể thay đổi nó theo nhu cầu của mình.


Tính tổng các số in đậm trong một phạm vi với Hàm do Người dùng Xác định

Và nếu bạn chỉ muốn tính tổng các số in đậm trong một phạm vi dữ liệu, tôi cũng có thể tạo một hàm do người dùng xác định để bạn giải quyết nó.

1. Giữ phím tắt ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Tính tổng các số in đậm trong một dải ô

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Sau đó, lưu mã này và nhập công thức này = sumbold (A1: C9) vào một ô trống, xem ảnh chụp màn hình:

doc-count-bold-cell3

4. Và sau đó nhấn đăng ký hạng mục thi , tất cả các số in đậm trong phạm vi A1: C9 đã được cộng lại. Xem ảnh chụp màn hình:

doc-count-bold-cell4

Lưu ý:A1: C9 trong công thức cho biết phạm vi bạn muốn sử dụng hàm để tính tổng các ô in đậm, bạn có thể thay đổi nó theo nhu cầu của mình.


Một vài cú nhấp chuột để đếm và tính tổng các ô in đậm trong một phạm vi với Kutools cho Excel

You có thể dễ dàng đếm hoặc tính tổng tất cả các ô in đậm trong một phạm vi với vài cú nhấp chuột mà không cần xử lý mã VBA phức tạp và ghi nhớ các công thức.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Để đếm các ô in đậm, vui lòng chọn một ô trống để định vị kết quả, sau đó nhấp vào Kutools > Các chức năng của Kutools > Thống kê & Toán học > COUNTBYFONT BÓNG.

Và để tính tổng các ô in đậm, hãy nhấp vào Kutools > Các chức năng của Kutools > Thống kê & Toán học > SUMBYFONT BÓNG. Xem ảnh chụp màn hình:

2. Trong FChú ý Đối số hộp thoại, chỉ định phạm vi với các ô in đậm bạn cần đếm hoặc tính tổng trong hộp Tham chiếu, rồi bấm vào OK .

Giờ đây, việc đếm hoặc tổng của tất cả các ô in đậm trong phạm vi đã chỉ định sẽ được điền vào ô đã chọn ngay lập tức. Xem ảnh chụp màn hình:

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Giữ tham chiếu ô công thức không đổi với Kutools cho Excel


Các bài liên quan:

Làm cách nào để xác định và chọn tất cả các ô hoặc văn bản in đậm trong Excel?

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
This comment was minimized by the moderator on the site
I use the function and keep getting the #NAME? error. I am using Excel 365 and Windows11.
This comment was minimized by the moderator on the site
Hello, Anthony

Have you copied and pasted the code into the Module of Microsoft Visual Basic for Applications window in your worksheet? Afetr pasting the code, then, you should enter the formula as you need.

Or you can upload your file here, we can check where the problem is.

Thank you!
This comment was minimized by the moderator on the site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
This comment was minimized by the moderator on the site
Hello Carlo,

Gald to help. After you bold new cells, the sum won't update automatically. But when you double-click the formula cell, then press Enter, the sum will update. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi Mandy,
thanks for your reply,
Yes I know that after double click the sum will uograde.
Is there any way to upgrade automatically the sum ?

Regards
Carlo
This comment was minimized by the moderator on the site
Hello Carlo,

Sorry that I don't have the solution for automatically upgrading the sum. The easiest way I can think of is to press Ctrl + Alt + F9 to recalculate all worksheets in all open workbooks. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
This comment was minimized by the moderator on the site
RE: CountBold formula This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
This comment was minimized by the moderator on the site
Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
This comment was minimized by the moderator on the site
Dear guys,
The formula won't update if you just change the format of the number cells.
It updates only when you change the cell content.
This comment was minimized by the moderator on the site
I'm using excel for mac 2011. How can I run the code on my system? thanks!
This comment was minimized by the moderator on the site
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
This comment was minimized by the moderator on the site
[quote]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!By Maey[/quote] You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
This comment was minimized by the moderator on the site
Thank you.. it's working...
This comment was minimized by the moderator on the site
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
This comment was minimized by the moderator on the site
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar. If you have a fix for this I would be very grateful.
This comment was minimized by the moderator on the site
Hi Katie, Use the below code, as the sum shows decimal places. Function SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations