Hôm nay chúng ta sẽ tìm hiểu về cách dễ dàng kiểm tra xem một hoặc nhiều ô trống bằng cách sử dụng Visual Basic for Applications. Nội dung có liên quan đến Excel 2019/365, 2016 và các phiên bản Microsoft Office trước đó.
Chuẩn bị công việc
Trước khi bắt đầu viết mã bằng VBA trong Excel, bạn cần đảm bảo rằng tab phát triển của mình đã được bật. Nếu không phải như vậy, vui lòng xem hướng dẫn ngắn này .
Kiểm tra xem phạm vi ô Excel có trống không bằng VBA
- Trong Excel, mở môi trường Visual Basic của bạn bằng cách nhấn Alt + F11
- Chèn mã sau làm thủ tục trong Trang tính của bạn hoặc cách khác trong mô-đun VBA chuyên dụng.
Sub Check_Cell_is_empty_alt()
Dim rng As Range
Set rng = Selection
For Each Cell In rng
If IsEmpty(Cell.Value) = True Then
Debug.Print ("Empty")
Else
Debug.Print ("Not Empty")
End If
Next Cell
End Sub
- Đi tới bảng tính của bạn và chọn một dải ô tùy ý.
- Quay lại trình soạn thảo Visual Basic và đảm bảo rằng trình xem ngay lập tức (CTRL + G) hiển thị - vì phương thức Debug.Print trong mã sẽ xuất kết quả của nó ra cửa sổ đó.
- Nhấn F5 để chạy mã của bạn.
- Nhìn vào kết quả trong cửa sổ ngay lập tức.

- Tất cả các ô trống sẽ được xác định.
Các phần mở rộng có thể có cho mã: Rõ ràng là bạn có thể mở rộng mã này khi cần trong trường hợp bạn muốn bỏ qua các giá trị trống hoặc không làm gì trong trường hợp các ô không đầy. Tương tự, bạn có thể kiểm tra xem bản thân Phạm vi có trống hay không, tức là - không có ô màu đen nào được chứa.
Kiểm tra các trường không trống
Theo cách tương tự, bạn có thể sử dụng thuộc tính IsEmpty để kiểm tra các trường không trống.
If Not IsEmpty(Cell.Value) = True Then
Debug.Print ("Not Empty")
Else
Debug.Print ("Empty")
End If
Phần thưởng: Sử dụng mã sau nếu bạn cũng muốn đánh dấu các ô trống.
Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Đặt myRange = Range("A1:A10") Cho Mỗi myCell Trong myRange ' c = c + 1 Nếu IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Có tổng cộng " & tôi & " (các) ô trống trong số " & trại; "."