Đối với việc sử dụng Excel việc người dùng sử dụng Activex đặc biệt Checkbox là khá phổ biển, vậy làm thể nào khi phải thiết kế bảng tính với việc sử dụng quá nhiều checkbox, kết hợp thiết lập cellink tùy biến theo tọa độ ô nếu người dùng sủ dụng thiết lập thủ công sẽ mất rất nhiều thời gian, chính vì vậy trong bài viết này Bluesofts xin chia sẻ với các bạn các bước để tạo checkbox tự động trên Excel
Bước 1: Khởi động Excel -> Alt/F11 hoặc vào thẻ Developer/Macro để bật cửa sổ soạn thảo VBA
Bước 2: Tham khảo code mẫu sau để tạo Checkbox tự động
Sub CreatCheckBox()
Dim i
For i = 1 To 10
ActiveSheet.CheckBoxes.Add(Cells(i, “A”).Left, _
Cells(i, “A”).Top, _
20, 20).Select
With Selection
.Caption = “”
.Value = xlOff ‘
.LinkedCell = “A” & i
.Display3DShading = False
End With
Next
End Sub
Như vậy với 1 vài đoạn code các bạn đã có thể dễ dàng tạo được checkbox hàng loạt dễ dàng trên Excel, để chủ động và hiểu rõ bản chất VBA để khai thác cho công việc, bạn cỏ thể tham khảo khóa học:
– Khóa học lập trình VBA: Tại đây
– Tư vấn trực tiếp khóa học – thiết kế Excel: Tel-Zalo: 0961368661 – Email: Baoninh@bluesofts.net
