Làm cách nào để kiểm tra xem một ô hoặc một dải nhiều ô có trống với Excel VBA không?

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.

Làm cách nào để kiểm tra xem một ô hoặc một dải nhiều ô có trống với Excel VBA không?

  • 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; "."

Leave a Comment

Sửa lỗi “Mega.Nz muốn lưu trữ tệp trên thiết bị này” [8 bản hack nhanh]

Sửa lỗi “Mega.Nz muốn lưu trữ tệp trên thiết bị này” [8 bản hack nhanh]

Tìm hiểu cách xử lý lỗi mega.nz muốn lưu trữ tệp trên thiết bị này với 8 thủ thuật hữu ích!

FiveM không thể tải Citizengame.dll [10 bản sửa lỗi đã được chứng minh]

FiveM không thể tải Citizengame.dll [10 bản sửa lỗi đã được chứng minh]

Thấy Fivem không thể tải citizengame.dll khi khởi chạy GTA 5, sau đó làm theo các bản sửa lỗi xóa bộ nhớ cache bị hỏng, Chỉnh sửa tệp CitizenFX.INI, v.v.

6 giải pháp khắc phục lỗi cập nhật Windows 10 0x800f0831

6 giải pháp khắc phục lỗi cập nhật Windows 10 0x800f0831

Khắc phục lỗi cập nhật Windows 10 0x800f0831 bằng nhiều giải pháp hữu ích và hiệu quả. Hướng dẫn chi tiết từng bước để bạn dễ dàng thực hiện.

7 bản sửa lỗi nhanh cho lỗi ReCaptcha dành cho chủ sở hữu trang web: Loại khóa không hợp lệ

7 bản sửa lỗi nhanh cho lỗi ReCaptcha dành cho chủ sở hữu trang web: Loại khóa không hợp lệ

Thấy Google ReCaptcha "Lỗi đối với chủ sở hữu trang web: Loại khóa không hợp lệ", sau đó thử các bản sửa lỗi như Hạ cấp xuống khóa ReCaptcha V2, cập nhật trình duyệt, v.v.

Cách sử dụng các giới hạn cho các câu hỏi trong Microsoft Forms

Cách sử dụng các giới hạn cho các câu hỏi trong Microsoft Forms

Sử dụng giới hạn trong Microsoft Forms để yêu cầu câu trả lời số dự kiến, dễ dàng thiết lập và quản lý cho cuộc khảo sát hoặc bài kiểm tra của bạn.

Làm thế nào để sửa lỗi 651 trong Windows 10 / 8.1 & 7? (Giải pháp dễ dàng)

Làm thế nào để sửa lỗi 651 trong Windows 10 / 8.1 & 7? (Giải pháp dễ dàng)

Áp dụng các Thủ thuật đã cho để sửa Lỗi 651 trong Windows 7 / 8.1 và Windows 10. Tất cả các giải pháp được đưa ra đều rất đơn giản để áp dụng và hiệu quả.

[Đã giải quyết] Làm thế nào để khắc phục lỗi 0xc000014C trên Windows 7/8 & 10?

[Đã giải quyết] Làm thế nào để khắc phục lỗi 0xc000014C trên Windows 7/8 & 10?

Hướng dẫn cách khắc phục Lỗi 0xc000014C trên Windows 7/8 & 10 một cách hiệu quả với các giải pháp đơn giản và dễ thực hiện.

[CẬP NHẬT] Cách khắc phục mã lỗi 0x7E và Autorun.dll bị thiếu trong Windows 10

[CẬP NHẬT] Cách khắc phục mã lỗi 0x7E và Autorun.dll bị thiếu trong Windows 10

Hướng dẫn chi tiết khắc phục lỗi mã 0x7E và thiếu autorun.dll trong Windows 10. Sửa lỗi dễ dàng mà không cần sự trợ giúp từ chuyên gia.

Cách Đóng (Kết thúc) Biểu mẫu, Khảo sát hoặc Câu đố trong Microsoft Forms

Cách Đóng (Kết thúc) Biểu mẫu, Khảo sát hoặc Câu đố trong Microsoft Forms

Bạn có thể đóng biểu mẫu theo cách thủ công trong Microsoft Forms hoặc thiết lập ngày kết thúc tự động. Các tùy chọn này cho phép bạn đóng biểu mẫu khi bạn đã sẵn sàng.

Cách thiết lập điểm dừng tab trong Microsoft Word

Cách thiết lập điểm dừng tab trong Microsoft Word

Khám phá cách làm cho nút tab hoạt động cho bạn với các điểm dừng tab trong Word. Gợi ý thiết lập và thay đổi điểm dừng tab trên Windows và Mac.