Chương trình này trong Excel VBA sử dụng thuộc tính Count, hàm IsNumeric, hàm IsEmpty và phương thức Intersect để kiểm tra một lựa chọn.

Tình huống:

Test a Selection in Excel VBA

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

  1. Đầu tiên, chúng ta khai báo hai đối tượng Range. Chúng tôi gọi các đối tượng Range là rng và ô.

Dim rng As Range, cell As Range

  1. Chúng ta khởi tạo đối tượng Phạm vi rng với Phạm vi (“C4: D10”) và ô đối tượng Phạm vi với phạm vi đã chọn.

Set rng = Range("C4:D10")

Set cell = Selection

  1. Thêm các dòng mã sau:

If cell.Count = 1 And IsNumeric(cell) And Not IsEmpty(cell) And Not Intersect(rng, cell) Is Nothing Then

MsgBox "You win"

Else

MsgBox "You lose"

End If

Giải thích: Intersect (rng, ô) trả về một đối tượng Phạm vi đại diện cho liên kết: / vba -amples-union-inteect [giao điểm] của hai phạm vi. Nếu đối tượng phạm vi này không phải là Không có gì, số đơn (ba điều kiện đầu tiên) nằm trong phạm vi được bao quanh.

  1. Chạy thử chương trình.

Chỉ khi bạn chọn một số duy nhất trong phạm vi được bao quanh, kết quả sẽ là:

Test a Selection Result

Trong tất cả các trường hợp khác, kết quả sẽ là:

Test a Selection Result