VBA Excel Cấp Tốc Bài 8

Xem bài trước

>> VBA Excel Express Bài 1 – Lọc nhiều dữ liệu có điều kiện với bộ lọc nâng cao

Bạn Đang Xem: VBA Excel Cấp Tốc Bài 8

>> VBA Excel Express Bài 2 – In Bảng Chín Chương

>> VBA Excel Express Bài 3 – In hàng loạt nhanh

>> VBA Excel Express Bài 4 – Tự động xóa hàng loạt trang tính không hoạt động

>> VBA Excel Express Bài 5 – Sao chép tệp từ thư mục này sang thư mục khác

>> VBA Excel Express Bài 6 – Hướng dẫn sử dụng Record Macro trong Excel từ Cơ bản đến Nâng cao

>> VBA Excel Express Bài 7 – Cách hợp nhất nhiều tệp Excel thành một tệp

Video hướng dẫn làm

Tạo Hộp kiểm có và không có hộp kiểm.

Tạo 2 hộp kiểm 1 có dấu vết và một không có dấu vết: enter Chèn -> Biểu tượng -> Lựa chọn phông chữ là Webdings -> tìm hình ảnh hộp kiểm có dấu kiểm và không có dấu kiểm hoặc nhập mã 254 vào hộp Mã ký tự chọn hộp kiểm có một dấu kiểm và mã 168 để chọn hộp kiểm không có dấu vết.

Xem Thêm : 3 Cách kiểm tra lỗi chính tả trong Word đơn giản nhất

Đánh dấu vùng để tạo hộp kiểm từ ô B6 đến nơi B21 -> Chuyển đến Trang chủ và chọn Webdings trong hộp bên cạnh hộp cỡ chữ.

Mở Ngôn ngữ lập trình để lập trình Hộp kiểm mới được tạo: Nhà phát triển -> Visual Basic -> Nhấp đúp vào Sheet1 trong cửa sổ Visual Basic -> Trong hộp có từ Chung chọn lại Trang tính và ô tiếp theo là SelectionChange.

Gọi lệnh If Not Intersect (Target, Range (“B6: B21”)) Không là gì thì và xuống dòng EndIf. Trong đó Renge (“B6: B21”) là đầu của hộp kiểm cột B từ B6 đến B21.

Trong cú pháp If vừa rồi, bạn sử dụng. tuyên bố Nếu Target.Value = “” Ở phần đối sánh kép này, bạn tích vào ô có dấu tích rồi copy đoạn mã sau đó dán vào đây gõ Then ở cuối. Nếu Target.Value = “þ” Thì
Tiếp theo bạn gõ Target.Value = “” Trong phần trích dẫn này, bạn sao chép mã của hộp kiểm mà không có dấu kiểm, nhưng hãy dán nó vào đây. Target.Value = “¨”
Với điều kiện khác, bạn nhập Khác -> Enter -> sao chép phần lệnh if của Hộp kiểm có một đánh dấu để dán nó ở đây -> Enter -> EndIf. Target.Value = “þ”

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Nếu Không Giao nhau (Mục tiêu, Phạm vi (“B6: B21”)) thì Không có gì


If Target.Count> 1 Then Exit Sub
Nếu Target.Value = “þ” Thì
Target.Value = “¨”
Khác
Target.Value = “þ”
EndIf
EndIf
Kết thúc Sub

Nhưng khi bạn chọn nhiều ô cùng lúc sẽ báo lỗi để khắc phục điều này chúng ta sử dụng nhiều lệnh hơn. Trước If Target.Value Tôi sử dụng lệnh If Target.Count> 1 Then Exit Sub thì khi tích nhiều ô vẫn ok.

Tô đậm các ô có dấu kiểm.

Đầu tiên, hãy sao chép ký tự bằng hộp kiểm đã được tạo lúc đầu -> đánh dấu vùng dữ liệu rồi nhập Trang chủ -> Định dạng có điều kiện -> Quy tắc mới.

Cửa sổ hiện ra chọn dòng cuối cùng trong Chọn loại quy tắc -> trong cái hộp Định dạng giá trị loại = Đánh dấu vào ô đầu tiên trong hộp kiểm, sau đó nhấn f4 hai lần để có dấu $ phía trước (ví dụ: = $ B6) rồi = “dán ô bạn đã sao chép vào đây” và chọn Sự sắp xếp.

Chọn Bold -> Fill chọn màu rồi ok. Kết quả.

Tạo Hộp kiểm để chọn Tất cả.

Vào Nhà phát triển -> Chèn -> chọn hình ảnh có hộp kiểm -> Kiểm tra 1 ô bất kỳ, sau đó xóa tên của ô đó và giữ nguyên ô đó hộp kiểm -> Nhấp chuột phải vào hộp kiểm và kéo nó vào hộp kiểm tất cả.

Xem Thêm : 5 Cách chuyển file pdf sang PowerPoint nhanh nhất

Đăng ký vào bản sao hộp kiểm (ctrl + c) tên hộp kiểm ở góc trên bên trái màn hình -> mở Ngôn ngữ lập trình tích trữ Trang tính1 -> Chèn -> Mô-đun.

Bắt đầu viết mã bắt đầu bằng Phụ tên chương trình (chon_all) enter để nó tự tạo End Sub –> tôi gõ MsgBox Sheet1.CheckBoxes (“tên của hộp kiểm tôi đã tạo trước đó”). ví dụ: MsgBox Sheet1.CheckBoxes (“Hộp kiểm 1”).
Để chương trình chạy khi tôi chưa đếm hộp kiểm, nó sẽ hiển thị –4146 đánh dấu vào hộp kiểm, nó hiển thị 1.

Nhấp chuột phải vào hộp kiểm và chọn Kiểm soát định dạng -> Cửa sổ xuất hiện, hãy chọn Trộn -> ok

Vào Mô-đun Sữa hàm MsgBox thành If Sheet1.CheckBoxes (“Hộp kiểm 1”). Giá trị = 1 Sau đó
Viết thêm lệnh Sheet1.Range (“B6: B21”). Giá trị = “þ” B6-B21 là khu vực hộp kiểm“þ” là sao chép mã của hộp kiểm có dấu kiểm.
Tiếp theo là Khác và sao chép Sheet1.Range (“B6: B21”). Giá trị = “þ” đổi “þ” thành “¨” bằng cách sao chép hộp kiểm mà không có dấu kiểm.

Mã số:

SubChon_all ()

Nếu Sheet1.CheckBoxes (“Hộp kiểm 1”). Giá trị = 1 Thì
Sheet1.Range (“B6: B21”). Giá trị = “þ”
Khác
Sheet1.Range (“B6: B21”). Giá trị = “¨”
EndIf
Kết thúc Sub

Khi bạn viết xong, hãy nhấp chuột phải vào Hộp kiểm và chọn Gán Macro -> kiểm tra Chon_all -> ok.

kết quả

Bài tiếp theo >> VBA Excel Express Bài 9 – Tạo hàm Excel của riêng bạn

ĐIỂM BÀI VIẾT NÀY