Цей підручник продемонструє, як використовувати оператор "Нічого" у VBA
VBA Заява «Нічого» використовує оператор VBA "Є" і перевіряє, чи об'єкт призначений об'єктній змінній.
| 123456 | Sub CheckObjectЗмінити rng як діапазонЯкщо rng - це нічогоПовідомлення "Діапазон не призначений"Закінчити ЯкщоEnd Sub |
Ми також можемо використовувати Not with Is Nothing з оператором If, щоб переконатися, що Range був призначений змінній діапазону, який ми оголосили, а потім запустити код, який ми хочемо запустити, якщо ця змінна була призначена.
| 1234567 | Sub CheckAssignedObjectЗмінити rng як діапазонВстановити rng = Діапазон ("A1: A6")Якщо ні, то нічого'' зробіть тут деякий кодЗакінчити ЯкщоEnd Sub |
Ми можемо використовувати оператор "Нічого" для будь -якого типу об'єктів. Це може бути надзвичайно корисним для запобігання помилкам у нашому коді, коли об’єкт може не бути присвоєний об’єктній змінній.
Наприклад, ми можемо використовувати змінну робочого аркуша та призначити його до активного аркуша. Якщо ми зробимо це успішно, ми можемо вибрати А2 на цьому аркуші.
| 1234567 | Sub CheckWorksheetObjectЗатемнити як робочий аркушВстановіть ws = ActiveSheetЯкщо ні, то нічогоws.Range ("A2"). ВиберітьЗакінчити ЯкщоEnd Sub |
У наведеному вище коді буде вибрано клітинку A2. Якби ми видалили рядок "Встановіть ws = ActiveSheet“, То оператор If буде обходити цей рядок коду, і комірка A2 не буде обрана.
Не можна також використовувати в інших програмах Microsoft Office, таких як PowerPoint, Outlook, Access і Word. Нижче наведений код перевіряє, чи об’єкт документа був призначений активному документу Word.
| 123456789 | ПідпроверкаDocumentObjectЗатемнити wdDoc як документВстановіть wdDoc = ActiveDocumentЯкщо wdDoc - це нічогоMsgBox "Документ не призначений"ІнакшеMsgBox "Документ призначено"Закінчити ЯкщоEnd Sub |
