Cách kiểm tra các ô bằng macro
Bạn có muốn đánh giá các ô và xác định có bao nhiêu ô được điền vào một dải ô và bao nhiêu ô không được điền? Hình sau đây cho thấy một ví dụ:
Điểm đánh dấu A1: B7 chứa một số ô trống và một số ô được lấp đầy. Nếu bạn muốn đánh giá điều này trong macro, bạn có thể sử dụng mã chương trình sau:
Sub CountsFilledCells ()
Số Dim càng dài
Số mờ 2 càng dài
Làm mờ vùng dưới dạng phạm vi
Làm mờ một chuỗi dưới dạng
Đặt khu vực = Lựa chọn
Number = Application.CountA (khu vực)
Count2 = area.Cells.Count - số
a = MsgBox ("Trong lựa chọn hiện tại là" _
& Number & "các ô đã được điền và" & number2 _
& "Ô trống.", VbOKOnly, "đánh giá ô")
Kết thúc Sub
Macro đặt chức năng CountA để đếm số ô không trống trong một phạm vi. Kết quả lưu biến con số. Để xác định số lượng ô được lấp đầy, giá trị này được trừ khỏi tổng số ô được kiểm tra. Macro lưu giá trị này trong Số 2.
Sau khi bắt đầu, mã chương trình xác định số lượng ô đã điền và ô trống trong đánh dấu đang hoạt động và hiển thị kết quả trong một cửa sổ:
Nếu bạn muốn xử lý một phạm vi lựa chọn của mình thay vì lựa chọn hiện tại, hãy điều chỉnh việc gán giá trị cho biến khu vực tại. Nó được sử dụng trong macro với thuộc tính Lựa chọn được kết nối. Nếu bạn muốn tự mình xác định một phạm vi, hãy thay thế bộ-Gán cho biến khu vực bằng một biểu thức có dạng sau:
Đặt dải ô = Phạm vi ("A1: B5")
Đặc tả phạm vi luôn đề cập đến trang tính đang hoạt động. Nếu bạn muốn giải quyết một trang tính khác, hãy đặt trước Phạm viRa lệnh cho các tham chiếu đến các phương thức Sách bài tập và Trang tính đã sửa.
