Làm thế nào để tự động căn giữa hộp kiểm trong ô trong Excel?
Trong khi chèn các hộp kiểm vào các ô trong Excel, bạn có thể nhận thấy rằng khó có thể sắp xếp tất cả các hộp kiểm một cách trật tự như ảnh chụp màn hình bên trái được hiển thị. Trên thực tế, bạn có thể di chuyển tất cả các hộp kiểm vào trung tâm ô để giữ chúng ngăn nắp. Phương pháp trong bài viết này có thể giúp bạn.
Hộp kiểm tự động căn giữa trong ô có mã VBA
Hộp kiểm tự động căn giữa trong ô có mã VBA
Để tự động căn giữa tất cả các hộp kiểm trong các ô trong trang tính hiện tại, vui lòng thực hiện như sau.
1. Trong trang tính, bạn cần tự động căn giữa tất cả các hộp kiểm, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp vào Chèn > Mô-đun. Sau đó sao chép và dán mã VBA vào cửa sổ mã.
Mã VBA: Tự động căn giữa tất cả các hộp kiểm trong các ô
Sub CenterCheckbox ()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = xRg.Width * 2 / 3
chkBox.Height = xRg.Height
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = xRg.Width * 2 / 3
chkFBox.Height = xRg.Height
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub
3. Nhấn nút F5 Chìa khóa. Sau đó, tất cả các hộp kiểm được chuyển vào giữa các ô ngay lập tức như hình minh họa bên dưới.
Chú thích: Mã VBA này có thể được áp dụng cho cả CheckBox (Điều khiển ActiveX) và CheckBox (Điều khiển biểu mẫu).
Mẹo: Nếu bạn muốn chèn hàng loạt hộp kiểm vào một dải ô đã chọn, bạn có thể thử Hộp kiểm Chèn hàng loạt pf tiện ích Kutools cho Excel. Hoặc chèn hàng loạt nhiều Nút tùy chọn với Các nút tùy chọn Chèn hàng loạt tiện ích. Bên cạnh đó, bạn có thể xóa tất cả các hộp kiểm cùng một lúc với Hộp kiểm Xóa hàng loạt tiện ích như ảnh chụp màn hình dưới đây được hiển thị. Bạn có thể đi đến tải xuống miễn phí phần mềm không giới hạn trong 30 ngày.
Các bài liên quan:
- Làm cách nào để tạo danh sách thả xuống với nhiều hộp kiểm trong Excel?
- Làm cách nào để thay đổi giá trị hoặc màu ô đã chỉ định khi hộp kiểm được chọn trong Excel?
- Làm cách nào để đánh dấu ô hoặc hàng bằng hộp kiểm trong Excel?
- Làm cách nào để chọn hộp kiểm dựa trên giá trị ô trong Excel?
Công cụ năng suất văn phòng tốt nhất
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...
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!