Kiểm tra xem Trang tính có tồn tại không
Chúng tôi đã tạo một hàm sẽ kiểm tra xem Trang tính hoặc Phạm vi (trên một trang tính cụ thể) có tồn tại hay không. Kiểm tra Phạm vi hữu ích nếu bạn muốn kiểm tra xem một phạm vi được đặt tên cụ thể có tồn tại trên một trang tính hay không.
| 123456789101112 | 'Kiểm tra nếu một Phạm vi tồn tại trên một trang tính.'Để trống dải ô để kiểm tra xem trang tính có tồn tại không'Đầu vào:'WhatSheet - Tên chuỗi của Trang tính (ví dụ "Trang 1")'WhatRange (Tùy chọn, Mặc định = "A1") - Tên chuỗi của phạm vi (ví dụ: "A1")Hàm RangeExists (WhatSheet As String, ByVal tùy chọn WhatRange As String = "A1") As BooleanKiểm tra độ sáng theo phạm viKhi có lỗi Tiếp tục tiếp theoĐặt kiểm tra = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Lỗi GoTo 0Chức năng kết thúc |
Đặt hàm trong Mô-đun mã VBA và bạn có thể truy cập nó bằng cách sử dụng các thủ tục phụ như sau:
Kiểm tra xem Trang tính có tồn tại không
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("thiết lập")Kết thúc Sub |
Kiểm tra xem phạm vi có tồn tại trên trang tính không
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("thiết lập", "rngInput")Kết thúc Sub |
Điều chỉnh chức năng RangeExists
Kiểm tra xem Trang tính có tồn tại trên sổ làm việc khác không
Hàm trên đã xem xét ActiveWorkbook (sổ làm việc hiện đang hoạt động). Thay vào đó, bạn có thể điều chỉnh Hàm để xem một sổ làm việc cụ thể như sau:
| 12345678910111213 | 'Kiểm tra nếu một Phạm vi tồn tại trên một trang tính.'Để trống dải ô để kiểm tra xem trang tính có tồn tại không'Đầu vào:'WhatBook - * Đối tượng Workbook *'WhatSheet - Tên chuỗi của Trang tính (ví dụ "Trang 1")'WhatRange (Tùy chọn, Mặc định = "A1") - Tên chuỗi của phạm vi (ví dụ: "A1")Hàm RangeExists (WhatBook As Workbook, WhatSheet As String, ByVal tùy chọn WhatRange As String = "A1") As BooleanKiểm tra độ sáng theo phạm viKhi có lỗi Tiếp tục tiếp theoĐặt kiểm tra = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Lỗi GoTo 0Chức năng kết thúc |
Thực hiện:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb As WorkbookĐặt wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Kết thúc Sub |
