Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Коллекция областей или смежных блоков ячеек в выделенном фрагменте.
Замечания
Нет единственного объекта Area ; отдельные члены коллекции Areas являются объектами Range . Коллекция Areas содержит один объект Range для каждого дискретного, непрерывного диапазона ячеек в выделенном фрагменте. Если выделенная область содержит только одну область, коллекция Areas содержит один объект Range , соответствующий выбранному фрагменту.
Пример
Используйте свойство Areas объекта Range , чтобы вернуть коллекцию Areas . В следующем примере текущий выделенный фрагмент очищается, если он содержит несколько областей.
If Selection.Areas.Count <> 1 Then Selection.Clear
Используйте area (index), где index — это номер индекса области, чтобы вернуть один объект Range из коллекции. Номера индексов соответствуют порядку, в котором были выбраны области. В следующем примере первая область в текущем выделенном фрагменте очищается, если выделенная область содержит несколько областей.
If Selection.Areas.Count <> 1 Then
Selection.Areas(1).Clear
End If
Некоторые операции не могут выполняться в нескольких областях выделения одновременно; Необходимо выполнить цикл между отдельными областями в выделенном фрагменте и выполнять операции с каждой областью отдельно. В следующем примере выполняется операция с именем myOperation в выбранном диапазоне, если выделенная область содержит только одну область. Если выделенная область содержит несколько областей, в примере выполняется myOperation для каждой отдельной области в выделенном фрагменте.
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
myOperation rangeToUse
Else
For Each singleArea in rangeToUse.Areas
myOperation singleArea
Next
End If
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.