Bỏ qua nội dung chính

Làm cách nào để liên kết hộp kiểm với nhiều ô trong Excel?

Liên kết các hộp kiểm với nhiều ô tương đối có thể giúp bạn nhanh chóng và dễ dàng thực hiện một số phép tính khi bạn chỉ cần tính tổng, đếm hoặc tính trung bình các ô đã chọn hoặc chưa được chọn. Tuy nhiên, bạn đã bao giờ cố gắng liên kết các hộp kiểm với nhiều ô cùng một lúc trong một trang tính chưa?

Liên kết các hộp kiểm với nhiều ô với công thức từng ô một

Liên kết các hộp kiểm với nhiều ô cùng một lúc bằng mã VBA


mũi tên màu xanh bong bóng bên phải Liên kết các hộp kiểm với nhiều ô với công thức từng ô một

Trên thực tế, để liên kết hộp kiểm với một ô cụ thể, bạn có thể áp dụng một công thức đơn giản để liên kết chúng theo cách thủ công.

1. Sau khi chèn các hộp kiểm vào trang tính của bạn, để chọn hộp kiểm, vui lòng nhấn Ctrl rồi bấm vào hộp kiểm đầu tiên mà bạn muốn liên kết với ô khác.

2. Sau đó, trong thanh công thức, hãy nhập dấu bằng =, và sau đó nhấp vào một ô mà bạn muốn liên kết hộp kiểm với, ví dụ B2, xem ảnh chụp màn hình:

doc-link-multi-checkboxes-1

3. Và sau đó nhấn đăng ký hạng mục thi trên bàn phím, bây giờ, khi bạn chọn hộp kiểm này, ô được liên kết sẽ hiển thị TRUE, nếu bỏ chọn nó, nó sẽ hiển thị KHÔNG ĐÚNG, xem ảnh chụp màn hình:

doc-link-multi-checkboxes-2

4. Lặp lại các bước trên để liên kết lần lượt các hộp kiểm khác.


mũi tên màu xanh bong bóng bên phải Liên kết các hộp kiểm với nhiều ô cùng một lúc bằng mã VBA

Nếu có hàng trăm và hàng nghìn hộp kiểm cần được liên kết với các ô khác, phương pháp đầu tiên sẽ không hoạt động hiệu quả, để liên kết chúng với nhiều ô cùng một lúc, bạn có thể áp dụng mã VBA sau. Vui lòng làm như sau:

1. Chuyển đến trang tính của bạn với danh sách các hộp kiểm.

2. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

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

Mã VBA: liên kết hộp kiểm đến nhiều ô cùng một lúc

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "B"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

4. Và sau đó nhấn F5 để chạy mã này, tất cả các hộp kiểm trong trang tính đang hoạt động đã được liên kết với các ô, khi bạn chọn hộp kiểm, ô tương đối của nó sẽ hiển thị TRUE, nếu bạn xóa một hộp kiểm, ô được liên kết sẽ hiển thị KHÔNG ĐÚNG, xem ảnh chụp màn hình:

doc-link-multi-checkboxes-3

Chú thích: Trong đoạn mã trên, i = 2, con số 2 là hàng bắt đầu của hộp kiểm của bạn và chữ cái B là vị trí cột mà bạn cần liên kết các hộp kiểm tới. Bạn có thể thay đổi chúng theo nhu cầu của bạn.


Các bài liên quan:

Làm cách nào để chọn tất cả các hộp kiểm bằng cách sử dụng một hộp kiểm trong Excel?

Làm thế nào để nhanh chóng chèn nhiều hộp kiểm trong Excel?

Làm cách nào để xóa nhanh nhiều hộp kiể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 (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Will this work when I try to sort Alphabetically? I've found that when I sort from A-Z, the check boxes do not follow the cells they were originally next to. Will your method help? Thank you!
This comment was minimized by the moderator on the site
My problem is: I am creating a to do list with daily habits. I want to be able to make statistics from it using the true and false from checking the box linked to a cell but do not want to individually do it, but when i use the code nothing happens?
This comment was minimized by the moderator on the site
Hello, Gregor,
The VBA code works well in my workbook.
You can upload your file here, so that we can check where the problem is.
Thank you!
This comment was minimized by the moderator on the site
Здравствуйте.
Подскажите. Возможно ли суммирование чисел в ячейках по установке флажка?

https://drive.google.com/file/d/1qmEnngPDdgWTISJETJ44IkxG-MABfqhh/view?usp=sharing[/img][/b][/u][/b

В ячейке F3 скрыто число 2 а в ячейке G3 скрыто число 0,3, можно ли сделать так чтоб при установки галочки в ячейке Q3 вычислялась сумма.
Сумма вычислений только на строку в диапазоне F3-P3
This comment was minimized by the moderator on the site
great thread and it works for me.
BUT, I need to save the TRUE/FALSE data to another sheet. What is the VBA to save it to another sheet other than the active one?
This comment was minimized by the moderator on the site
How about if you have some empty rows in ColumnA (as per your example) in between checkboxes? Using the above code it gets the linked cells wrong if there are empty rows because it does not skip them. Interested to see the solution
This comment was minimized by the moderator on the site
Did u find any solution for this? Same problem
This comment was minimized by the moderator on the site
Sub LinkCheckBoxes()

Dim chk As CheckBox

Dim lCol As Long

lCol = 1 'number of columns to the right for link



For Each chk In ActiveSheet.CheckBoxes

With chk

.LinkedCell = _

.TopLeftCell.Offset(0, lCol).Address

End With

Next chk



End Sub
This comment was minimized by the moderator on the site
Hello! Nice post about the VBA... but what if there are 3 columns that has checkboxes that needs to be linked in three other columns as well? Let's say columns B, C, and D has checkboxes and should be linked to columns H, I, and J respectively.
This comment was minimized by the moderator on the site
Hi, Having same problem - Have you found out how to get around this? Thanks, Paul
This comment was minimized by the moderator on the site
Hey,

Try this:

Sub LinkCheckBoxes()
Dim chk As CheckBox
Dim lCol As Long
lCol = 2 'number of columns to the right for link

For Each chk In ActiveSheet.CheckBoxes
With chk
.LinkedCell = _
.TopLeftCell.Offset(0, lCol).Address
End With
Next chk

End Sub



If you have for example, checkboxes in D,E,F change "Icol" to 1, so it links to G,H and I, respectively.
This comment was minimized by the moderator on the site
Hi, I have the same issue but did not work for me, can you help please.Thanks
This comment was minimized by the moderator on the site
thank you very much
This comment was minimized by the moderator on the site
Can you help me out with this same problem?
This comment was minimized by the moderator on the site
Can I do this and program the boxes to say something other than true and false?
This comment was minimized by the moderator on the site
Hi, In your VBA code: link checkboxes to multiple cells at once, the code is set up to link the cell below it. How is the code if I want to link the cell to the left of the first one? Thanks!
This comment was minimized by the moderator on the site
i have more than 40000 cell which have checkbox. when i use this code, it takes more than 5 second to process, i define different macros for different cells but i have still the problem, what can i do?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations