В этом руководстве будет показано, как использовать оператор Is Nothing в VBA.
VBA Ничего не заявление использует оператор VBA «Is» и проверяет, был ли объект назначен объектной переменной.
123456 | Sub CheckObjectDim rng as RangeЕсли rng - ничто, тогдаMsgbox "Диапазон не назначен"Конец, еслиКонец подписки |
Мы также можем использовать Not with Is Nothing с оператором If, чтобы убедиться, что Range был назначен переменной диапазона, который мы объявили, а затем запустить код, который мы хотим запустить, если эта переменная была назначена.
1234567 | Sub CheckAssignedObjectDim rng as RangeУстановить rng = Range ("A1: A6")Если Not rng Is Nothing, тогда'' напишите здесь кодКонец, еслиКонец подписки |
Мы можем использовать оператор Is Nothing для любого типа объекта. Это может быть чрезвычайно полезно для предотвращения ошибок в нашем коде, когда объект не может быть назначен объектной переменной.
Например, мы можем использовать переменную рабочего листа и назначить ее активному листу. Если мы сделаем это успешно, мы сможем выбрать A2 на этом листе.
1234567 | Sub CheckWorksheetObjectDim ws как рабочий листУстановить ws = ActiveSheetЕсли Not ws Is Nothing, тоws.Range ("A2"). ВыберитеКонец, еслиКонец подписки |
В приведенном выше коде будет выбрана ячейка A2. Если бы мы удалили строку «Установить ws = ActiveSheet«, То оператор If пропустит эту строку кода, и ячейка A2 не будет выбрана.
Is Nothing также можно использовать в других приложениях Microsoft Office, таких как PowerPoint, Outlook, Access и Word. Следующий код проверяет, назначен ли объект документа активному документу Word.
123456789 | Sub CheckDocumentObjectDim wdDoc как документУстановите wdDoc = ActiveDocumentЕсли wdDoc Is Nothing, тогдаMsgBox «Документ не назначен»ЕщеMsgBox «Документ назначен»Конец, еслиКонец подписки |