Содержание
Проверить, существует ли лист
Мы создали функцию, которая будет проверять, существует ли лист или диапазон (на конкретном листе). Тест диапазона полезен, если вы хотите проверить, существует ли на листе определенный именованный диапазон.
| 123456789101112 | 'Проверить, существует ли диапазон на листе.'Оставьте поле пустым, чтобы проверить, существует ли лист'Входы:WhatSheet - строковое имя листа (например, Sheet1)WhatRange (Необязательно, по умолчанию = "A1") - строковое имя диапазона (например, "A1")Функция RangeExists (WhatSheet как строка, необязательно ByVal WhatRange As String = "A1") как логическоеТусклый тест как диапазонПри ошибке Возобновить ДалееУстановите test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Номер ошибки = 0При ошибке GoTo 0Конечная функция |
Поместите функцию в модуль кода VBA, и вы сможете получить к нему доступ, используя такие подпроцедуры:
Проверьте, существует ли лист
| 123 | Sub Test_SheetExists ()MsgBox RangeExists («настройка»)Конец подписки |
Проверить, существует ли диапазон на листе
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("настройка", "rngInput")Конец подписки |
Регулировка функции RangeExists
Проверьте, существует ли лист в другой книге
Вышеупомянутая функция просматривала ActiveWorkbook (текущую активную книгу). Вместо этого вы можете настроить функцию для просмотра конкретной книги следующим образом:
| 12345678910111213 | 'Проверить, существует ли диапазон на листе.'Оставьте поле пустым, чтобы проверить, существует ли лист'Входы:'WhatBook - * Объект книги *WhatSheet - строковое имя листа (например, Sheet1)WhatRange (Необязательно, по умолчанию = "A1") - строковое имя диапазона (например, "A1")Функция RangeExists (WhatBook как книга, WhatSheet как строка, необязательный ByVal WhatRange как String = "A1") как логическое значениеТусклый тест как диапазонПри ошибке Возобновить ДалееУстановить test = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Номер ошибки = 0При ошибке GoTo 0Конечная функция |
Реализация:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb As WorkbookУстановить wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Конец подписки |
